Fecha de nacimiento a partir del rfc

PROCEDURE GP_DameFechaNacimiento(sTipoPersona, sRFC)
dFechaNacimiento is Date
sCadenaFecha     is string
sCadenaAño         is string

IF sTipoPersona = "F" THEN
    sCadenaFecha = Middle(sRFC,5,6)
    sCadenaAño     = Middle(sRFC,5,2)
ELSE
    sCadenaFecha = Middle(sRFC,4,6)
    sCadenaAño     = Middle(sRFC,4,2)
END

dFechaNacimiento = StringToDate(sCadenaFecha,"AAMMDD")

IF dFechaNacimiento > Now() THEN
    sCadenaFecha = "19" + sCadenaFecha
    dFechaNacimiento = StringToDate(sCadenaFecha,"AAAAMMDD")
END


RESULT dFechaNacimiento

Genera identificador de un registro

PROCEDURE GP_DameIdentificador()
dtFechaActual    is DateTime

InitRandom()
nAleatorio           is int      = Random(100000,999999)
sIdRegistro         is string = dtFechaActual + NumToString(nAleatorio)
RESULT             sIdRegistro