` Printed Icetips Article

Icetips Article

Par2: Determining Leap Year
2002-06-27 -- Maurice Pilotte
 
IsLeapYear            PROCEDURE( SIGNED CurrYear ), BYTE

Result                      BYTE(FALSE)

  CODE
  IF CurrYear > 1582
    IF (( CurrYear % 400 = 0 ) OR ( CurrYear % 100 ~= 0 AND CurrYear % 4 =
0 ))
      Result = TRUE

Printed November 21, 2024, 12:18 pm
This article has been viewed/printed 35217 times.