Confused

[Don Bozo el Guapo]

I cant gt my mind around Easter. The date keeps jumping around year to year. Since we know when Heyzoos was born (the day I never get my pony) how come we dont know when he rose? Belive me every day I get a rise I mark it on the calendar. Has the date have somthing to do with seeing his shadow or not when he comes out of his hole?

[Wide-Open]

Re: Confused

Hey Don!

It's actually very simple.

 
function EasterSunday(wYear: word) : TDateTime;
const
  // Gauss numbers for years between 1900 & 2099
  M = 24;
  N = 5;
var
  a, b, c, d, e: integer;
  wDay, wMonth: word;
begin
  // Gauss formula
  a := wYear mod 19;
  b := wYear mod 4;
  c := wYear mod 7;
  d := ((19 * a) + M) mod 30;
  e := ((2 * b) + (4 * c) + (6 * d) + N) mod 7;
  if ((d + e) > 9) then
    begin
    wMonth := iAPR;
    wDay := d + e - 9;
    end
  else
    begin
    wMonth := iMAR;
    wDay := 22 + d + e;
    end;
  // special considerations
  if ((d >= 28) or (a > 10)) then
    begin
    if ((wDay = 25) and (wMonth = iAPR)) then
      wDay := 18
    else
      if ((wDay = 26) and (wMonth = iAPR)) then
        wDay := 19;
    end;
  Result := EncodeDate(wYear, wMonth, wDay);
end;

For Easter Monday, add 1.

[Don Bozo el Guapo]

Re: Confused

Hey Don!

It's actually very simple.

 
function EasterSunday(wYear: word) : TDateTime;
const
  // Gauss numbers for years between 1900 & 2099
  M = 24;
  N = 5;
var
  a, b, c, d, e: integer;
  wDay, wMonth: word;
begin
  // Gauss formula
  a := wYear mod 19;
  b := wYear mod 4;
  c := wYear mod 7;
  d := ((19 * a) + M) mod 30;
  e := ((2 * b) + (4 * c) + (6 * d) + N) mod 7;
  if ((d + e) > 9) then
    begin
    wMonth := iAPR;
    wDay := d + e - 9;
    end
  else
    begin
    wMonth := iMAR;
    wDay := 22 + d + e;
    end;
  // special considerations
  if ((d >= 28) or (a > 10)) then
    begin
    if ((wDay = 25) and (wMonth = iAPR)) then
      wDay := 18
    else
      if ((wDay = 26) and (wMonth = iAPR)) then
        wDay := 19;
    end;
  Result := EncodeDate(wYear, wMonth, wDay);
end;

For Easter Monday, add 1.

Thanks for clearing that up W-O, I cant believe I dident see it before. But does // special consierations if (( wDay=26 and (Month = iAPR)) then end; mean I can return the white sale stuff without a sales reciept ?

[SUV]

Re: Confused

Don Bozo, my little Easter Bunny! ?Que Pasa?

PS Beware of "Easter Bunnies" offered by Dora Denkins

[BelieverInGod]

Re: Confused

You know SUV, I've never seen a short eared bunny like that.

[Don Bozo el Guapo]

Re: Confused

Don Bozo, my little Easter Bunny! ?Que Pasa?

PS Beware of "Easter Bunnies" offered by Dora Denkins

Hola Su< mi bonita nina. Is that one of my Xs or just a former employee? Sad to say I had to close the Cantina,whoda thunk Mexico had health and sanitation laws ? I think they are trying to take our mind off the drug wars by befuddeling us with health care issues(how stupido do they think we are?) I left your resume with the new Padrone(He was extreamly impressed) so you still gotta shot for a paid vacation. Good to hear from you again.