Ceros a la Izquierda

Lya
08 de Julio del 2004
Alguien tiene una funcion o rutina para agregar ceros a la izquierda en un campo numerico

sdemingo
08 de Julio del 2004
Hola,

supongamos que tus números tienen que tener siempre 6 dígitos (incluidos los ceros)

Function formateaNumero(numero As Integer) As Integer

select case Len(CStr(numero))
Case 0
formateaNumero = CInt("000000")
Case 1
formateaNumero = CInt("00000") & numero
Case 2
formateaNumero = CInt("0000") & numero
Case 3
formateaNumero = CInt("000") & numero
Case 4
formateaNumero = CInt("00") & numero
Case 5
formateaNumero = CInt("0") & numero
Case 6
formateaNumero = numero
End Select

End Function



Para mantener los ceros a la izquierda deberías tratar el número como string....

salu2
sdemingo

Lya
08 de Julio del 2004
Muchas Gracias , lo voy a aplicar