Convertir numero en letras Visual Basic
Hola ralvaradot
Tengo una gran incógnita, tengo una factura en Visual Basic y en el momento que suma los subtotales sin decimales el programa corre perfecto y en un text tengo las letras y también corre perfecto, el dilema es cuando hay decimales, si tengo por ejemplo 123.30 me despliega en letras "Ciento veititres con 30/100" y eso es correcto pero cuando tengo por ejemplo 246.6 me lo aproxima a "Docientos cuarenta y siete con 60/100" y no entiendo donde esta mi error, el comando del botón de calcular es el siguiente:
Private Sub CmdTotal_Click()
Dim letra As Integer
Dim IrLod As String
Dim total As Single
total = Total1 + Total2 + Total3 + total4
TxtTotal.Text = total
IrLord = Right(CStr(Format(TxtTotal.Text, "$#,##0.#0;($#,##0)")), 2)
TxtLetras.Text = "*** " & Num2Text(Val(TxtTotal.Text)) & " con " & IrLord & "/100" & " ***"
End Sub
El otro código donde esta los demás números están en un modulo y ese pues creo que corre bien. Espero que me puedas ayudar y gracias de antemano
Tengo una gran incógnita, tengo una factura en Visual Basic y en el momento que suma los subtotales sin decimales el programa corre perfecto y en un text tengo las letras y también corre perfecto, el dilema es cuando hay decimales, si tengo por ejemplo 123.30 me despliega en letras "Ciento veititres con 30/100" y eso es correcto pero cuando tengo por ejemplo 246.6 me lo aproxima a "Docientos cuarenta y siete con 60/100" y no entiendo donde esta mi error, el comando del botón de calcular es el siguiente:
Private Sub CmdTotal_Click()
Dim letra As Integer
Dim IrLod As String
Dim total As Single
total = Total1 + Total2 + Total3 + total4
TxtTotal.Text = total
IrLord = Right(CStr(Format(TxtTotal.Text, "$#,##0.#0;($#,##0)")), 2)
TxtLetras.Text = "*** " & Num2Text(Val(TxtTotal.Text)) & " con " & IrLord & "/100" & " ***"
End Sub
El otro código donde esta los demás números están en un modulo y ese pues creo que corre bien. Espero que me puedas ayudar y gracias de antemano
