ml> this is why i need to take a sec later on and look at the real    
    ml> formula... then you can have an array with all of the month days    
    ml> count and automatically adjust FEB when it has 29 days ;)   
      
    PQ> How about a bit of something in some old Turbo-C...   
      
   pretty neat... but it looks like it is missing something...   
      
   function leapyear( year : integer) : boolean;   
   { Returns true if YEAR is a leaplear   
       A year is a leap year if it is evenly divisible    
       by 4 except :   
         if it is divisible by 100 then :   
           it is NOT a leap year unless it is divisible    
           by 400 but not 4000   
      
       Thus 2000 (divisible by 400 but not by 4000) is a leap year   
       but 4000 (divisible by 4000) is NOT a leap year.   
     Reference : Introductory Astronomy and Astrophysics, page 61   
     By E. v. P. Smith and K. C. Jacobs - (C) 1973 W. B. Saunders Co.}   
      
   { By Jud McCranie, Jan. 4, 1987 }   
   { Revised Jan. 5, 1987          }   
      
   begin   
   leapyear := (year mod 4 = 0);   
      
   if year mod 100 = 0   
     then leapyear := (year mod 400 = 0) and (year mod 4000 > 0);   
      
   end; {*** leap year ***}   
      
      
   )\/(ark   
      
    * Origin:  (1:3634/12)