Para formatar o valor da variável vCampoNumero no formato 0004 em ASP clássico, você pode usar a função Right junto com a função String e Len.
A função Right extrai os caracteres à direita de uma string, a função String cria uma string repetida com o caractere especificado, e Len retorna o comprimento de uma string.
<%
Dim vCampoNumero
vCampoNumero = "04" ' O valor original
' Converta o valor para um número, caso seja uma string
vCampoNumero = CInt(vCampoNumero )
' Formate o valor com zeros à esquerda até ter 4 dígitos
Dim vCampoNumeroFormatada
vCampoNumeroFormatada= Right("0000" & vCampoNumero , 4)
' Exibir o valor formatado
Response.Write "O valor formatado é: " & vCampoNumeroFormatada
%>
Este código faz o seguinte:
- Converte vCampoNumero para um número inteiro usando CInt (caso o valor original seja uma string).
- Usa a função Right para concatenar 0000 ao valor de vCampoNumero e extrair os 4 últimos caracteres da string resultante. Isso garante que o valor tenha exatamente 4 dígitos com zeros à esquerda se necessário.
- Exibe o valor formatado usando Response.Write.
Se vCampoNumero for sempre um número (e não uma string), você pode omitir a conversão com CInt.