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