Leap Year Check
// pass a 4digit year
// works for me 1969-2037, will need fix out of that range
// The Gregorian Leap Year Rule
function Gr_IsLeapYr ($yr) {
$isleap=0;
if ($yr % 4 == 0) {
// Years evenly divisible by 4 are leap years.
$isleap=1;
// Exception: Centurial years that are not evenly divisible by 400.
if ( $yr % 100 == 0 && $yr % 400 != 0) {
// not a leap year
$isleap=0;
}
}
return $isleap;
} // end Gr_IsLeapYear
mcal_fetch_event