IDTIM
xcall IDTIM, stringfmt, idate, itime, flags, status
IDTIM converts a string format date and/or time into so called internal format. (Internal format dates are also referred to as separated format, and is the format returned by the DATE system function. Internal format time is simply the number of seconds since midnight.) The inverse function is ODTIM, which converts an internal format date and/or time to a string format.
Parameters
stringfmt
should be set to the date and/or time be converted, with the time following the date (with a space separator) if both date and time are included. (Also see flags parameter, which indicates if date and/or time are present.) The date, if present, should be in MM-DD-{CC}YY or DD-MM-{CC}YY format, depending on your language definition file specification for date order. The separator character, however, need not be a dash or even match the language definition file; it can be any non-numeric character. The time format is HH:MM{:SS} {AM/PM}. Legal examples would be:
12/30/07 13:01
01-01-2007 10:15:33 PM
23:01:10
05.03.1915
If only two digits are specified for the year, it is assumed to be in the twentieth century (19xx) unless the SBR=CCYY statement is included in miame.ini, in which case it will determine the YY cutoff below which we assume 20xx instead of 19xx.
idate (F,6)
will return the internal format date, or zero if the date is not included in the input string. Note, however, that to access the individual separated fields within it, you need to assign the F,6 value to a B,4 which is mapped on top of the separated date structure, as in the following example:
MAP1 Sepdate
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 Bdate,B,4,@Sepdate ! B,4 version of Sepdate, as used by
! the DATE system function
MAP1 Idate,F,6 ! F,6 version as needed by IDTIM
xcall IDTIM, StringFmt, Idate, Itime, Flags, Status
Bdate = Idate
Print "Separated date: ";Mon;Day;Yr;Dow
Bdate = DATE ! Get today's date (for comparison)
Print "Today's separated date: ";Mon;Day;Yr;Dow
itime (F,6)
will return the internal format time (i.e. seconds since midnight) or zero if the time is not present.
flags (Num)
should be set to 0 to process both the date and time; 1 if the string is expected to contain only the time, and 2 if it is expected to contain only the date.
status (F,6)
will return a code of 0 to indicate a successful conversion, or –1 to indicate an error (such as an invalid format or invalid date).
