**[**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**]**