The C Users' Group Library 1994 August/wc-cdrom-cusersgrouplibrary-1994-08.iso/listings/v_02_01/2n01050c

Text File | 1990-12-03 | 170b | 10 lines

function leap(y : longint) : boolean;
        begin
        leap2 := (y mod 4 = 0) and ((y mod 100 <> 0)
                  or (y mod 400 = 0));
        end;