Ver Mensaje Individual
Antiguo 18-dic-2004, 23:58   #39 (permalink)
lexus
lexus está en el buen camino
 
Avatar de lexus
 
Fecha de Ingreso: noviembre-2002
Ubicación: Cali - Colombia
Mensajes: 1.689
Enviar un mensaje por MSN a lexus
Formatear numero

esta funcion sirve para colocar ceros a la izquierda de un numero, funcion ideal para sistemas de facturacion por ejemplo nos deja un numero por ejemplo 14 a 00014

Código:
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
Le pasas como primer parámetro el numero y luego la cantidad de digitos
EJ:
response.write FormatoNum(14,4)' devolvera 0014
__________________

Andeano Coffee Importers Colombian http://www.andeanospecialtycoffees.c...eanocoffee.asp
lexus está desconectado   Responder Citando