Visual Basic - Como pasar una cantidad a letra

Life is soft - evento anual de software empresarial
 
Vista:

Como pasar una cantidad a letra

Publicado por L@L0 (1 intervención) el 31/01/2005 21:31:15
Saludos, mi problema es el siguiente, estoy desarrollando una aplicacion, en el modulo de ventas, requiero imprimir en la factura la cantidad con numero p.e (3,425) a letra (TRES MIL CUATROCIENTOS VEINTICINCO).
Como debo hacerle, existe una funcion en VB, para hacer esto?
gracias por su ayuda
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

RE:Como pasar una cantidad a letra

Publicado por miguel (1042 intervenciones) el 01/02/2005 00:33:55
Te envio el ejemplo a tu correo!!!
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

RE:Como pasar una cantidad a letra

Publicado por Benjo (679 intervenciones) el 01/02/2005 01:58:22
Private Dato As String, Cad As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then KeyAscii = 0: Exit Sub
End If
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If Text1 = "" Then Label1 = "": Exit Sub
Dato = "": Cad = ""
Convert (Text1)
If Dato = "" Then
Label1 = Cad
Else
Label1 = Dato & Cad
End If
End Sub

Private Function Convert(Cadena As String)
Dim Numero As Long
Numero = Int(Cadena)
If Numero = 0 Then Cad = "cero": Exit Function
Select Case Numero
Case 1: Cad = "uno"
Case 2: Cad = "dos"
Case 3: Cad = "tres"
' Hasta el 15
Case 16 To 19: Dato = Dato & "dieci": Convert (Numero Mod 10)
Case 20: Cad = "veinte"
Case 21 To 29: Dato = Dato & "veinti": Convert (Numero Mod 10)
Case 30: Cad = "treinta"
Case 31 To 39: Dato = Dato & "treinta y ": Convert (Numero Mod 10)
Case 40: Cad = "cuarenta"
'Del 41 al 99 Igual
Case 100: Cad = "cien"
Case 101 To 199: Dato = Dato & "ciento ": Convert (Numero Mod 100)
'de aquí en delante sólo cambias el valor
Case Else: Cad = "No soportado"
End Select
End Function
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