Visual Basic - Consulta sobre convertir de Numeros a Letras

Life is soft - evento anual de software empresarial
 
Vista:
Imágen de perfil de MarioJoaquin
Val: 19
Ha disminuido su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta sobre convertir de Numeros a Letras

Publicado por MarioJoaquin (10 intervenciones) el 25/04/2019 22:31:28
Buenas tardes,
En mi trabajo tengo que digitar numero de documentos de identidad, por ejemplo: 02256223-5, pero estos tienen que expresarse en letras, así: CERO DOS DOS CINCO SEIS DOS DOS TRES - CINCO.

Podíra alguien ayudarme como puedo generar el código.

Saludos,

Mario Joaquin
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.863
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta sobre convertir de Numeros a Letras

Publicado por Andres Leonardo (1604 intervenciones) el 26/04/2019 01:56:27
Pregunto donde los ingresas en el sistema o en alguna hoja de calculo?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de MarioJoaquin
Val: 19
Ha disminuido su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta sobre convertir de Numeros a Letras

Publicado por MarioJoaquin (10 intervenciones) el 26/04/2019 02:02:11
Lo ingreare en una hoja de calculo, es decir en una celda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Antoni Masana
Val: 1.112
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta sobre convertir de Numeros a Letras

Publicado por Antoni Masana (401 intervenciones) el 26/04/2019 10:37:13
Aquí tienes una función

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function Numero_a_Letras(Num)
    Dim a As Byte, Texto As String
    Texto = ""
    For a = 1 To Len(Num)
        Select Case Mid$(Num, a, 1)
            Case "1":  Texto = Texto + " UNO"
            Case "2":  Texto = Texto + " DOS"
            Case "3":  Texto = Texto + " TRES"
            Case "4":  Texto = Texto + " CUATRO"
            Case "5":  Texto = Texto + " CINCO"
            Case "6":  Texto = Texto + " SEIS"
            Case "7":  Texto = Texto + " SIETE"
            Case "8":  Texto = Texto + " OCHO"
            Case "9":  Texto = Texto + " NUEVE"
            Case "0":  Texto = Texto + " CERO"
            Case Else: Texto = Texto + " -"
        End Select
    Next
    Numero_a_Letras = Mid$(Texto, 2)
End Function

Adjunto ejemplo.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Antoni Masana
Val: 1.112
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta sobre convertir de Numeros a Letras

Publicado por Antoni Masana (401 intervenciones) el 26/04/2019 10:55:52
El fichero adjunto no se corresponde con el tema tratado.

Adjunto el correcto.

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de MarioJoaquin
Val: 19
Ha disminuido su posición en 3 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta sobre convertir de Numeros a Letras

Publicado por MarioJoaquin (10 intervenciones) el 26/04/2019 16:00:53
Muchas agradecido Antoni Masana, esta pefecto... realmente va ser de mucha utilidad para mi.

Saludos,

Mario Joaquín
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar