/*
         AUTHOR: Speedy Mercer 
        WEBSITE: http://www.herohog.com
         E-MAIL: code AT herohog.com
          LEGAL: This program is provided for FREE. All I ask is that you give 
                 credit where credit is due if you use it. 
                 There is NO warranty either written or implied.

   Identifying Leap Years:
   A year is a leap year (and so contains a February 29) if it is divisible by 4. 
   But if the year is also divisible by 100 then it is not a leap year, 
   unless it is divisible by 400.
   
   Usage Syntax:
      DEF VAR vYear     AS DATE INITIAL TODAY NO-UNDO.
      DEF VAR vLeapYear AS LOG NO-UNDO.
      
      RUN LeapYear.p (INPUT vYear, OUTPUT vLeapYear).
      
      DISP vLeapYear.
*/

DEF INPUT  PARAM vYear     AS INT.
DEF OUTPUT PARAM vLeapYear AS LOG.

IF vYear MODULO 4 = 0 
THEN DO:
  vLeapYear = TRUE.
  
  IF vYear MODULO 100 = 0 
  AND vYear MODULO 400 <> 0 
  THEN vLeapYear = FALSE.
END.