Código de Visual Basic.NET - Escribir en letras un número

Requerimientos

Visual Basic 2010 Express

2010

Publicado el 21 de Abril del 2020gráfica de visualizaciones de la versión: 2010
1.280 visualizaciones desde el 21 de Abril del 2020
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
Public Sub subValorTotalLetras(ByRef TotalNeto As Single, ByRef NumeroEscrito As String)
    Dim TresNumeros As String
    Dim MasTresNumeros As Boolean
    Dim Terminacion As Boolean
    Try
        ' Inicializar variables
        NumeroEscrito = ""
        ' Escribir el valor total en letras menor a un millon
        Select Case Len(VB.Right(Str(Fix(TotalNeto)), Len(Str(Fix(TotalNeto))) - 1))
            Case Is <= 3
                TresNumeros = New String("0", 3 - Len(VB.Right(Str(Fix(TotalNeto)), Len(Str(Fix(TotalNeto))) - 1))) & VB.Right(Str(Fix(TotalNeto)), Len(Str(Fix(TotalNeto))) - 1)
            Case Is > 3
                TresNumeros = VB.Left(New String("0", 6 - Len(Trim(Str(Fix(TotalNeto))))) & Trim(Str(Fix(TotalNeto))), 3)
                MasTresNumeros = True
        End Select
        Do
            System.Windows.Forms.Application.DoEvents()
            Select Case VB.Left(TresNumeros, 1)
                Case "1"
                    If Mid(TresNumeros, 2, 1) = "0" And VB.Right(TresNumeros, 1) = "0" Then
                        NumeroEscrito = NumeroEscrito & "cien "
                    Else
                        NumeroEscrito = NumeroEscrito & "ciento "
                    End If
                Case "2"
                    NumeroEscrito = NumeroEscrito & "doscientos "
                Case "3"
                    NumeroEscrito = NumeroEscrito & "trescientos "
                Case "4"
                    NumeroEscrito = NumeroEscrito & "cuatrocientos "
                Case "5"
                    NumeroEscrito = NumeroEscrito & "quinientos "
                Case "6"
                    NumeroEscrito = NumeroEscrito & "seiscientos "
                Case "7"
                    NumeroEscrito = NumeroEscrito & "setecientos "
                Case "8"
                    NumeroEscrito = NumeroEscrito & "ochocientos "
                Case "9"
                    NumeroEscrito = NumeroEscrito & "novecientos "
            End Select
            Select Case Mid(TresNumeros, 2, 1)
                Case "1"
                    Select Case VB.Right(TresNumeros, 1)
                        Case "0"
                            NumeroEscrito = NumeroEscrito & "diez "
                        Case "1"
                            NumeroEscrito = NumeroEscrito & "once "
                        Case "2"
                            NumeroEscrito = NumeroEscrito & "doce "
                        Case "3"
                            NumeroEscrito = NumeroEscrito & "trece "
                        Case "4"
                            NumeroEscrito = NumeroEscrito & "catorse "
                        Case "5"
                            NumeroEscrito = NumeroEscrito & "quince "
                        Case "6"
                            NumeroEscrito = NumeroEscrito & "dieciséis "
                        Case "7"
                            NumeroEscrito = NumeroEscrito & "diecisiete "
                        Case "8"
                            NumeroEscrito = NumeroEscrito & "dieciocho "
                        Case "9"
                            NumeroEscrito = NumeroEscrito & "diecinueve "
                    End Select
                    Terminacion = True
                Case "2"
                    NumeroEscrito = NumeroEscrito & "veinte "
                Case "3"
                    NumeroEscrito = NumeroEscrito & "treinta "
                Case "4"
                    NumeroEscrito = NumeroEscrito & "cuarenta "
                Case "5"
                    NumeroEscrito = NumeroEscrito & "cincuenta "
                Case "6"
                    NumeroEscrito = NumeroEscrito & "sesenta "
                Case "7"
                    NumeroEscrito = NumeroEscrito & "setenta "
                Case "8"
                    NumeroEscrito = NumeroEscrito & "ochenta "
                Case "9"
                    NumeroEscrito = NumeroEscrito & "noventa "
            End Select
            If VB.Right(TresNumeros, 1) <> "0" And Mid(TresNumeros, 2, 1) <> "0" And Terminacion = False Then
                NumeroEscrito = NumeroEscrito & "y "
            End If
            If Terminacion = False Then
                Select Case VB.Right(TresNumeros, 1)
                    Case "1"
                        If MasTresNumeros = True Then
                            NumeroEscrito = NumeroEscrito & "un "
                        Else
                            NumeroEscrito = NumeroEscrito & "uno "
                        End If
                    Case "2"
                        NumeroEscrito = NumeroEscrito & "dos "
                    Case "3"
                        NumeroEscrito = NumeroEscrito & "tres "
                    Case "4"
                        NumeroEscrito = NumeroEscrito & "cuatro "
                    Case "5"
                        NumeroEscrito = NumeroEscrito & "cinco "
                    Case "6"
                        NumeroEscrito = NumeroEscrito & "seis "
                    Case "7"
                        NumeroEscrito = NumeroEscrito & "siete "
                    Case "8"
                        NumeroEscrito = NumeroEscrito & "ocho "
                    Case "9"
                        NumeroEscrito = NumeroEscrito & "nueve "
                End Select
            Else
                Terminacion = False
            End If
            If MasTresNumeros = True Then
                TresNumeros = VB.Right(Str(Fix(TotalNeto)), 3)
                NumeroEscrito = NumeroEscrito & "mil "
                MasTresNumeros = False
            Else
                Exit Do
            End If
        Loop
        If InStr(Str(TotalNeto), ".") <> 0 Then
            NumeroEscrito = NumeroEscrito & "con " & VB.Right(Str(CInt(TotalNeto * 100)), 2) & "/100"
        End If
    Catch ex As Exception
        MsgBox(Err.Description, MsgBoxStyle.Critical)
    End Try
End Sub



Comentarios sobre la versión: 2010 (0)


No hay comentarios
 

Comentar la versión: 2010

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s6140