Zeros A Esquerda

[Tullus]

não consegui colocar zeros a esquerda de um valor recuperado do campo "id" (Access, tipo do campo: autonumeração)...

por exemplo: a id é 3, mas eu quero que ela apareça 00003 (com 5 dígitos)...

a única função que conheço para formatar os dígitos dos números é formatnumber(variavel,nº de casas depois da vírgula)... que não funciona para dígitos antes da vírgula (zeros a esquerda)...

desde já, obrigado pela ajuda!!

[Tullus]

Estou usando esse código:

<%
dim n

n = 30

n = string(5-len(cint(n)),"0") & n

Response.Write(n)
%>

se alguém tiver um mais simples... por favor, posta aí!!

Abraços.

[kuroi]

<%
dim n
n = 30
n = Right("00000" & n, 5)
Response.Write(n)
%>[/code]
a qtd de zeros varia de acordo com qts digitos você quer que o numero tenha. a qtd de zeros deve ser o mesmo valor do right.

[marcos_804]

Faça o seguinte...

Dá um loop assim:

id = "35" ' Valor ficticio. Qualquer valor

for x = 1 to 5-len(id) ' O len id mostra qtos caracteres tem dentro da string. dai é só diminuir o valor das cinco casas pelo numero de casas que a string [b]id[/b] tem.
     zeros = zeros & "0"
next

response.write zeros & id

Eu precisei fazer um codigo semelhante para poder gerar boletos... e eu fiz esta mesma logica acima.

... Espero ter ajudado.