... but that's the only way to do it in conditional macro assembler; so what me worry about 3GL's? :)
On 28/04/2020 10:46, David Crayford wrote: > No worries. FWIW, I think using the // modulo operator would make > your code less verbose and complex ;) > > On 2020-04-28 11:14 AM, CM Poncelet wrote: >> Yes, you are absolutely right. I thought it was the other way round, >> divisble by 100 being leap years and by 400 not leap years. >> It should have been >> LEAP = (YEAR-YEAR%4*4=0 & YEAR-YEAR%100*100¬=0 | >> YEAR-YEAR%400*400=0) >> This does not affect the calculations themselves, but it does report >> incorrectly e.g. that 2000.0229 is not valid. >> Thanks a lot for pointing this out. >> Cheers, Chris Poncelet >> >> On 27/04/2020 10:01, 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 >>> >>> On 2020-04-24 2:01 PM, CM Poncelet wrote: >>>> I attach a Rexx program to calculate and display the biorhythm values >>>> for a given date of birth and current or whatever other date. >>>> If 'management' complains that home workers are not putting enough >>>> effort into their working-from-home time, they can run this thing and >>>> send its output to 'management' just to prove that they are in perfect >>>> working condition and that any slow-down in productivity must be >>>> due to >>>> external factors which are wholly beyond their control <g>. >>>> Cheers, Chris Poncelet (retired sysprog) >>>> >>>> ---------------------------------------------------------------------- >>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>> send email to [email protected] with the message: INFO IBM-MAIN >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to [email protected] with the message: INFO IBM-MAIN >>> . >>> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
