Robert Newson wrote: OOps, typo: Obviously this:
DEF my_mth_no(secs)
should be
DEF FN my_mth_no(secs)
> LOC dy, yr, mn
> dy = INT(secs / 86400) + 306
> yr = INT((dy + .8) / 365.25)
> mn = INT((dy - INT(yr * 365.25) + 31) / 30.6) + 2
> IF mn > 12 : mn = mn - 12
> RET mn
> END DEF
_______________________________________________
QL-Users Mailing List
http://www.q-v-d.demon.co.uk/smsqe.htm
