isabel_cristina
22 de Julio del 2003

Amigos, alguno de ustedes tendra una rutina que calcule el RFC (Registro Federal de Causantes), en base al nombre y fecha de nacimiento.
Si conocen alguna que no sea en VB no importa!!!

Muchas Gracias!!

silvergg
22 de Julio del 2003

hola, si partes de tener separados los apellidos y el nombre, sería algo asi

RFC=mid(apepat,1,1)& vocal(apepat) & (apemat,1,1) & mi(nombres1,1) & añonac(fecha) & mesnac(fecha) & dianac(fecha)

añonac = Microsoft.VisualBasic.Year(fecha)
dianac=Microsoft.VisualBasic.Day(fecha)
mesnacMicrosoft.VisualBasic.Month(fecha)

\'falta checar el formato de día y mes, para que sea de dos caracteres
\'asi como el año con Format( _
ByVal Expression As Object, _
Optional ByVal Style As String = "" _
) As String
\'la funcion de vocal(cadena), debe buscar la primera vocal de la cadena y devolverla

disculpa lo escueto
saludos