Algoritmo pra determinar RFC y CURP en México

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

Algoritmo pra determinar RFC y CURP en México

Notapor conta-conta » 07 Mar 2005 16:48

Puedes descargar las plantillas para calcular RFC y CURP de una lista de personas desde aquí:

http://www.todoexcel.com/curp-y-rfc/

Salu2.xls
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
conta-conta
Miembro Frecuente
Miembro Frecuente
 
Registrado: 04 Mar 2005 19:35
Ubicación: Mexico

Notapor conta-conta » 07 Mar 2005 17:00

Nota sobre el RFC:
El RFC en México es lo mismo que el NIF en España.
En México no es ilegal determinar el RFC sin embargo, cuando haces algun tramite con alguna dependencia pública y no aparece tu RFC (ahora CURP) aunque lo sepas, legalmente no estas inscrito.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
conta-conta
Miembro Frecuente
Miembro Frecuente
 
Registrado: 04 Mar 2005 19:35
Ubicación: Mexico

Notapor galileogali » 22 Nov 2005 20:42

Puedes descargar las plantillas para calcular RFC y CURP de una lista de personas desde aquí:

http://www.todoexcel.com/curp-y-rfc/

Salu2.xls
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
galileogali
Moderator
Moderator
 
Registrado: 07 Ene 2005 22:46
Ubicación: QUIROGA (ba), ARGENTINA

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 07 Dic 2005 13:07

Puedes descargar las plantillas para calcular RFC y CURP de una lista de personas desde aquí:

http://www.todoexcel.com/curp-y-rfc/

Salu2.xls
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 07 Dic 2005 23:27

********************CURP - HOMOCLAVE - DIGITO VERIFICADOR ********************

********************CURP - HOMOCLAVE - DIGITO VERIFICADOR ********************

********************CURP - HOMOCLAVE - DIGITO VERIFICADOR ********************


***** RUTINAS PARA CALCULAR HOMCLAVE Y DIGITO VERIFICADOR DE LA CURP (MEXICO). ******

La homoclave es el único dí­gito que asigna la RENAPO, pero por lo general es \"0 al 9\" para nacidos antes del 2000 y \"A a Z\" para nacidos a partir del 2000, cuando la RENAPO encuentra que en los primeros 16 dí­gitos ya existe una clave igual en su base de datos, modifica este consecutivo para que sea diferente. Por lo tanto, aunque puedas generar la hmoclave con el un programa, de todas formas hay que verificar con la CURP oficial.

... y ahi va el código (está en Visual Basic):

\'HOMOCLAVE
Function homoclave(ByVal ip_fechaNac As Date) As String
If Year(ip_fechaNac) < 2000 Then
Return \"0\"
Else
Return \"A\"
End If
End Function


\'CALCULA DIGITO VERIFICADOR
Function verificadorCurp(ByVal ip_curp As String) As String
Dim arreglo1 As String = \"0123456789ABCDEFGHIJKLMN-OPQRSTUVWXYZ*\"
Dim arreglo2() As String = Split(\"00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37\", \",\")
Dim l_car As String
Dim l_vals As String
Dim l_acum As String
Dim l_digito As String
Dim l_posicion As Integer
Dim l_residuo As Integer
Dim l_valor As Integer
Dim l_i As Integer

If ip_curp.Length < 17 Then
\'Error. Debe de recibir los primeros 17 dí­gitos de la curp.
Return \"\"
End If

\' Ciclo para obtener los valores de CADA caracter de la Curp en \"arreglo2()
\' y armar una cadena con estos valores
For l_i = 1 To Len(ip_curp)
l_car = Mid(ip_curp, l_i, 1) \'Caracter actual
If l_car = \" \" Then l_car = \"*\"

\'busca posicion del caracter dentro del \"arreglo1\"
l_posicion = arreglo1.IndexOf(l_car)
If l_posicion > -1 Then
l_vals &= arreglo2(l_posicion)
Else
l_vals &= \"00\"
End If
Next

\'Sumatoria de valores
For l_i = 1 To 17
l_acum += Val(Mid(l_vals, l_i * 2 - 1, 2)) * (19 - l_i)
Next

l_residuo = l_acum Mod 10

If l_residuo = 0 Then
l_digito = \"0\"
Else
l_valor = 10 - l_residuo
l_digito = Microsoft.VisualBasic.Right(CStr(l_valor), 1) \'Toma solo el dí­gito de la derecha
End If
Return l_digito
End Function
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 07 Dic 2005 23:47

el archivo no lo subo por que el wey de mi amigo, lo blokeo con una contraseña y no lo puedo abrir pesa 2.1 megas
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Re: Algoritmo pra determinar RFC y CURP en México

Notapor lrivera_07 » 08 Dic 2005 12:33

Hola SwordfishCerberos:

Me podrias mandar el archivo por correo, para calcular el curp en excel, te lo agradeceriamucho , si tiene clave no importa que se la puedo quitar. Gracias

lriverita@gmail.com
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
lrivera_07
Miembro Frecuente
Miembro Frecuente
 
Registrado: 15 Mar 2005 15:34
Ubicación: México

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 08 Dic 2005 17:04

Ya te lo envie,
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 08 Dic 2005 17:08

La contraseña del archivo que envie es bbbabbaabab
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Re: Algoritmo pra determinar RFC y CURP en México

Notapor Blacksak » 06 Feb 2006 14:52

Hola SwordfishCerberos:

Me podrias mandar el archivo por correo, para calcular el curp en excel, le puedo quitar el password y si te interesa te paso la utileria para que se lo quites.

Blacksak@hotmail.com

saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Blacksak
Miembro Nuevo
Miembro Nuevo
 
Registrado: 06 Feb 2006 14:49
Ubicación: JAROCHO

Re: Algoritmo pra determinar RFC y CURP en México

Notapor AXELLL » 07 Feb 2006 04:08

VA UN ARCHIVO PARA EL CALCULO DE LA CURP
LE REDUJE LA CANTIDAD DE CALCULOS PARA PODERLO ENVIAR

Blacksak ESPERO LA UTILERIA PARA QUITAR EL PASSWORD

axelll59@hotmail.com

HELP!!!!!!! NO PUEDO ENVIAR EL ARCHIVO ME SALE EL SIGUIENTE MENSAJE.....QUE HAGO?

Lo sentimos pero el tamaño total de adjuntos esta completo, comunicate con un administrador para mas informacion
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
AXELLL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 20 Dic 2005 03:03
Ubicación: MEXICO

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 07 Feb 2006 17:46

Amigo Ya lo mande a tu cuenta.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Re: Algoritmo pra determinar RFC y CURP en México

Notapor AXELLL » 08 Feb 2006 00:26

A VER SI AHORA SE PUEDE
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
AXELLL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 20 Dic 2005 03:03
Ubicación: MEXICO

Re: Algoritmo pra determinar RFC y CURP en México

Notapor AXELLL » 08 Feb 2006 00:27

UF!!!!! LO LOGREEEEEEEEE

QUE ME ENVIASTE A MI CUENTA SwordfishCerberos?
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
AXELLL
Miembro Frecuente
Miembro Frecuente
 
Registrado: 20 Dic 2005 03:03
Ubicación: MEXICO

Re: Algoritmo pra determinar RFC y CURP en México

Notapor SwordfishCerberos » 08 Feb 2006 00:41

Le envie el archivo a black, disculpa, es k no se puse aquien
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
SwordfishCerberos
Miembro Frecuente
Miembro Frecuente
 
Registrado: 19 Oct 2005 16:59
Ubicación: Veracruz

Siguiente

Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: Google [Bot], rogman y 15 invitados