Ceros a la Izquierda
Alguien tiene una funcion o rutina para agregar ceros a la izquierda en un campo numerico
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
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