Conversión de números a letras [VB6] Resuelto/Cerrado

Question

Comment puedo convertir números en letras en VB6; en Excel lo hago con morefun.dll Cuenta con tu colaboración  Ing. Manny LIKITA Tel: (00243) 98248846

fred · Accepted Answer

voila el código integral de la founction tant recherchée : Function NBenLettres(nb) ' Dim varnum, varnumD, varnumU, varlet ', resultado ' 'varnum : para almacenar las partes del número que vamos a cortar 'varlet : para almacenar la conversión a letras de una parte del número 'varnumD : para almacenar la parte decena de un número a 2 cifras 'varnumU : para almacenar la parte unidad de un número a 2 cifras 'resultado : para almacenar los resultados intermedios de las diferentes etapas Mil veinticinco Euros ' Static chiffre(1 To 19) '*** tabla que contiene el nombre de los 16 primeros Centes Euros números en letras chiffre(1) = "uno" Cents Euros y quince centavos chiffre(2) = "dos" chiffre(3) = "tres" chiffre(4) = "cuatro" chiffre(5) = "cinco" chiffre(6) = "seis" chiffre(7) = "siete" chiffre(8) = "ocho" chiffre(9) = "nueve" chiffre(10) = "diez" chiffre(11) = "once" chiffre(12) = "doce" chiffre(13) = "trece" chiffre(14) = "catorce" chiffre(15) = "quince" chiffre(16) = "dieciséis" chiffre(17) = "diecisiete" chiffre(18) = "dieciocho" chiffre(19) = "diecinueve" Static dizaine(1 To 9) '*** tabla que contiene los nombres de las decenas dizaine(1) = "diez" dizaine(2) = "veinte" dizaine(3) = "treinta" dizaine(4) = "cuarenta" dizaine(5) = "cincuenta" dizaine(6) = "sesenta" dizaine(7) = "setenta" dizaine(8) = "ochenta" dizaine(9) = "noventa" ' '*** Tratamiento del caso cero franc ' If nb >= 1 Then resultado = "" Else resultado = "cero" GoTo fintraitementfrancs End If ' '*** Tratamiento de los millones ' varnum = Int(nb / 1000000) If varnum > 0 Then GoSub centaine_dizaine resultado = varlet + " millón" If varlet <> "uno" Then resultado = resultado + "s" End If ' '*** Tratamiento de los miles ' varnum = Int(nb) Mod 1000000 varnum = Int(varnum / 1000) If varnum > 0 Then GoSub centaine_dizaine If varlet <> "uno" Then resultado = resultado + " " + varlet resultado = resultado + " mil" End If ' '*** Tratamiento de las centenas y decenas ' varnum = Int(nb) Mod 1000 If varnum > 0 Then GoSub centaine_dizaine resultado = resultado + " " + varlet End If resultado = LTrim(resultado) varlet = Right$(resultado, 4) ' '*** Tratamiento de la "s" final para veinte y cien y del "de" para millón ' Select Case varlet Case "cien", "ginta" resultado = resultado + "s" Case "lion", "iones" resultado = resultado + " de" End Select fintraitementfrancs: '*** Etiqueta de ramificación para el caso "cero franc" ' '*** Indicación del término franc ' resultado = resultado + " euro" If nb >= 2 Then resultado = resultado + "s" ' '*** Tratamiento de los centavos ' varnum = Int((nb - Int(nb)) * 100 + 0.5) '*** Sumamos 0,5 '*** para compensar los errores de cálculo debidos a los redondeos If varnum > 0 Then GoSub centaine_dizaine resultado = resultado + " y " + varlet + " centavo" If varnum > 1 Then resultado = resultado + "s" End If ' '*** Conversión 1ª letra en mayúscula ' resultado = UCase(Left(resultado, 1)) + Right(resultado, Len(resultado) - 1) ' '*** devuelve el resultado de la función y fin de la función ' NBenLettres = resultado Exit Function centaine_dizaine: '*** Subprograma de conversión a letras ' '*** de las centenas y decenas ' varlet = "" ' '*** Tratamiento de las centenas ' If varnum >= 100 Then varlet = chiffre(Int(varnum / 100)) varnum = varnum Mod 100 If varlet = "uno" Then varlet = "cien " Else varlet = varlet + " cien " End If End If ' '*** Tratamiento de las decenas ' If varnum <= 19 Then '*** Caso donde la decena es <20 If varnum > 0 Then varlet = varlet + chiffre(varnum) Else '*** Otros casos varnumD = Int(varnum / 10) '*** cifra de las decenas varnumU = varnum Mod 10 '*** cifra de las unidades '''Select Case varnumD '*** generación de las decenas en letras varlet = varlet + dizaine(varnumD) '''Case Is <= 5 '''varlet = varlet + dizaine(varnumD) '''Case 6, 7 '''varlet = varlet + dizaine(6) '''Case 8, 9 '''varlet = varlet + dizaine(8) '''End Select ' '*** tratamiento del separador de las decenas y unidades ' If varnumU = 1 And varnumD < 8 Then varlet = varlet + " y " Else If varnumU <> 0 Then varlet = varlet + "-" '''O varnumD = 7 O varnumD = 9 End If End If ' '*** generación de las unidades ' '''If varnumD = 7 Or varnumD = 9 Then varnumU = varnumU + 10 If varnumU <> 0 Then varlet = varlet + chiffre(varnumU) End If ' '*** Supresión de los espacios a la izquierda y retorno ' varlet = RTrim(varlet) Return End Function

agent dooger · Answer

¿Podrías ser más claro, decirme exactamente qué quieres obtener? Por ejemplo, si quieres que el 0 se convierta en una a; el 1 se convierta en una b (¿es eso?)

Albert ZOURE · Answer

Bonjour,  Gracias por ayudarme a tener una macro que pueda transformar los números en letras (ej: 10 = diez). Se lo agradeceré mucho. Con cariño.

Usuario anónimo · Answer

Lo encontré, no sé dónde. No completamente probado, pero "sencillo". ..... Es excelente para Bélgica. Pero el trabajo ya está "masticado" para Francia. a+ Jean-Pol DAVID www.peintures-david.com ICQ 28394733 Function NBenLettres(nb) ' Dim varnum, varnumD, varnumU, varlet ', résultat ' 'varnum : pour stocker les parties du nombre que l'on va découper 'varlet : pour stocker la conversion en lettres d'une partie du nombre 'varnumD : pour stocker la partie dizaine d'un nombre à 2 chiffres 'varnumU : pour stocker la partie unité d'un nombre à 2 chiffres 'résultat : pour stocker les résultats intermédiaires des différentes étapes ' Static chiffre(1 To 19) '*** tableau contenant le nom des 16 premiers nombres en lettres chiffre(1) = "un" chiffre(2) = "deux" chiffre(3) = "trois" chiffre(4) = "quatre" chiffre(5) = "cinq" chiffre(6) = "six" chiffre(7) = "sept" chiffre(8) = "huit" chiffre(9) = "neuf" chiffre(10) = "dix" chiffre(11) = "onze" chiffre(12) = "douze" chiffre(13) = "treize" chiffre(14) = "quatorze" chiffre(15) = "quinze" chiffre(16) = "seize" chiffre(17) = "dix-sept" chiffre(18) = "dix-huit" chiffre(19) = "dix-neuf" Static dizaine(1 To 9) '*** tableau contenant les noms des dizaines dizaine(1) = "dix" dizaine(2) = "vingt" dizaine(3) = "trente" dizaine(4) = "quarante" dizaine(5) = "cinquante" dizaine(6) = "soixante" dizaine(7) = "soixante-dix" dizaine(8) = "quatre-vingt" dizaine(9) = "quatre-vingt-dix" ' '*** Traitement du cas zéro franc ' If nb >= 1 Then résultat = "" Else résultat = "zéro" GoTo fintraitementfrancs End If ' '*** Traitement des millions ' varnum = Int(nb / 1000000) If varnum > 0 Then GoSub centaine_dizaine résultat = varlet + " million" If varlet <> "un" Then résultat = résultat + "s" End If ' '*** Traitement des milliers ' varnum = Int(nb) Mod 1000000 varnum = Int(varnum / 1000) If varnum > 0 Then GoSub centaine_dizaine If varlet <> "un" Then résultat = résultat + " " + varlet résultat = résultat + " mille" End If ' '*** Traitement des centaines et dizaines ' varnum = Int(nb) Mod 1000 If varnum > 0 Then GoSub centaine_dizaine résultat = résultat + " " + varlet End If résultat = LTrim(résultat) varlet = Right$(résultat, 4) ' '*** Traitement du "s" final pour vingt et cent et du "de" pour million ' Select Case varlet Case "cent", "ingt" résultat = résultat + "s" Case "lion", "ions" résultat = résultat + " de" End Select fintraitementfrancs: '*** Etiquette de branchement pour le cas "zéro franc" ' '*** Indication du terme franc ' résultat = résultat + " euro" If nb >= 2 Then résultat = résultat + "s" ' '*** Traitement des centimes ' varnum = Int((nb - Int(nb)) * 100 + 0.5) '*** On additionne 0,5 '*** afin de compenser les erreurs de calcul dues aux arrondis If varnum > 0 Then GoSub centaine_dizaine résultat = résultat + " et " + varlet + " centime" If varnum > 1 Then résultat = résultat + "s" End If ' '*** Conversion 1ère lettre en majuscule ' résultat = UCase(Left(résultat, 1)) + Right(résultat, Len(résultat) - 1) ' '*** renvoie du résultat de la fonction et fin de la fonction ' NBenLettres = résultat Exit Function centaine_dizaine: '*** Sous-programme de conversion en lettres ' '*** des centaines et dizaines ' varlet = "" ' '*** Traitement des centaines ' If varnum >= 100 Then varlet = chiffre(Int(varnum / 100)) varnum = varnum Mod 100 If varlet = "un" Then varlet = "cent " Else varlet = varlet + " cent " End If End If ' '*** Traitement des dizaines ' If varnum <= 19 Then '*** Cas où la dizaine est <20 If varnum > 0 Then varlet = varlet + chiffre(varnum) Else '*** Autres cas varnumD = Int(varnum / 10) '*** chiffre des dizaines varnumU = varnum Mod 10 '*** chiffre des unités '''Select Case varnumD '*** génération des dizaines en lettres varlet = varlet + dizaine(varnumD) '''Case Is <= 5 '''varlet = varlet + dizaine(varnumD) '''Case 6, 7 '''varlet = varlet + dizaine(6) '''Case 8, 9 '''varlet = varlet + dizaine(8) '''End Select ' '*** traitement du séparateur des dizaines et unités ' If varnumU = 1 And varnumD < 8 Then varlet = varlet + " et " Else If varnumU <> 0 Then varlet = varlet + "-" '''Or varnumD = 7 Or varnumD = 9 End If End If ' '*** génération des unités ' '''If varnumD = 7 Or varnumD = 9 Then varnumU = varnumU + 10 If varnumU <> 0 Then varlet = varlet + chiffre(varnumU) End If ' '*** Suppression des espaces à gauche et retour ' varlet = RTrim(varlet) Return End Function Dígame si hay algún problema.

véronique costellazione · Answer

¡Saludos! Me gustaría mucho recibir esta superb función de conversión de números a letras, por ejemplo, 100 - Cien  Gracias.

Alain LOEB · Answer

Je voudrais descargar el programa de conversión de números en letras.

Hilaire · Answer

Bonjour, je ne peux pas répondre à votre demande.

yacine · Answer

Hola a todos, me gustaría el programa en cuestión que transforma los números en letras  gracias

sabri · Answer

Public Function sumaLetra(ByVal argumento As Currency) As String Dim entero As Double Dim centavos As Double Dim resultado1 As String Dim resultado2 As String entero = Int(argumento) ' Valor entero centavos = (argumento - entero) * 100 ' Valor centavos resultado1 = sumaLetra2(entero) resultado2 = sumaLetra2(centavos) If Trim(resultado1) <> "" Then resultado1 = resultado1 & " Dinar " End If If Trim(resultado2) <> "" Then resultado2 = resultado2 & " Cts" End If sumaLetra = resultado1 & " y " & resultado2 End Function '************************************************************* ' Función de conversión de números a letras '************************************************************* Public Function sumaLetra2(ByVal argumento As Double) As String Dim letras As Variant Dim unidades As Variant Dim decenas As Variant Dim centenas As Variant Dim unidad As Integer Dim diez As Integer Dim cent As Integer Dim grupos As Variant Dim cadena As String Dim ng, nc As Integer Dim i, j, k As Integer Dim xx As String cadena = Trim(Str(argumento)) nc = Len(cadena) ' Número de cifras letras = Array("", "mil", "millón", "mil millones", "billón") unidades = Array("", "uno", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez", "once", "doce", "trece", "catorce", "quince", "dieciseis", "diecisiete", "dieciocho", "diecinueve") decenas = Array("", "diez", "veinte", "treinta", "cuarenta", "cincuenta", "sesenta", "setenta", "ochenta", "noventa") centenas = Array("", "cien", "doscientos", "trescientos", "cuatrocientos", "quinientos", "seiscientos", "setecientos", "ochocientos", "novecientos") If argumento = 0 Then sumaLetra2 = "" Else If nc Mod 3 > 0 Then ng = Int(nc / 3) + 1 ' Número de grupos Else ng = nc / 3 End If ReDim grupos(ng - 1) cadena = String(ng * 3 - nc, " ") & cadena nc = Len(cadena) j = 0 For i = nc To 1 Step -3 xx = Mid(cadena, i - 2, i) grupos(j) = xx j = j + 1 Next cadena = "" For j = 0 To UBound(grupos) unidad = Val(Mid(grupos(j), 3, 1)) diez = Val(Mid(grupos(j), 2, 1)) If diez = 1 Or diez = 7 Or diez = 9 Then diez = diez - 1 unidad = unidad + 10 End If cent = Val(Mid(grupos(j), 1, 1)) cadena = centenas(cent) & " " & decenas(diez) & " " & unidades(unidad) & " " & letras(j) & " " & cadena Next sumaLetra2 = cadena End If End Function

hoarau emanuel · Answer

Buenas tardes   acabo de conectarme al sitio como funciona y estoy interesado en la macro de Excel que convierte números en letras. Esta aplicación me será muy útil en mis tareas diarias   de antemano, les agradezco su ayuda.

Conversión de números a letras [VB6]

10 respuestas

Reinstalación de w11 imposible tras fallo del pc...

Quiero saber cómo denunciar una estafa

Sitio inaccesible

Dossier de elementos enviados inexistente

Transferencia de mp3 de pc a portátil

Aumentar la capacidad del webmail zimbra en free a 10go

Usb no actualizado en la interfaz de android

Tencent imposible de eliminar

¿tienes suficiente espacio de almacenamiento en mi vps?

Gps tracker para coche