29/12/2005, 10:23
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
| '############################
' 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 |