` 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 May 4, 2024, 9:07 pm
This article has been viewed/printed 35119 times.