Convertir número a letras respetando alfanuméricos
Necesito convertir número como ejemplo 12345-0 en UNO DOS TRES CUATRO CINCO - CERO.
1 respuesta
Respuesta
1
Podría ser algo más o menos así...
Crea una función personalizada con el siguiente código
Function convNum(entrada) Dim i As Integer, cheq As String, Salida As String For i = 1 To Len(entrada) cheq = Mid(entrada, i, 1) Select Case cheq Case 1: Salida = Salida & " UNO" Case 2: Salida = Salida & " DOS" Case 3: Salida = Salida & " TRES" Case 4: Salida = Salida & " CUATRO" Case 5: Salida = Salida & " CINCO" Case 6: Salida = Salida & " SEIS" Case 7: Salida = Salida & " SIETE" Case 8: Salida = Salida & " OCHO" Case 9: Salida = Salida & " NUEVE" Case 0: Salida = Salida & " CERO" Case Else: Salida = Salida & " " & cheq End Select Next i convNum = Salida End Function
Si tienes dudas sobre como hacerlo avisa
Salu2