LEEP YEAR

[JMB]

Here is another version of this program, using the fact that DAYOFWEEK returns -1 for dates that don't exist

Code:


EXPORT YEAR(Year)
BEGIN
  IFTE(DAYOFWEEK(Year+0.0229) < 0, "ORD", "LEAP");
END;