{ To look up the current date or time, use something like } { var } { t : timestringtype; } { d : datestringtype; } { begin } { t := time(0); } { d := date(0); } { } { The functions return strings of the form "hh:mm xM" and } { "dd-mmm-yy". } { The functions also may be used to convert any internal format } { dates and times to standard character strings by passing the } { internal format (integer) values in place of the zero } { parameter - 11/7/85 - EFM } type DateStringType = packed array [1..9] of char; TimeStringType = packed array [1..8] of char; {$nodebug} function date(internaldate:integer):DateStringType; var fqfun origin 405b : char; fqfil origin 406b : integer; fqppn origin 410b : integer; datestr origin 412b : DateStringType; begin fqfun := chr(24b); { uu.cnv } fqppn := -1; { use alphabetic date format } fqfil := internaldate; emt(377b); { emt } emt(66b); { uuo } date := datestr end; { date } {$debug} {$nodebug} function time(internaltime:integer):TimeStringType; var fqfun origin 405b : char; fqmode origin 424b : integer; fqflag origin 426b : integer; timestr origin 430b : TimeStringType; begin fqfun := chr(24b); { uu.cnv } fqflag := -1; { use AM/PM time format } fqmode := internaltime; emt(377b); { emt } emt(66b); { uuo } time := timestr end; { time } {$debug}