Fiscalia

Aclaro que el codigo no es mio, solo lo encontre y lo pongo a disposicion de ustedes pues es de acceso gratuito en otra pagina [code:1:29203d009b]Option Explicit 'Césa Castro 'Enero-97 'http://geocities.com/chamarrasdepiel 'Argumentos: 'Numero = Valor que deseamos convertir en texto 'Moneda = es el nombre de la moneda a mostrar 'Fraccion_Letras = Verdadero para que la fraccion de la moneda ' tambien la convierta a letras 'Fraccion = Es el nombre de la fraccion de la moneda 'Texto_Inicial = Cualquier texto que quieras al principio del resultado 'Texto_Final = Cualquier texto que quieras al finla del resultado 'Estilo = Formato de salida ' 1 = MAYUSCULAS ' 2 = minusculas ' 3 = Tipo Titulo 'Los valores negativos los convierte a positivos 'El valor minimo en 0, el valor maximo es 9,999,999,999,999.99 Public Function Numeros_Letras(ByVal Numero As Double, _ ByVal Moneda As String, _ Optional Fraccion_Letras As Boolean = False, _ Optional Fraccion As String = "", _ Optional Texto_Inicial As String = "", _ Optional Texto_Final As String = "", _ Optional Estilo As Integer = 1) As String Dim strLetras As String Dim NumTmp As String Dim intFraccion As Integer strLetras = Texto_Inicial 'Convertimos a positivo si es negativo Numero = Abs(Numero) NumTmp = Format(Numero, "000000000000000.00") If Numero < 1 Then strLetras = strLetras & "cero " & Plural(Moneda) & " " Else strLetras = strLetras & NumLet(Val(Left(NumTmp, 15))) If Val(NumTmp) = 1 Or Val(NumTmp) < 2 Then strLetras = strLetras & Moneda & " " ElseIf Val(Mid(NumTmp, 4, 12)) = 0 Or Val(Mid(NumTmp, 10, 6)) = 0 Then strLetras = strLetras & "de " & Plural(Moneda) & " " Else strLetras = strLetras & Plural(Moneda) & " " End If End If If Fraccion_Letras Then intFraccion = Val(Right(NumTmp, 2)) Select Case intFraccion Case 0 strLetras = strLetras & "con cero " & Plural(Fraccion) Case 1 strLetras = strLetras & "con un " & Fraccion Case Else strLetras = strLetras & "con " & NumLet(Val(Right(NumTmp, 2))) & Plural(Fraccion) End Select Else strLetras = strLetras & Right(NumTmp, 2) End If strLetras = strLetras & Texto_Final Select Case Estilo Case 1 strLetras = StrConv(strLetras, vbUpperCase) Case 2 strLetras = StrConv(strLetras, vbLowerCase) Case 3 strLetras = StrConv(strLetras, vbProperCase) End Select Numeros_Letras = strLetras End Function Public Function NumLet(ByVal Numero As Double) As String Dim NumTmp As String Dim co1 As Integer Dim co2 As Integer Dim pos As Integer Dim dig As Integer Dim cen As Integer Dim dec As Integer Dim uni As Integer Dim letra1 As String Dim letra2 As String Dim letra3 As String Dim Leyenda As String Dim TFNumero As String NumTmp = Format(Numero, "000000000000000") 'Le da un formato fijo co1 = 1 pos = 1 TFNumero = "" 'Para extraer tres digitos cada vez Do While co1 <= 5 co2 = 1 Do While co2 <= 3 'Extrae un digito cada vez de izquierda a derecha dig = Val(Mid(NumTmp, pos, 1)) Select Case co2 Case 1: cen = dig Case 2: dec = dig Case 3: uni = dig End Select co2 = co2 + 1 pos = pos + 1 Loop letra3 = Centena(uni, dec, cen) letra2 = Decena(uni, dec) letra1 = Unidad(uni, dec) Select Case co1 Case 1 If cen + dec + uni = 1 Then Leyenda = "billon " ElseIf cen + dec + uni > 1 Then Leyenda = "billones " End If Case 2 If cen + dec + uni >= 1 And Val(Mid(NumTmp, 7, 3)) = 0 Then Leyenda = "mil millones " ElseIf cen + dec + uni >= 1 Then Leyenda = "mil " End If Case 3 If cen + dec = 0 And uni = 1 Then Leyenda = "millon " ElseIf cen > 0 Or dec > 0 Or uni > 1 Then Leyenda = "millones " End If Case 4 If cen + dec + uni >= 1 Then Leyenda = "mil " End If Case 5 If cen + dec + uni >= 1 Then Leyenda = "" End If End Select co1 = co1 + 1 TFNumero = TFNumero + letra3 + letra2 + letra1 + Leyenda Leyenda = "" letra1 = "" letra2 = "" letra3 = "" Loop NumLet = TFNumero End Function Private Function Centena(ByVal uni As Integer, ByVal dec As Integer, _ ByVal cen As Integer) As String Dim cTexto As String Select Case cen Case 1 If dec + uni = 0 Then cTexto = "cien " Else cTexto = "ciento " End If Case 2: cTexto = "doscientos " Case 3: cTexto = "trescientos " Case 4: cTexto = "cuatrocientos " Case 5: cTexto = "quinientos " Case 6: cTexto = "seiscientos " Case 7: cTexto = "setecientos " Case 8: cTexto = "ochocientos " Case 9: cTexto = "novecientos " Case Else: cTexto = "" End Select Centena = cTexto End Function Private Function Decena(ByVal uni As Integer, ByVal dec As Integer) As String Dim cTexto As String Select Case dec Case 1: Select Case uni Case 0: cTexto = "diez " Case 1: cTexto = "once " Case 2: cTexto = "doce " Case 3: cTexto = "trece " Case 4: cTexto = "catorce " Case 5: cTexto = "quince " Case 6 To 9: cTexto = "dieci" End Select Case 2: If uni = 0 Then cTexto = "veinte " ElseIf uni > 0 Then cTexto = "veinti" End If Case 3: cTexto = "treinta " Case 4: cTexto = "cuarenta " Case 5: cTexto = "cincuenta " Case 6: cTexto = "sesenta " Case 7: cTexto = "setenta " Case 8: cTexto = "ochenta " Case 9: cTexto = "noventa " Case Else: cTexto = "" End Select If uni > 0 And dec > 2 Then cTexto = cTexto + "y " Decena = cTexto End Function Private Function Unidad(ByVal uni As Integer, ByVal dec As Integer) As String Dim cTexto As String If dec <> 1 Then Select Case uni Case 1: cTexto = "un " Case 2: cTexto = "dos " Case 3: cTexto = "tres " Case 4: cTexto = "cuatro " Case 5: cTexto = "cinco " End Select End If Select Case uni Case 6: cTexto = "seis " Case 7: cTexto = "siete " Case 8: cTexto = "ocho " Case 9: cTexto = "nueve " End Select Unidad = cTexto End Function 'Funcion que convierte al plural el argumento pasado Private Function Plural(ByVal Palabra As String) As String Dim pos As Integer Dim strPal As String If Len(Trim(Palabra)) > 0 Then pos = InStr(1, "aeiou", Right(Palabra, 1), vbTextCompare) If pos > 0 Then strPal = Palabra & "s" Else strPal = Palabra & "es" End If End If Plural = strPal End Function[/code:1:29203d009b] La sintaxis de la funcion es esta; =Numeros_Letras( Valor,Moneda,decimales en letras,Texto inicial, texto final,Estilo) Con un ejemplo seria =Numeros_Letras(B3,"dolar",FALSO,"centavo","(","/100 USD)",1) y nos daria el siguiente resultado (TRECE MIL CUATROCIENTOS CINCUENTA Y SEIS DOLARES 66/100 USD) Espero que les sea util :wink: ANONIMO3 Que pacho, Que pacho, Que pacho!!!!

ByPaco Cuando se inserta una nueva funcion como seria la de numeroaletra, al ir al menu insertar - funcion en las personalizadas por el usuario aparece la formula de numeroaletra mi pregunta es, ves que ahi aparece una descripcion de la funcion, como puedo hacer para que la funcion de numeroaletra tenga una descripcion de lo que es esta funcion? GRACIAS ANONIMO3 ---XXX---

Los asimilados al no tener una relacion laboral debes aplicar el subsidio acreditable al 100% aunque el criterio de la autoridad es que les apliques el mismo, tu decides ANONIMO3 o ANONIMO 4?

Mañana la publico aqui, no tengo el archivo a la mano ANONIMO3 Hoy por ti, mañana ... tambien

Y porque diablos no lo borra el administrador de una buena vez? Eso es lo malo de que sea publico el foro ANONIMO3 En la ciudad de la Esperanza, nunca te faltara una buena transa

Esto era precisamente lo que andaba buscando para cargar un par de archivos XLA que tengo para desproteger las hojas pero que no puedo cargar en el libro.xlt dado que no me deja ver el codigo. [quote:9aeb96cd43="ByPaco"]Hay dos opciones, [list=1:9aeb96cd43][*:9aeb96cd43]Crear un archivo personal.xls [list:9aeb96cd43]Abres un libro nuevo, vas al menú herramientas → macros → Grabar macros, al cuado que aparece en la parte donde dice "Este Libro", cambialo por "Libro personal" le das aceptar, luego paras la grabación de macro, esto fue solo para crear el libro, ahora vas a editor de Visual Basic (Menú Herramientas → Macros → Editor Visual Basic), vas a ver la hoja de módulos, solo copia los códigos ahí, grabas y listo[/list:u:9aeb96cd43] [*:9aeb96cd43]Guardar como complemento [list:9aeb96cd43]En un libro nuevo te vas al menú Herramientas → Macros → Editor Visual Basic, insertas Módulo y copias los códigos, regresas a excel (Menú archivo → Cerrar y regresara a Microsoft Excel), en la hoja de excel das guardar o Guardar como, lo guardas como archivo de complemento (*xla), despues lo agregas en el menú Herramientas → Complementos, lo buscas en la ubicación donde lo guardaste, Listo‼[/list:u:9aeb96cd43][/list:o:9aeb96cd43][/quote:9aeb96cd43] Gracias ByPaco

Mmm Habria que cambiar todo el codigo con los textos en español al ingles. Yo lo mas que tengo es un codigo donde cambia de numero a letra puedes seleccionar el tipo de moneda, pero esta en español. Avisame si te interesa ANONIMO3 Juegate las cartas que la brisca la traigo Yo!

ByPaco Existe alguna forma de agregar un menu de ayuda de una funcion personalizada, por ejemplo, le inserte a un libro de trabajo que aparece por default la funcion para convertir de numero a letra. Y al ir al menu Insertar - Funcion en la seccion Definidas por el Usuario aparece la funcion CantidadEnLetra Mi pregunta es ... Puedo cambiar en la funcion de excel el nombre de la funcion para dejarla toda en mayuscula, porque lo hice y ya no jalaba la funcion por lo que tuve que dejarla como estaba y En el menu de insertar funcion abajo viene el nombre de la funcion y una leve ayuda, como podria insertar esta ayuda para que aparezca en la funcion CantidadenLetra? ANONIMO3

La forma mas facil de hacer lo que necesitas es con una tabla dinamica, y es rapidisimo ANONIMO3 ...

Hola De acuerdo con ByPaco Otra opcion seria que para identificar las que aun no pagan le pusieran un formato condicional para que si la celda fecha de pago esta vacia le ponga un color de fondo y de letra que resalte ANONIMO3 Hoy por ti, mañana ... tambien

Autor	Mensaje
Tópico: ayuda con formula
ANONIMO3 Mensajes: 20	Foro: Excel Enviado: Agosto 25, 2005 Asunto: Re: ayuda con formula
ANONIMO3 Mensajes: 20	Aclaro que el codigo no es mio, solo lo encontre y lo pongo a disposicion de ustedes pues es de acceso gratuito en otra pagina [code:1:29203d009b]Option Explicit 'Césa Castro 'Enero-97 'http://geocities.com/chamarrasdepiel 'Argumentos: 'Numero = Valor que deseamos convertir en texto 'Moneda = es el nombre de la moneda a mostrar 'Fraccion_Letras = Verdadero para que la fraccion de la moneda ' tambien la convierta a letras 'Fraccion = Es el nombre de la fraccion de la moneda 'Texto_Inicial = Cualquier texto que quieras al principio del resultado 'Texto_Final = Cualquier texto que quieras al finla del resultado 'Estilo = Formato de salida ' 1 = MAYUSCULAS ' 2 = minusculas ' 3 = Tipo Titulo 'Los valores negativos los convierte a positivos 'El valor minimo en 0, el valor maximo es 9,999,999,999,999.99 Public Function Numeros_Letras(ByVal Numero As Double, _ ByVal Moneda As String, _ Optional Fraccion_Letras As Boolean = False, _ Optional Fraccion As String = "", _ Optional Texto_Inicial As String = "", _ Optional Texto_Final As String = "", _ Optional Estilo As Integer = 1) As String Dim strLetras As String Dim NumTmp As String Dim intFraccion As Integer strLetras = Texto_Inicial 'Convertimos a positivo si es negativo Numero = Abs(Numero) NumTmp = Format(Numero, "000000000000000.00") If Numero < 1 Then strLetras = strLetras & "cero " & Plural(Moneda) & " " Else strLetras = strLetras & NumLet(Val(Left(NumTmp, 15))) If Val(NumTmp) = 1 Or Val(NumTmp) < 2 Then strLetras = strLetras & Moneda & " " ElseIf Val(Mid(NumTmp, 4, 12)) = 0 Or Val(Mid(NumTmp, 10, 6)) = 0 Then strLetras = strLetras & "de " & Plural(Moneda) & " " Else strLetras = strLetras & Plural(Moneda) & " " End If End If If Fraccion_Letras Then intFraccion = Val(Right(NumTmp, 2)) Select Case intFraccion Case 0 strLetras = strLetras & "con cero " & Plural(Fraccion) Case 1 strLetras = strLetras & "con un " & Fraccion Case Else strLetras = strLetras & "con " & NumLet(Val(Right(NumTmp, 2))) & Plural(Fraccion) End Select Else strLetras = strLetras & Right(NumTmp, 2) End If strLetras = strLetras & Texto_Final Select Case Estilo Case 1 strLetras = StrConv(strLetras, vbUpperCase) Case 2 strLetras = StrConv(strLetras, vbLowerCase) Case 3 strLetras = StrConv(strLetras, vbProperCase) End Select Numeros_Letras = strLetras End Function Public Function NumLet(ByVal Numero As Double) As String Dim NumTmp As String Dim co1 As Integer Dim co2 As Integer Dim pos As Integer Dim dig As Integer Dim cen As Integer Dim dec As Integer Dim uni As Integer Dim letra1 As String Dim letra2 As String Dim letra3 As String Dim Leyenda As String Dim TFNumero As String NumTmp = Format(Numero, "000000000000000") 'Le da un formato fijo co1 = 1 pos = 1 TFNumero = "" 'Para extraer tres digitos cada vez Do While co1 <= 5 co2 = 1 Do While co2 <= 3 'Extrae un digito cada vez de izquierda a derecha dig = Val(Mid(NumTmp, pos, 1)) Select Case co2 Case 1: cen = dig Case 2: dec = dig Case 3: uni = dig End Select co2 = co2 + 1 pos = pos + 1 Loop letra3 = Centena(uni, dec, cen) letra2 = Decena(uni, dec) letra1 = Unidad(uni, dec) Select Case co1 Case 1 If cen + dec + uni = 1 Then Leyenda = "billon " ElseIf cen + dec + uni > 1 Then Leyenda = "billones " End If Case 2 If cen + dec + uni >= 1 And Val(Mid(NumTmp, 7, 3)) = 0 Then Leyenda = "mil millones " ElseIf cen + dec + uni >= 1 Then Leyenda = "mil " End If Case 3 If cen + dec = 0 And uni = 1 Then Leyenda = "millon " ElseIf cen > 0 Or dec > 0 Or uni > 1 Then Leyenda = "millones " End If Case 4 If cen + dec + uni >= 1 Then Leyenda = "mil " End If Case 5 If cen + dec + uni >= 1 Then Leyenda = "" End If End Select co1 = co1 + 1 TFNumero = TFNumero + letra3 + letra2 + letra1 + Leyenda Leyenda = "" letra1 = "" letra2 = "" letra3 = "" Loop NumLet = TFNumero End Function Private Function Centena(ByVal uni As Integer, ByVal dec As Integer, _ ByVal cen As Integer) As String Dim cTexto As String Select Case cen Case 1 If dec + uni = 0 Then cTexto = "cien " Else cTexto = "ciento " End If Case 2: cTexto = "doscientos " Case 3: cTexto = "trescientos " Case 4: cTexto = "cuatrocientos " Case 5: cTexto = "quinientos " Case 6: cTexto = "seiscientos " Case 7: cTexto = "setecientos " Case 8: cTexto = "ochocientos " Case 9: cTexto = "novecientos " Case Else: cTexto = "" End Select Centena = cTexto End Function Private Function Decena(ByVal uni As Integer, ByVal dec As Integer) As String Dim cTexto As String Select Case dec Case 1: Select Case uni Case 0: cTexto = "diez " Case 1: cTexto = "once " Case 2: cTexto = "doce " Case 3: cTexto = "trece " Case 4: cTexto = "catorce " Case 5: cTexto = "quince " Case 6 To 9: cTexto = "dieci" End Select Case 2: If uni = 0 Then cTexto = "veinte " ElseIf uni > 0 Then cTexto = "veinti" End If Case 3: cTexto = "treinta " Case 4: cTexto = "cuarenta " Case 5: cTexto = "cincuenta " Case 6: cTexto = "sesenta " Case 7: cTexto = "setenta " Case 8: cTexto = "ochenta " Case 9: cTexto = "noventa " Case Else: cTexto = "" End Select If uni > 0 And dec > 2 Then cTexto = cTexto + "y " Decena = cTexto End Function Private Function Unidad(ByVal uni As Integer, ByVal dec As Integer) As String Dim cTexto As String If dec <> 1 Then Select Case uni Case 1: cTexto = "un " Case 2: cTexto = "dos " Case 3: cTexto = "tres " Case 4: cTexto = "cuatro " Case 5: cTexto = "cinco " End Select End If Select Case uni Case 6: cTexto = "seis " Case 7: cTexto = "siete " Case 8: cTexto = "ocho " Case 9: cTexto = "nueve " End Select Unidad = cTexto End Function 'Funcion que convierte al plural el argumento pasado Private Function Plural(ByVal Palabra As String) As String Dim pos As Integer Dim strPal As String If Len(Trim(Palabra)) > 0 Then pos = InStr(1, "aeiou", Right(Palabra, 1), vbTextCompare) If pos > 0 Then strPal = Palabra & "s" Else strPal = Palabra & "es" End If End If Plural = strPal End Function[/code:1:29203d009b] La sintaxis de la funcion es esta; =Numeros_Letras( Valor,Moneda,decimales en letras,Texto inicial, texto final,Estilo) Con un ejemplo seria =Numeros_Letras(B3,"dolar",FALSO,"centavo","(","/100 USD)",1) y nos daria el siguiente resultado (TRECE MIL CUATROCIENTOS CINCUENTA Y SEIS DOLARES 66/100 USD) Espero que les sea util :wink: ANONIMO3 Que pacho, Que pacho, Que pacho!!!!
Tópico: Calculadora del día de regreso de vacaciones
ANONIMO3 Mensajes: 13	Foro: Excel Enviado: Agosto 24, 2005 Asunto: Re: Calculadora del día de regreso de vacaciones
ANONIMO3 Mensajes: 13	ByPaco Cuando se inserta una nueva funcion como seria la de numeroaletra, al ir al menu insertar - funcion en las personalizadas por el usuario aparece la formula de numeroaletra mi pregunta es, ves que ahi aparece una descripcion de la funcion, como puedo hacer para que la funcion de numeroaletra tenga una descripcion de lo que es esta funcion? GRACIAS ANONIMO3 ---XXX---
Tópico: subsidio acreditable a asimilados a sueldos
ANONIMO3 Mensajes: 2	Foro: Fiscal Enviado: Agosto 24, 2005 Asunto: Re: subsidio acreditable a asimilados a sueldos
ANONIMO3 Mensajes: 2	Los asimilados al no tener una relacion laboral debes aplicar el subsidio acreditable al 100% aunque el criterio de la autoridad es que les apliques el mismo, tu decides ANONIMO3 o ANONIMO 4?
Tópico: ayuda con formula
ANONIMO3 Mensajes: 20	Foro: Excel Enviado: Agosto 24, 2005 Asunto: Re: ayuda con formula
ANONIMO3 Mensajes: 20	Mañana la publico aqui, no tengo el archivo a la mano ANONIMO3 Hoy por ti, mañana ... tambien
Tópico: FINANCIAMIENTO
ANONIMO3 Mensajes: 4	Foro: Excel Enviado: Agosto 24, 2005 Asunto: Re: FINANCIAMIENTO
ANONIMO3 Mensajes: 4	Y porque diablos no lo borra el administrador de una buena vez? Eso es lo malo de que sea publico el foro ANONIMO3 En la ciudad de la Esperanza, nunca te faltara una buena transa
Tópico: Calculadora del día de regreso de vacaciones
ANONIMO3 Mensajes: 13	Foro: Excel Enviado: Agosto 24, 2005 Asunto:
ANONIMO3 Mensajes: 13	Esto era precisamente lo que andaba buscando para cargar un par de archivos XLA que tengo para desproteger las hojas pero que no puedo cargar en el libro.xlt dado que no me deja ver el codigo. [quote:9aeb96cd43="ByPaco"]Hay dos opciones, [list=1:9aeb96cd43][:9aeb96cd43]Crear un archivo personal.xls [list:9aeb96cd43]Abres un libro nuevo, vas al menú herramientas → macros → Grabar macros, al cuado que aparece en la parte donde dice "Este Libro", cambialo por "Libro personal" le das aceptar, luego paras la grabación de macro, esto fue solo para crear el libro, ahora vas a editor de Visual Basic (Menú Herramientas → Macros → Editor Visual Basic), vas a ver la hoja de módulos, solo copia los códigos ahí, grabas y listo[/list:u:9aeb96cd43] [:9aeb96cd43]Guardar como complemento [list:9aeb96cd43]En un libro nuevo te vas al menú Herramientas → Macros → Editor Visual Basic, insertas Módulo y copias los códigos, regresas a excel (Menú archivo → Cerrar y regresara a Microsoft Excel), en la hoja de excel das guardar o Guardar como, lo guardas como archivo de complemento (*xla), despues lo agregas en el menú Herramientas → Complementos, lo buscas en la ubicación donde lo guardaste, Listo‼[/list:u:9aeb96cd43][/list:o:9aeb96cd43][/quote:9aeb96cd43] Gracias ByPaco
Tópico: ayuda con formula
ANONIMO3 Mensajes: 20	Foro: Excel Enviado: Agosto 24, 2005 Asunto: Re: ayuda con formula
ANONIMO3 Mensajes: 20	Mmm Habria que cambiar todo el codigo con los textos en español al ingles. Yo lo mas que tengo es un codigo donde cambia de numero a letra puedes seleccionar el tipo de moneda, pero esta en español. Avisame si te interesa ANONIMO3 Juegate las cartas que la brisca la traigo Yo!
Tópico: AYUDA
ANONIMO3 Mensajes: 4	Foro: Excel Enviado: Agosto 24, 2005 Asunto: Re: AYUDA
ANONIMO3 Mensajes: 4	ByPaco Existe alguna forma de agregar un menu de ayuda de una funcion personalizada, por ejemplo, le inserte a un libro de trabajo que aparece por default la funcion para convertir de numero a letra. Y al ir al menu Insertar - Funcion en la seccion Definidas por el Usuario aparece la funcion CantidadEnLetra Mi pregunta es ... Puedo cambiar en la funcion de excel el nombre de la funcion para dejarla toda en mayuscula, porque lo hice y ya no jalaba la funcion por lo que tuve que dejarla como estaba y En el menu de insertar funcion abajo viene el nombre de la funcion y una leve ayuda, como podria insertar esta ayuda para que aparezca en la funcion CantidadenLetra? ANONIMO3
Tópico: CONCILIAR
ANONIMO3 Mensajes: 7	Foro: Excel Enviado: Agosto 24, 2005 Asunto: Re: CONCILIAR
ANONIMO3 Mensajes: 7	La forma mas facil de hacer lo que necesitas es con una tabla dinamica, y es rapidisimo ANONIMO3 ...
Tópico: filtros
ANONIMO3 Mensajes: 4	Foro: Excel Enviado: Agosto 09, 2005 Asunto: Re: filtros
ANONIMO3 Mensajes: 4	Hola De acuerdo con ByPaco Otra opcion seria que para identificar las que aun no pagan le pusieran un formato condicional para que si la celda fecha de pago esta vacia le ponga un color de fondo y de letra que resalte ANONIMO3 Hoy por ti, mañana ... tambien

Actualidades

Secciones

Herramientas

Especiales

Legislación

Herramientas

Dólar EUA

18/MAY/24

$16.6893

DOF 17/may/24

INPC

ABR/24

134.336

Inflación +1.48%

Vista Rápida

1.47%

0.98%

8.146303

313.548

Accesos Directos

Tesis

Base de datos actualizada a:

Descargas

Comunidad

¿Qué es comunidad?

Reparto de Utilidades a Trabajadores 2024

Declaración anual 2023 de Personas Físicas

Factura Electrónica CFDI 4.0

¿Nuevo en Fiscalia?

¿Eres miembro Fiscalia?

Contenido

Enlaces

Contáctanos

Sitios del Grupo