` 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 December 3, 2024, 11:46 am
This article has been viewed/printed 35227 times.