* LeapTest > >LOCAL lnstart, lnstop, llisleap,; > ltstart, ltstop, lni, lnj >ltstart = DATETIME() >lnstart = 1600 >lnstop = 9000 >FOR lnj = 1 TO 1000 > FOR lni = lnstart TO lnstop > llisleap = (lni % 4 = 0) AND ((NOT lni % 100 = 0) OR (lni % 400 = 0)) > NEXT >NEXT >ltstop = DATETIME() >? ltstop - ltstart >ltstart = DATETIME() >FOR lnj = 1 TO 1000 > FOR lni = lnstart TO lnstop > llisleap = NOT EMPTY(DATE(lni, 2, 29)) > NEXT >NEXT >ltstop = DATETIME() >? ltstop - ltstart