REM requires INSTALL @lib$+"DATELIB"
REM requires the following structure in the main program:
DIM systemtime{Year{l&,h&}, Month{l&,h&}, DayOfWeek{l&,h&}, Day{l&,h&}, \
\ Hour{l&,h&}, Minute{l&,h&}, Second{l&,h&}, Milliseconds{l&,h&}}
;
;
REM Converts systemtime{} to mid-Julian date. Requires DATELIB
DEF FN_date_from_struc(st{})
= FN_mjd(st.Day.l&, st.Month.l&, st.Year.h& * 256 + st.Year.l&)
;
;
REM Converts mid-Julian date to systemtime{}. Requires DATELIB
DEF FN_date_to_struc(date%, RETURN st{})
LOCAL ds%
IF date%=&80000000 OR date%=0 THEN date%=FN_today: ds%=FALSE ELSE ds%=TRUE
st.Day.l& = FN_day(date%)
st.Month.l& = FN_month(date%)
st.Year.l& = FN_year(date%) MOD 256
st.Year.h& = FN_year(date%) DIV 256
=ds%