[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]

    {
    > I'm doing some date routines and I need to know if it is a leap year to
    > validate a date..   A leap year is evenly divisble by 4..  I have no
    > idea how to check to see if a remainder is present..  I'm going to try
    > to read my manauls and stuff... but I'd appreciate any help!  Thanks!
    }

      LeapYear := Byte((Year mod 4 = 0) and (Month = 2));

      if LeapYear = 1 then
        if Byte((Year mod 100 = 0) and (Year mod 400 <> 0)) = 1 then
          LeapYear := 0;

[Back to DATETIME SWAG index] [Back to Main SWAG index] [Original]