convertir numeros a texto

[gama_jack]

Hola quisiera saber si alguien pudiera ayudarme miren quisiera convertir un numero en moneda rn visual basic .net, como si se tratara de una factura, por ejemplo: si yo escribo el numero 185 que automaticamente me devuelva el texto Ciento ochenta y cinco o algo asi.

Si saben de alguna funcion q me pueda servir estare esperando con gusto
gracias

salu2

[sindestino]

he visto muchas funciones escritas en Visual Basic (sobre todo 6) que hacen eso que pedís y en castellano. Yo no tengo un link exacto pero con una simple consulta en google podés encontrar muchas cosas, por ej.: http://vbasic.astalaweb.com/Converti...a%20letras.asp

Saludos

[freegirl]

Está en Visual Basic 6, pero bueno, más o menos, es lo mismo.

Public Function EnLetras(numero As String) As String

Dim b, paso As Integer

Dim expresion, entero, deci, flag As String



flag = "N"

For paso = 1 To Len(numero)

If Mid(numero, paso, 1) = "." Then

flag = "S"

Else

If flag = "N" Then

entero = entero + Mid(numero, paso, 1) 'Extae la parte entera del numero

Else

deci = deci + Mid(numero, paso, 1) 'Extrae la parte decimal del numero

End If

End If

Next paso



If Len(deci) = 1 Then

deci = deci & "0"

End If



flag = "N"

If Val(numero) >= -999999999 And Val(numero) <= 999999999 Then 'si el numero esta dentro de 0 a 999.999.999

For paso = Len(entero) To 1 Step -1

b = Len(entero) - (paso - 1)

Select Case paso

Case 3, 6, 9

Select Case Mid(entero, b, 1)

Case "1"

If Mid(entero, b + 1, 1) = "0" And Mid(entero, b + 2, 1) = "0" Then

expresion = expresion & "cien "

Else

expresion = expresion & "ciento "

End If

Case "2"

expresion = expresion & "doscientos "

Case "3"

expresion = expresion & "trescientos "

Case "4"

expresion = expresion & "cuatrocientos "

Case "5"

expresion = expresion & "quinientos "

Case "6"

expresion = expresion & "seiscientos "

Case "7"

expresion = expresion & "setecientos "

Case "8"

expresion = expresion & "ochocientos "

Case "9"

expresion = expresion & "novecientos "

End Select



Case 2, 5, 8

Select Case Mid(entero, b, 1)

Case "1"

If Mid(entero, b + 1, 1) = "0" Then

flag = "S"

expresion = expresion & "diez "

End If

If Mid(entero, b + 1, 1) = "1" Then

flag = "S"

expresion = expresion & "once "

End If

If Mid(entero, b + 1, 1) = "2" Then

flag = "S"

expresion = expresion & "doce "

End If

If Mid(entero, b + 1, 1) = "3" Then

flag = "S"

expresion = expresion & "trece "

End If

If Mid(entero, b + 1, 1) = "4" Then

flag = "S"

expresion = expresion & "catorce "

End If

If Mid(entero, b + 1, 1) = "5" Then

flag = "S"

expresion = expresion & "quince "

End If

If Mid(entero, b + 1, 1) > "5" Then

flag = "N"

expresion = expresion & "dieci"

End If



Case "2"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "veinte "

flag = "S"

Else

expresion = expresion & "veinti"

flag = "N"

End If



Case "3"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "treinta "

flag = "S"

Else

expresion = expresion & "treinta y "

flag = "N"

End If



Case "4"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "cuarenta "

flag = "S"

Else

expresion = expresion & "cuarenta y "

flag = "N"

End If



Case "5"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "cincuenta "

flag = "S"

Else

expresion = expresion & "cincuenta y "

flag = "N"

End If



Case "6"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "sesenta "

flag = "S"

Else

expresion = expresion & "sesenta y "

flag = "N"

End If



Case "7"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "setenta "

flag = "S"

Else

expresion = expresion & "setenta y "

flag = "N"

End If



Case "8"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "ochenta "

flag = "S"

Else

expresion = expresion & "ochenta y "

flag = "N"

End If



Case "9"

If Mid(entero, b + 1, 1) = "0" Then

expresion = expresion & "noventa "

flag = "S"

Else

expresion = expresion & "noventa y "

flag = "N"

End If

End Select

[freegirl]

CONTINÚA..

Case 1, 4, 7

Select Case Mid(entero, b, 1)

Case "1"

If flag = "N" Then

If paso = 1 Then

expresion = expresion & "uno "

Else

expresion = expresion & "un "

End If

End If

Case "2"

If flag = "N" Then

expresion = expresion & "dos "

End If

Case "3"

If flag = "N" Then

expresion = expresion & "tres "

End If

Case "4"

If flag = "N" Then

expresion = expresion & "cuatro "

End If

Case "5"

If flag = "N" Then

expresion = expresion & "cinco "

End If

Case "6"

If flag = "N" Then

expresion = expresion & "seis "

End If

Case "7"

If flag = "N" Then

expresion = expresion & "siete "

End If

Case "8"

If flag = "N" Then

expresion = expresion & "ocho "

End If

Case "9"

If flag = "N" Then

expresion = expresion & "nueve "

End If

End Select

End Select

If paso = 4 Then

If Mid(entero, 6, 1) <> "0" Or Mid(entero, 5, 1) <> "0" Or Mid(entero, 4, 1) <> "0" Or _

(Mid(entero, 6, 1) = "0" And Mid(entero, 5, 1) = "0" And Mid(entero, 4, 1) = "0" And _

Len(entero) <= 6) Then

expresion = expresion & "mil "

End If

End If

If paso = 7 Then

If Len(entero) = 7 And Mid(entero, 1, 1) = "1" Then

expresion = expresion & "millón "

Else

expresion = expresion & "millones "

End If

End If

Next paso



If deci <> "" Then

If Mid(entero, 1, 1) = "-" Then 'si el numero es negativo

EnLetras = "menos " & expresion & "con " & deci ' & "/100"

Else

EnLetras = expresion & "con " & deci ' & "/100"

End If

Else

If Mid(entero, 1, 1) = "-" Then 'si el numero es negativo

EnLetras = "menos " & expresion

Else

EnLetras = expresion

End If

End If

Else 'si el numero a convertir esta fuera del rango superior e inferior

EnLetras = ""

End If

End Function

[gama_jack]

gracias freegirl si funciono, por cierto por q el nick???

[Bravenap]

Ay, ay, ay, que me parece que gama_jack te va a proponer algo indecente,

[freegirl]

como sois!

Pues lo de freegirl no tiene mucho secreto jejej......lo de free porque me gusta la libertad, y lo de girl, pues porque soy una girl

[gama_jack]

mmm valla tal vez algun dia me aceptes una invitacion a salir como ves???