home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_01 / 2n01050b < prev    next >
Text File  |  1990-12-03  |  316b  |  16 lines
  1.  
  2.  
  3.  
  4. function leap(y : longint) : boolean;
  5.         begin
  6.         if y mod 4 <> 0 then
  7.                 leap := false
  8.         else if y mod 100 <> 0 then
  9.                 leap := true
  10.         else if y mod 400 = 0 then
  11.                 leap := true
  12.         else 
  13.                 leap := false
  14.         end;
  15.  
  16.