26/09/2003, 08:46
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
| este hace exactamente lo qeu pides, espero te sirva.
Dim uno, nofactura, nuevonumero, cuatrodig
Dim largo, dif, x
function FormatoNum(num,digitos)
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
tunumero = 99
' asi llamas la funcion el numero 4 es la cantidad
' de digitos que quieres que sea tu numero.
cuatrodig = FormatoNum(tunumero,4)
<%=cuatrodig%> |