\START92\ \COMMENT= \NAME=datelist \FILE=DATELIST.89F (ds) Func \(C)\ds:Func Local a,y,m {\(-)\1,30,58,89,119,150,180,211,242,272,303,333,364}\->\a If ds<60:ds-1\->\ds int(ds/1461)*4+1900\->\y mod(ds,1461)\->\ds If ds=59:Return {y,2,29} If ds>59:ds-1\->\ds y+intDiv(ds,365)\->\y mod(ds,365)\->\ds For m,1,12 If ds\<=\a[m+1]:Return {y,m,ds-a[m]} EndFor EndFunc \STOP92\