Click above to get retro games delivered to your door ever month!

ISLEAP()

Syntax:     ISLEAP([<expD>])

Arguments:  <expD> is the date to be tested, to see if it is in a leap
            year.

Returns:    A logical value.
            (.T.) is returned if the <expD> date is in a leap year,
            otherwise (.F.) is returned.

Usage:      In many financial calculations it is necessary to know whether
            a year has 365 or 366 days.  This can be determined by ISLEAP().

Notes:      The function  will default to the system date if no date
            argument is passed.  ISLEAP() complies with all the rules for
            testing a leap year.  The function also produces a correct result
            in the rare case of a change in century.

Library:    CT1.LIB


--------------------------------- Example ------------------------------

Examples:   ? ISLEAP(CTOD("01/01/1900")           && .F., no leap year
            ? ISLEAP(CTOD("09/30/1988")           && .T., leap year
            ? ISLEAP(CTOD("01/01/2000")           && .T., leap year