On Mon, 27 Apr 2020 17:01:08 +0800, David Crayford wrote:
>FYI, you have a bug with your leap year calculation. You need to check
>if the year is evenly dividable by 100 (which are not leap years unless
>evenly divisible by 400).
>
>isleap: procedure
> arg year .
> return (year // 4 = 0 & year // 100 /= 0 ) | year // 400 = 0
>
I believe that's taken care of in the OP's code by:
... TRUNC((TRUNC(YY/100)+1)*3/4)
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
