CURP Y RFC (México)

[oabareload]

Código HTML:

<label>Sexo
    <select>
        <option value="Hombre">Hombre</option>
        <option value="Mujer">Mujer</option>
    </select>
</label>


<label>Lugar de Nacimiento
    <select>
        <option value="AS">AGUASCALIENTES</option>
        <option value="BC">BAJA CALIFORNIA</option>
        <option value="BS">BAJA CALIFORNIA SUR</option>
        <option value="CC">CAMPECHE</option>
        <option value="CL">COAHUILA DE ZARAGOZA</option>
        <option value="CM">COLIMA</option>
        <option value="CS">CHIAPAS</option>
        <option value="CH">CHIHUAHUA</option>
        <option value="DF">DISTRITO FEDERAL</option>
        <option value="DG">DURANGO</option>
        <option value="GT">GUANAJUATO</option>
        <option value="GR">GUERRERO</option>
        <option value="HG">HIDALGO</option>
        <option value="JC">JALISCO</option>
        <option value="MC">MEXICO</option>
        <option value="MN">MICHOACAN DE OCAMPO</option>
        <option value="MS">MORELOS</option>
        <option value="NT">NAYARIT</option>
        <option value="NL">NUEVO LEON</option>
        <option value="OC">OAXACA</option>
        <option value="PL">PUEBLA</option>
        <option value="QT">QUERETARO DE ARTEAGA</option>
        <option value="QR">QUINTANA ROO</option>
        <option value="SP">SAN LUIS POTOSI</option>
        <option value="SL">SINALOA</option>
        <option value="SR">SONORA</option>
        <option value="TC">TABASCO</option>
        <option value="TS">TAMAULIPAS</option>
        <option value="TL">TLAXCALA</option>
        <option value="VZ">VERACRUZ</option>
        <option value="YN">YUCATAN</option>
        <option value="ZS">ZACATECAS</option>
        <option value="NE">NACIDO EN EL EXTRANJERO</option>
    </select>
</label> 

Nombre -> El nombre de la persona
Appat - > El Apellido Paterno de la persona
Apmat - > El Apellido Materno de la persona
d - > Día del nacimiento de la persona ó day(fechadenacimiento)
m - > Mes de nacimiento de la persona ó month(fechadenacimiento)
a - > Año de nacimiento de la persona ó year(fechadenacimiento)
sexo - > Género de la persona (Hombre ó Mujer)
estado - > La abreviación del estado donde nacio la persona

Código PHP:

  
vocales = array("A","E","I","O","U") '5
consonantes = array("B","C","D","F","G","H","I","J","K","L","M","N","Ñ","P","Q","R","S","T","V","W","X","Y","Z") '23

Function menor(que)
    menor=right(que,2)
End Function

Function curp(nombre, appat, apmat, d, m, a, sexo, estado)
    appat=reemplazar(UCASE(Trim(appat)))
    apmat=reemplazar(UCASE(Trim(apmat)))
    nombre=reemplazar(UCASE(Trim(nombre)))
    divpa = split(appat, " ")
    divma = split(apmat, " ")
    divno = split(nombre, " ")
    appat=divpa(0)
    apmat=divma(0)
    nombre=divno(0)
    response.write Left(appat,1)
    for i = 2 to (len(appat))
        for j=0 to 4
            if vocales(j) = mid(appat,i,1) then
                response.write mid(appat,i,1)
                j=4
                i=len(appat)
            end if
        next
    next
    response.write Left(apmat,1)
    response.write Left(nombre,1)
    response.write mid(a,3,2)
    response.write menor("0"&m)
    response.write menor("0"&d)
    response.write Left(sexo,1)
    response.write estado
    for i = 2 to (len(appat))
        for j=0 to 22
            if consonantes(j) = mid(appat,i,1) then
                response.write mid(appat,i,1)
                j=22
                i=len(appat)
            end if
        next
    next
    for i = 2 to (len(apmat))
        for j=0 to 22
            if consonantes(j) = mid(apmat,i,1) then
                response.write mid(apmat,i,1)
                j=23
                i=len(apmat)
            end if
        next
    next
    for i = 2 to (len(nombre))
        for j=0 to 22
            if consonantes(j) = mid(nombre,i,1) then
                response.write mid(nombre,i,1)
                j=22
                i=len(nombre)
            end if
        next
    next
End Function

Function rfc(nombre, appat, apmat, d, m, a)
    appat=reemplazar(UCASE(Trim(appat)))
    apmat=reemplazar(UCASE(Trim(apmat)))
    nombre=reemplazar(UCASE(Trim(nombre)))
    divpa = split(appat, " ")
    divma = split(apmat, " ")
    divno = split(nombre, " ")
    appat=divpa(0)
    apmat=divma(0)
    nombre=divno(0)
    response.write Left(appat,1)
    for i = 2 to (len(appat))
        for j=0 to 4
            if vocales(j) = mid(appat,i,1) then
                response.write mid(appat,i,1)
                j=4
                i=len(appat)
            end if
        next
    next
    response.write Left(apmat,1)
    response.write Left(nombre,1)
    response.write mid(a,3,2)
    response.write menor("0"&m)
    response.write menor("0"&d)
End Function 
   

[Myakire]

Es un aporte? Es una pregunta?

[oabareload]

Iniciado por Myakire

Es un aporte? Es una pregunta?

Upss... es un Aporte... se me olvido... upss jejeje