>>Hello All,
>>A simple question but one I have gone completelty blank on.
>>
>>How do I define a leap year?? I know that year % 4 returning a 0 is not enough. What's the rest??
>>
>
>Try
>
>
>cYear= '1998' &&or whatever
>lIsLeapYear = (CTOD('12/31/'+cYear)-CTOD('01/01/'+cYear) = 365)

Good thinking, Ed! Your idea led me to the following simplification:

*---------------------------
FUNCTION IsLeapYear( tcYear)
*---------------------------
RETURN !empty( CTOD( '2/29/' + tcYear))