\START92\
\COMMENT=
\NAME=dateserl
\FILE=DATESERL.89F
(y,m,d)
Func
\(C)\y,m,d:Func
Local  a,b,c,ds
{0,31,59,90,120,151,181,212,243,273,304,334}\->\a
{0,31,60,91,121,152,182,213,244,274,305,335}\->\b
{0,366,731,1096}\->\c
d+int((y-1900)/4)*1461+c[mod(y,4)+1]\->\ds
If mod(y,4)=0 Then
ds+b[m]\->\ds
Else
ds+a[m]\->\ds
EndIf
If  ds\>=\60:ds-1\->\ds
Return  ds
EndFunc

\STOP92\