xcall DSTOI, xdate
DSTOI.SBR converts a separated date (which is the format returned by the DATE system function in BASIC) into a Julian date which starts with 1/1/1900. You can use ODTIM or DATES to convert the Julian date back to various separated and printable formats.
Parameters
MAP1 Xdate
MAP2 Mon,B,1 ! Month 1-12
MAP2 Day,B,1 ! Day 1-31
MAP2 Yr,B,1 ! Year-1900
MAP2 Dow,B,1 ! Day of week (0=Mon, 6=Sun)
MAP1 Jdate,B,4,@Xdate ! # days since 1/1/1900
Example
Xdate = DATE ! load Xdate with separated date
xcall DSTOI, Xdate ! convert Xdate from separated to Julian
print "Julian date is:";Jdate
