Publicação Ler

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:

1. Converte vCampoNumero para um número inteiro usando CInt (caso o valor original seja uma string).
2. 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.
3. 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.