Hallo Erik, 

 EW> Delphi has a function FormatDateTime('yyyy-mm-dd hh:nn:ss',).
 EW> Has anyone written something like that for 4DOS? If yes, what does it
 EW> look like?

Not as a readymade function (though some day there may be if Rex Conn or
somebody from JP-Software is still reading this echo). You'll could write
it as a btm or subroutine. 

First you'll have to convert your date/time combination to seconds like this:

    set start=%{at}eval[%{at}date[%_date]*86400+%{at}time[%_time]]

(one line). {at}date converts to days since since 01.01.1980, 86400 is the
number of seconds in a day, {at}time gives you number of seconds since 00:00.
%_date and %_time are the current values, but can take every other valid
value.

You can now compute any date/time combination by adding/subtracting the
proper amount of seconds and convert back to new date and time with

 :: Get date and time by reverse calculation:
    set ndate=%{at}makedate[%{at}eval[%start \ 86400]]
    set ntime=%{at}maketime[%{at}eval[%start %% 86400]]

Using the little btm I posted a few days ago to find the proper input date
format for your country code and a little parsing of the input string
you'll get what you want.

Ostrhauderfehn, 17. Januar 1999, 17:52:27

*Klaus Meinhard*

--- WP/95 Rel 1.5CM (194.0) Reg.