🚀 go-pugleaf

Gracias Mauricio, lo traspas� a C++ y me qued� operando de lujo.



Mauricio G�mez wrote:

> cbd escribi�:
>> Amigos, tengo que implementar en forma urgente un algoritmo para un
>> programa en C++ que me transforme el valor total num�rico de la factura a
>> texto, o sea por ejemplo si la factura es por $540.569 me ponga
>> Quinientos cuarenta mil quinientos sesenta y nueve.
>> Alguien por ah� sabe del algoritmo en cuesti�n?
>> 
>> Gracias desde ya
>> 
> 
> Esta en VB pero no debiera ser drama pasarlo a C++:
> 
> Public Function Num2Text(value As Double) As String
> Select Case value
>      Case 0: Num2Text = "CERO"
>      Case 1: Num2Text = "UN"
>      Case 2: Num2Text = "DOS"
>      Case 3: Num2Text = "TRES"
>      Case 4: Num2Text = "CUATRO"
>      Case 5: Num2Text = "CINCO"
>      Case 6: Num2Text = "SEIS"
>      Case 7: Num2Text = "SIETE"
>      Case 8: Num2Text = "OCHO"
>      Case 9: Num2Text = "NUEVE"
>      Case 10: Num2Text = "DIEZ"
>      Case 11: Num2Text = "ONCE"
>      Case 12: Num2Text = "DOCE"
>      Case 13: Num2Text = "TRECE"
>      Case 14: Num2Text = "CATORCE"
>      Case 15: Num2Text = "QUINCE"
>      Case Is < 20: Num2Text = "DIECI" & Num2Text(value - 10)
>      Case 20: Num2Text = "VEINTE"
>      Case Is < 30: Num2Text = "VEINTI" & Num2Text(value - 20)
>      Case 30: Num2Text = "TREINTA"
>      Case 40: Num2Text = "CUARENTA"
>      Case 50: Num2Text = "CINCUENTA"
>      Case 60: Num2Text = "SESENTA"
>      Case 70: Num2Text = "SETENTA"
>      Case 80: Num2Text = "OCHENTA"
>      Case 90: Num2Text = "NOVENTA"
>      Case Is < 100: Num2Text = Num2Text(Int(value \ 10) * 10) & " Y " &
> Num2Text(value Mod 10)
>      Case 100: Num2Text = "CIEN"
>      Case Is < 200: Num2Text = "CIENTO " & Num2Text(value - 100)
>      Case 200, 300, 400, 600, 800: Num2Text = Num2Text(Int(value \ 100)) &
> "CIENTOS"
>      Case 500: Num2Text = "QUINIENTOS"
>      Case 700: Num2Text = "SETECIENTOS"
>      Case 900: Num2Text = "NOVECIENTOS"
>      Case Is < 1000: Num2Text = Num2Text(Int(value \ 100) * 100) & " " &
> Num2Text(value Mod 100)
>      Case 1000: Num2Text = "MIL"
>      Case Is < 2000: Num2Text = "MIL " & Num2Text(value Mod 1000)
>      Case Is < 1000000: Num2Text = Num2Text(Int(value \ 1000)) & " MIL"
>                         If value Mod 1000 Then Num2Text = Num2Text & " " &
> Num2Text(value Mod 1000)
>      Case 1000000: Num2Text = "UN MILLON"
>      Case Is < 2000000: Num2Text = "UN MILLON " & Num2Text(value Mod
> 1000000)
>      Case Is < 1000000000000#: Num2Text = Num2Text(Int(value / 1000000)) &
>      "
> MILLONES"
>                                If (value - Int(value / 1000000) * 1000000)
> Then Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000) *
> 1000000)
>      Case 1000000000000#: Num2Text = "UN BILLON"
>      Case Is < 2000000000000#: Num2Text = "UN BILLON " & Num2Text(value -
> Int(value / 1000000000000#) * 1000000000000#)
>      Case Else:
>             Num2Text = Num2Text(Int(value / 1000000000000#)) & " BILLONES"
>             If (value - Int(value / 1000000000000#) * 1000000000000#) Then
> Num2Text = Num2Text & " " & Num2Text(value - Int(value / 1000000000000#) *
> 1000000000000#)
> End Select
> End Function
> 
> 
> rro