salut

un truc que j'ai dans mes carton depuis des années



Function LundiPaques(Iyear : Integer) : TDateTime;
Var
L : array[1..6] of LongInt;
Lj,Lm : LongInt;