FUNCTION IsLeapYear(tnYear) >>RETURN ( (DATE(tnYear,03,01) - DATE(tnYear, 02, 01)) = 29 )
>RETURN !empty(date(tnYear, 3, 29)) >