cambiar formato de numero de 21 a 0021

[zeudio]

Hola a todos

Estoy intentando cambiar el formato de mis numeros de, digamos, 21 a 0021 es decir, definir un numero determinado de caracteres. Si alguien sabe como hacerlo gracias de antemano.

Saludos a todos

[AlZuwaga]

creo que le pasé una función a un/a usuario/a hace un tiempo, deja que lo busco

[zeudio]

ok, gracias por la ayuda

[AlZuwaga]

No la encontré, pero era algo así:

Código:

<%
Function AgregaIzquierda(Str, DigitosTotales, CaracterAAgregar)
	AgregaIzquierda = Replace(Space(DigitosTotales - Len(Str)), " ", CaracterAAgregar) & Str
End Function

Response.Write AgregaIzquierda("21", "5", "0")
%>

[niltonc]

puedes utlizar tambien esto:

right("0000"+ "21",4)

puedes usar para parametro para armar lo que desees

right("+numeroceros+", trim("+numero+"), "+tamaño+")

[lexus]

'############################
' esta funcion sirve para darle
' el formato 0004 a un determinado
' numero. util por ejemplo en
' facturacion
' su llamado es asi: FormatoNum(14,5)
' retornaria esto: 00014
function FormatoNum(num,digitos)
dim largo, dif,x
largo = Len(Cstr(num))
dif = digitos - largo
if dif < 0 then exit function
if largo < digitos Then
x = String(dif,"0") & Cstr(num)
else
x = Cstr(num)
end if
FormatoNum = x
End Function

espero te sirva,
FormatoNum(14,5)
el primer parametro es el valor o numero inicial y el segundo es la cantidad de digitos que quieres que tenga tu numero
otro ejemplo:; FormatoNum(2,8)
quedaria asi: 00000002