Convertir números a letras en Access

25 comentarios en «Convertir números a letras en Access»

1. Bon Dia;

   Estoy interesado en el ejemplo; no veo donde el botón que hablas para descargar

   Responder

   • Está al final del artículo, donde pone Descarga

     Responder

2. Sobre descarga

   No se si estoy ciego o es que quitaron el link pero no consigo donde descargar el ejemplo me podrias ayudar con eso?

   Responder

3. Enlace de descarga reparado

   Gracias por el aviso, enlace arreglado.

   Responder

4. Ejemplo

   Hola, dónde puedo obtener el ejemplo, no encuentro dónde descargarlo
   gracias

   Responder

5. En la parte baja del artículo

   En la parte baja del artículo, en el recuadro donde pone BOX, está la descarga.

   Responder

6. HERMANO DISCULPE PERO PODRIA

   HERMANO DISCULPE PERO PODRIA EXPLICARME COMO INGRESO ESE CODIGO EN EN FORMATO O EN LAS PROPIEDADES, YA QUE LO ESCRIVO Y NO GENERA NADA SOLO UN ERROR DE COPILACION Y SI TRATO DE CORREGIR NO ME GENERA RESULTADO ALGUNO GRACIAS

   Responder

7. A letras con access

   Descarga el ejemplo y ahí lo puedes ver más claro, si no te aclaras nos lo dices.

   Responder

8. PREGUNTA

   DISCULPA LA MOLESTIA , NO SE SI SIGA EN DISCUSION EL TEMA PERO ME GUSTARIA SABER A CUAL CAMPO DEL FORMULARIO AGREGO EL CODIGO , EN EL QUE ESCRIBO EL NUMERO O EN EL QUE QUIERO QUE APAREZCA CON TEXTO
   Y GRACIAS ES MUY BUENA TU APORTACION

   Responder

9. conversión a letras con decimales

   Mira a ver si te vale éste código:
   Option Compare Database
   Option Explicit
   Const MAX_LNG = 9
   Dim dbNum As Database
   Dim rsNum As Recordset
   Dim iPrim As Integer
   Dim iNum3 As Integer
   Dim stCampo As String
   Dim iEnd_un As Integer
   Private Function fConvertir(vNúmero As Variant, stGénero As String) As
   String
   On Error GoTo fConvertir_Err
   Const TBL_NUM = «Números»
   Const TIPO_MASC = «m»
   Const TIPO_FEM = «f»
   Const TIPO_NEUT = «n»
   Dim stTmp As String
   Dim I As Integer, iLong As Integer
   Dim iSing As Integer, iMil As Integer
   Dim iUlt As Integer
   iEnd_un = False
   If stGénero = TIPO_NEUT Then
   iEnd_un = True
   stGénero = TIPO_MASC
   End If
   Set dbNum = CodeDb()
   Set rsNum = dbNum.OpenRecordset(TBL_NUM, DB_OPEN_TABLE)
   rsNum.Index = «PrimaryKey»
   vNúmero = CStr((vNúmero))
   iLong = Len(vNúmero)
   iNum3 = iLong 3 ‘Conseguir Nº veces de 3 cifras
   iPrim = iLong Mod 3 ‘Conseguir Nº de dígitos restantes: 1 ó 2
   ‘Si el número es mayor de 9 cifras devolver cadena longitud 0
   If iLong > MAX_LNG Then Exit Function
   ‘si el número es mayor de 6 cifras tratar en masculino (una millón… no
   existe)
   If iLong > 6 Then
   stCampo = «m»
   Else
   stCampo = stGénero
   End If
   ‘Verificar si los dígitos restantes (los primeros) es «1»
   ‘para saber si es una cantidad «mil» y no evaluar fGetPrim
   ‘y para saber si es plural 1### (mil…) 1###### (un millón…)
   If iPrim > 0 Then
   If Left(vNúmero, iPrim) = «1» And Not vNúmero = «1» Then
   iSing = True
   If iNum3 2 Then iMil = 1
   End If
   iUlt = iNum3
   If iMil 1 Then stTmp = Trim$(fGetPrim(Left(vNúmero, iPrim), iUlt,
   iMil))
   End If
   ‘Verificar si la cantidad es «*001###»
   ‘para saber si es una cantidad «mil» y no evaluar fGetResto
   If iLong > 5 And Left$(Right(vNúmero, 6), 3) = «001» Then
   iMil = 2
   End If
   For I = 1 To iNum3
   ‘si se dijo que era una unidad después del primer tercio es plural
   If I > 1 Then iSing = False
   ‘si se forzó a masculino dejar de serlo después del primer tercio
   If I > 1 And stCampo stGénero Then stCampo = stGénero
   ‘Get miles o millones sólo si existen dígitos restantes o después
   del primer tercio
   If (iPrim > 0 Or I > 1) Then
   If I > 1 And I < iNum3 + 1 Then If Not Mid$(vNúmero, iPrim + 1 + ((I - 2) * 3), 3) = "000" Then stTmp = Trim$(stTmp & " " & fGetMil(iNum3 + 1 - I, iSing)) End If Else stTmp = Trim$(stTmp & " " & fGetMil(iNum3 + 1 - I, iSing)) End If End If If (I = iNum3 - 1 And iMil 2) Or I iNum3 - 1 Then stTmp = Trim$(stTmp & " " & fGetResto(Mid$(vNúmero, ((I - 1) * 3) + 1 + iPrim, 3), I, iMil)) Next I fConvertir = Trim$(stTmp) fConvertir_Salida: On Error Resume Next rsNum.Close dbNum.Close Exit Function fConvertir_Err: Beep MsgBox Error$, 48 Or 0, "Conversión números en letras" Resume fConvertir_Salida End Function Private Function fGetMil(I As Integer, iSing As Integer) As String Dim stTmp As String If I = 2 Then If iSing Then stTmp = "MILLÓN" Else stTmp = "MILLONES" End If ElseIf I = 1 Or I = 3 Then stTmp = "MIL" End If fGetMil = stTmp End Function Private Function fGetPrim(n As String, iP As Integer, iMil) As String Const UNION_NUMEROS = " Y " Const NUM_DOBLE_1 = "21" Const NUM_DOBLE_2 = "1" Dim stTmp As String Dim stn As String stn = CStr(CInt(n)) If iEnd_un Then iP = iEnd_un If (iP And (stn = NUM_DOBLE_1 Or stn = NUM_DOBLE_2)) Then rsNum.Seek "=", stn + "+" Else rsNum.Seek "=", stn End If If Not rsNum.NoMatch Then If Not (n = "000") Then stTmp = rsNum(stCampo) Else rsNum.Seek "=", Left$(stn, 1) + "0" If Not rsNum.NoMatch Then stTmp = rsNum(stCampo) If (iMil 1 And Right(stn, 1) = NUM_DOBLE_2) And Not (iEnd_un = False And iP = False) Then rsNum.Seek "=", Right$(stn, 1) + "+" Else rsNum.Seek "=", Right$(stn, 1) End If If Len(stTmp) Then If Not rsNum.NoMatch Then stTmp = stTmp & UNION_NUMEROS & rsNum(stCampo) Else If Not rsNum.NoMatch Then stTmp = rsNum(stCampo) End If End If fGetPrim = stTmp End Function Private Function fGetResto(n As String, I As Integer, iMil As Integer) As String Const UNO_EN_CENTENAS = "CIENTO " Dim stTmp As String Dim st1num As String Dim iUlt As Integer If I < iNum3 Then iUlt = True st1num = Left(n, 1) rsNum.Seek "=", n If Not rsNum.NoMatch Then stTmp = rsNum(stCampo) Else Select Case st1num Case "0": stTmp = fGetPrim(n, iUlt, iMil) Case "1": stTmp = UNO_EN_CENTENAS & fGetPrim(Right(n, 2), iUlt, iMil) Case Else rsNum.Seek "=", st1num & "00" If Not rsNum.NoMatch Then stTmp = rsNum(stCampo) & " " & fGetPrim(Right(n, 2), iUlt, iMil) End If End Select End If fGetResto = stTmp End Function Function nl_ConvAuto(vNúmero As Variant, stGénero As String) On Error GoTo nl_ConvertirAuto_Err Const TXT_UNION = " CON " Dim stDec As String stDec = nl_ConvDecimal(vNúmero, stGénero) If Len(stDec) Then nl_ConvAuto = nl_ConvEntero(vNúmero, stGénero) & TXT_UNION & stDec Else nl_ConvAuto = nl_ConvEntero(vNúmero, stGénero) End If Exit Function nl_ConvertirAuto_Err: Beep MsgBox Error$, 48 Or 0, "Conversión automática de decimales" Exit Function End Function Function nl_ConvDecimal(vNúmero As Variant, stGénero As String) As String On Error GoTo nl_ConvDecimal_Err Const TXT_0 = "CERO " Const INICIO_DEC = 2 Dim iCeros As Integer, iLong_Num As Integer Dim stTmp As String, I As Integer Dim stGen As String, vTmp As Variant If Not IsNumeric(vNúmero) Then Exit Function vTmp = CDbl(vNúmero) Dim iLong_Ent As Integer, iInicDec As Integer iLong_Ent = Len(CStr(Fix(vTmp))) If Fix(vTmp) = 0 Then iInicDec = INICIO_DEC - 1 Else iInicDec = INICIO_DEC End If If iLong_Ent + iInicDec > Len(CStr(vTmp)) Then Exit Function
   vTmp = (Mid(vTmp, iLong_Ent + iInicDec))
   stGen = stGénero
   iLong_Num = Len(CStr(vTmp))
   If iLong_Num > MAX_LNG Then
   vTmp = Left(vTmp, MAX_LNG)
   iLong_Num = MAX_LNG
   End If
   If iLong_Num > 0 Then
   vTmp = Fix(vTmp)
   iCeros = iLong_Num – Len(CStr(vTmp))
   If iCeros Then
   For I = 1 To iCeros
   stTmp = stTmp & TXT_0
   Next I
   End If
   If vTmp < 10 And iLong_Num = 1 Then vTmp = vTmp * 10 stTmp = stTmp & fConvertir(vTmp, stGen) nl_ConvDecimal = stTmp End If Exit Function nl_ConvDecimal_Err: Beep MsgBox Error$, 48 Or 0, "Conversión de decimales" Exit Function End Function Function nl_ConvEntero(vNúmero As Variant, stGénero As String) As String On Error GoTo nl_ConvEntero_Err Const TXT_SGN = "MENOS " Dim stGen As String, stTmp As String, iSgn As Integer If Not IsNumeric(vNúmero) Then Exit Function stGen = stGénero iSgn = Sgn(vNúmero) If iSgn = -1 Then stTmp = TXT_SGN stTmp = stTmp & fConvertir(Fix(Abs(vNúmero)), stGen) nl_ConvEntero = stTmp Exit Function nl_ConvEntero_Err: Beep MsgBox Error$, 48 Or 0, "Conversión de enteros" Exit Function End Function 'El autor es: Microsol

   Responder

10. decimales

    saludos, la fórmula que me envían redondea los números décimales y yo necesito que aparezcan completos, ud sabe cuál sería la fórmula para esto: por ejemplo son 5,355.54 cuando lo pasa a letras me dice: trescientos cincuenta y seis 00/100

    Responder

11. Descarga

    Ya está solucionado el tema de la descarga, bájate el ejemplo y lo verás mucho más claro.

    Responder

12. descarga del ejemplo

    hola mi nombre es angelica, no se mucho de access pero estoy buscando la forma de convertir un numero en letras. ya hice la base de datos, la tabla y el formulario.
    en la tabla tengo el campo total con formato letra, solo me falta que en el formulario se vea la letras del total.
    por fa no pude tampoco descargar el ejemplo.
    p.d. el codigo que viene aqui donde lo grabo, y como lo ejecuto, la verdad en macros estoy en ceros….
    muchas gracias por la respuesta….

    Responder

13. Otra forma un poco mas simple de entender es:

    Option Compare Database
    Public Letras As String
    Public Bandera As Byte
    Function numToLet(cantidad As Double)
    Bandera = 1
    Dim valor1 As String
    Dim valor2 As String
    Dim valor3 As String
    Dim valor4 As String
    Entero = CInt(cantidad)
    Letras = CStr(Entero)
    largo = Len(Trim(Letras))
    Select Case largo
    Case Is = 4
    valor1 = Mid(Letras, 1, 1)
    valor2 = Mid(Letras, 2, 1)
    valor3 = Mid(Letras, 3, 1)
    valor4 = Mid(Letras, 4, 1)
    numToLet = UCase(miles(valor1) & centenas(valor2) & decenas(valor3) & unidad(valor4))
    Case Is = 3
    valor1 = Mid(Letras, 1, 1)
    valor2 = Mid(Letras, 2, 1)
    valor3 = Mid(Letras, 3, 1)
    numToLet = UCase(centenas(valor1) & decenas(valor2) & unidad(valor3))
    Case Is = 2
    v1 = Mid(Letras, 1, 1)
    v2 = Mid(Letras, 2, 1)
    Case Is = 1
    v1 = Mid(Letras, 1, 1)
    Case Else
    MsgBox «Cantidad fuera de rango»
    End Select
    End Function
    Function miles(digito As String)
    PrimeraCifra = digito
    Select Case PrimeraCifra
    Case Is = 1
    NtoL01 = «un mil »
    Case Is = 2
    NtoL01 = «dos mil »
    Case Is = 3
    NtoL01 = «tres mil »
    Case Is = 4
    NtoL01 = «cuatro mil »
    Case Is = 5
    NtoL01 = «cinco mil »
    Case Is = 6
    NtoL01 = «seis mil »
    Case Is = 7
    NtoL01 = «siete mil »
    Case Is = 8
    NtoL01 = «ocho mil »
    Case Is = 9
    NtoL01 = «nueve mil »
    Case Else
    NtoL01 = «»
    End Select
    miles = NtoL01
    End Function
    Function centenas(digito As String)
    PrimeraCifra = digito
    Select Case PrimeraCifra
    Case Is = 1
    NtoL02 = «Ciento »
    Case Is = 2
    NtoL02 = «Doscientos »
    Case Is = 3
    NtoL02 = «Trescientos »
    Case Is = 4
    NtoL02 = «Cuatrocientos »
    Case Is = 5
    NtoL02 = «Quinientos »
    Case Is = 6
    NtoL02 = «Seiscientos »
    Case Is = 7
    NtoL02 = «Setecientos »
    Case Is = 8
    NtoL02 = «Ochocientos »
    Case Is = 9
    NtoL02 = «Novecientos »
    Case Else
    NtoL02 = «»
    End Select
    centenas = NtoL02
    End Function
    Function decenas(digito As String)
    PrimeraCifra = digito
    Select Case PrimeraCifra
    Case Is = 1
    Bandera = 2 ‘ para anular la funcion Unidad cuando el valor es entre 11 y 19
    Select Case Right(Letras, 2)
    Case Is = «10»
    NtoL03 = «Diez»
    Case Is = «11»
    NtoL03 = «Once»
    Case Is = «12»
    NtoL03 = «Doce»
    Case Is = «13»
    NtoL03 = «Trece»
    Case Is = «14»
    NtoL03 = «Catorce»
    Case Is = «15»
    NtoL03 = «Quince»
    Case Is = «16»
    NtoL03 = «Dieciseis»
    Case Is = «17»
    NtoL03 = «Diecisiete»
    Case Is = «18»
    NtoL03 = «Dieciocho»
    Case Is = «19»
    NtoL03 = «Diecinueve»
    End Select
    Case Is = 2
    NtoL03 = «Veinte »
    Case Is = 3
    NtoL03 = «Treinta »
    Case Is = 4
    NtoL03 = «Cuarenta »
    Case Is = 5
    NtoL03 = «Cincuenta »
    Case Is = 6
    NtoL03 = «Sesenta »
    Case Is = 7
    NtoL03 = «Setenta »
    Case Is = 8
    NtoL03 = «Ochenta »
    Case Is = 9
    NtoL03 = «Noventa »
    Case Else
    NtoL03 = «»
    End Select
    decenas = NtoL03
    End Function
    Function unidad(digito As String)
    If Bandera = 2 Then
    Exit Function
    End If
    PrimeraCifra = digito
    Select Case PrimeraCifra
    Case Is = 0
    NtoL04 = «»
    Case Is = 1
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «uno»
    Else
    NtoL04 = » y uno»
    End If
    Case Is = 2
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Dos»
    Else
    NtoL04 = «y Dos»
    End If
    Case Is = 3
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Tres»
    Else
    NtoL04 = «y Tres»
    End If
    Case Is = 4
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Cuatro»
    Else
    NtoL04 = «y Cuatro»
    End If
    Case Is = 5
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Cinco»
    Else
    NtoL04 = «y Cinco»
    End If
    Case Is = 6
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Seis»
    Else
    NtoL04 = «y Seis»
    End If
    Case Is = 7
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Siete»
    Else
    NtoL04 = «y Siete»
    End If
    Case Is = 8
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Ocho»
    Else
    NtoL04 = «y Ocho»
    End If
    Case Is = 9
    If Left(Right(Letras, 2), 1) = «0» Then
    NtoL04 = «Nueve»
    Else
    NtoL04 = «y Nueve»
    End If
    Case Else
    NtoL04 = «»
    End Select
    unidad = NtoL04
    End Function

    Responder

14. Una vez generado, lo puedes

    Una vez generado, lo puedes guardar en cualquier campo.

    Responder

15. POR FAVOR

    señores muchas gracias por podrian colaborarme en enviarme un link o algo parecido para yo poder descargar el formulario ya hecho, la verdad no tengo conocimientos en acces y entiendo lo del código, solo es un formulario con dos campos de texto , numero y su equivalente en letras,
    Mil gracias por su colaboracion

    Responder

16. Descarga el ejemplo

    Si miras al final del artículo, hay un enlace para descargar con un claro ejemplo, verás que es precisamente lo que buscas.

    Responder

17. agregar las letras a un campo

    Se puede que al generar esto automaticamente agregue las letras al campo requerido?, Gracias

    Responder

18. Access, convertir números a letras

    Gracias de nuevo por la rapidez, creo que probaré directamente con el formulario integrándolo en mi base

    Responder

19. Convertir números a letras en access

    he leído vuestro truco y me parece genial, el problema mío es que prácticamente no se nada de visual y no se cómo aplicar el código, en concreto yo trabajo con un formulario de compras que genera un informe con el detalle de la factura, quisiera que en ese informe me saliera la cantidad en letras, pero no se donde incorporar el código,
    muchas gracias

    Responder

20. Access, convertir números a letras.

    Eso se puede hacer de muchas formas, una sería (como en el ejemplo) convertir en el mismo formulario y guardarlo en la tabla de cabeceras de facturas, luego en el informe tan solo es añadir ese campo.
    Lógicamente tienes que saber algo de código pero viendo el ejemplo, que te puedes descargar, es fácil ver como va, fíjate en los eventos y funciones.

    Responder

21. Access

    En el ejemplo se usa un formulario donde se convierte los números a letras, si eso lo quieres guardar en una tabla tan solo tienes que crearla y traspasar esos datos del formulario a la tabla.
    Otra forma sería que el origen de los controles del formulario los cojas de la tabla.

    Responder

22. acces convertir letras en números

    Buen día
    Amigos me podrian colaborar necesito una db para imprimir cheques en pesos colombianos me pueden ayudar es que no tengo mucho conocimiento, lo que realmente necesito un formulario con dos cajones de texto uno donde se introduzca el el valor numerico y otro donde aparezca el valor en letras con decimales, lo demas creo que puedo hacerlo, por favor pueden colaborarme? mi correo es [email protected] les estaré muy agradecido.

    Responder

23. Descargar ejemplo

    Al final del articulo tienes un enlace donde te puedes descargar un ejemplo.

    Responder

24. numeros a letras en acces,

    hola tienes razon , pero realmente no encuentro la tabla donde estan alojados los datos supongo que lo realizaron por código, lo que necesito es que esto quede guardado en una tabla para yo poder modificarla gracias.
    La tabla debe contener dos campos valor numeros y valor en letras un formulario y listo, mil gracias.

    Responder

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.