FoxPro/Visual FoxPro - Para el pana Dalsonm

Gracias por interesarte en mi inquietud te dejo en este mensage los URL de las paginas que contienen dicha formula matematica aver que pudes hacer tu:

http://es.wikipedia.org/wiki/Cálculo_de_la_fecha_de_Pascua

http://www.laveronica.tripod.com/htm/cuandosemanasanta.html
Espero me puedas ayudar
yo soy nuevo en el campo de la programcion pero me gusta investigar yo soy de Venezuela y este es mi correo por si quieres compartir algo mas.

GRACIAS.

PUBLICARE LA FUNCION POR ESTE MISMO MEDIO.

SALUDOS,
DALSOM,
REP. DOM.

?PASCUA(2006)

FUNCTION PASCUA
PARAMETERS ano
SET DATE TO DMY
SET CENTURY ON

LOCAL cfecha as String
cfecha = []

M = 24
N = 5

a = MOD(ano,19)
b = MOD(ano,4)

c = MOD(ano,7)

d = MOD(((19*a)+M),30)

e = MOD(((2*b)+(4*c)+(6*d)+N),7)

diaenmarzo = 22+d+e
diaenabril = d+e-9

IF BETWEEN(diaenmarzo,1,31)
cfecha = ALLTRIM(STR(diaenmarzo))+[/03/]+ALLTRIM(STR(ano))
IF NOT CDOW(CTOD(cfecha))= 1
cfecha = ALLTRIM(STR(diaenabril))+[/03/]+ALLTRIM(STR(ano))
ENDIF
ELSE
cfecha = ALLTRIM(STR(diaenabril))+[/03/]+ALLTRIM(STR(ano))
ENDIF

RETURN cfecha

CORRECCION , EN LA PARTE DE DIAS EN ABRIL, FIJATE QUE EL MES TIENE 03, DEBE IR 04 QUE CORRESPONDE A ABRIL.

PARAMETERS ano
SET DATE TO DMY
SET CENTURY ON

LOCAL cfecha as String
cfecha = []

M = 24
N = 5

a = MOD(ano,19)
b = MOD(ano,4)

c = MOD(ano,7)

d = MOD(((19*a)+M),30)

e = MOD(((2*b)+(4*c)+(6*d)+N),7)

diaenmarzo = 22+d+e
diaenabril = d+e-9

IF BETWEEN(diaenmarzo,1,31)
cfecha = ALLTRIM(STR(diaenmarzo))+[/03/]+ALLTRIM(STR(ano))
IF NOT CDOW(CTOD(cfecha))= 1
cfecha = ALLTRIM(STR(diaenabril))+[/04/]+ALLTRIM(STR(ano))
ENDIF
ELSE
cfecha = ALLTRIM(STR(diaenabril))+[/04/]+ALLTRIM(STR(ano))
ENDIF

RETURN cfecha

SALUDOS,
DALSOM
REP. DOMINICANA.

Gracias hermano por tu ayuda ya tu tienes mi correo si tienes tiempo me escrives me gustaria relacionarme con la gente que save como usted.