In this post I will show how to calculate the day of the Passover from a year ago.
This is a very simple ASP function which spend a year or a date.
function is this:
Just pass the function a year (positive integer) or date and this will "shoot out" the day of the Passover!
If you do not want to see the day (Sunday) as a result of the function, put this in the penultimate line
instead of
Or look for a guide to the asp function 'FormatDateTime'!
Attention to pass correct values \u200b\u200bto the function. This time I did not do error checking!
as usual for the lazy links or zippino with the script already!
This is a very simple ASP function which spend a year or a date.
function is this:
\u0026lt;%
'script for the calculation of Easter
' Author: Mark Brunelli - www.giuba.it
calcolapasqua function (date)
dim X, A, B, C, D, E, F, G, H, M, J, K, L, N, P, Pday
if IsDate (date) then
'if I had a date
X = year (date)
else' if I spent a number
X=data
end if
'calcolo la pasqua
A=X mod 19
B= int(X/100)
C=X mod 100
D=int(B/4)
E=B mod 4
G=int((8*B+13)/25)
H=(19*A+B-D-G+15)mod 30
M=int((A+11*H)/319)
J=int(C/4) K=C mod 4
L=(2*E+2*J-K-H+M+32) mod 7
N=int((H-M+L+90)/25)
P = (H + L-M + N +19) mod 32
Pday = P & "/" & N & "/" & X
calcolapasqua = FormatDateTime (Pday, 1)
end function%> ;
Just pass the function a year (positive integer) or date and this will "shoot out" the day of the Passover!
If you do not want to see the day (Sunday) as a result of the function, put this in the penultimate line
calcolapasqua = FormatDateTime (Pday)
instead of
calcolapasqua = FormatDateTime (Pday, 1)
Or look for a guide to the asp function 'FormatDateTime'!
Attention to pass correct values \u200b\u200bto the function. This time I did not do error checking!
as usual for the lazy links or zippino with the script already!
