lLeapYear = .F. IF nYear % 4 = 0 IF nYear % 100 = 0 lLeapYear = (nYear % 400 = 0) ELSE lLeapYear = .T. ENDIF ENDIF