/* datetime.p 08/25/05 */

DEF VAR x AS CHAR NO-UNDO.
DEF VAR datetime AS CHAR FORMAT "9999999999999" NO-UNDO.
DEF VAR d AS DATE FORMAT "99/99/9999" NO-UNDO.
DEF VAR t AS INTEGER NO-UNDO.

/* YYYY MM DD HH MM SS */

x = STRING(TODAY,"99999999").
datetime = SUBSTRING(x,5,4) + SUBSTRING(x,1,2) + SUBSTRING(x,3,2).

x = STRING(TIME,"99999").
datetime = datetime + x.

x = SUBSTRING(datetime,5,2) + SUBSTRING(datetime,7,2) + SUBSTRING(datetime,1,4).
d = DATE(x).

t = INTEGER(SUBSTRING(datetime,9,5)).
DISPLAY datetime d t STRING(t,"hh:mm:ss") WITH FRAME x1. PAUSE.


/****************************************************************************/

FUNCTION date-time RETURNS CHAR(INPUT p1 AS DATE, INPUT p2 AS INTEGER) FORWARD.

x = date-time(TODAY, TIME).
d = DATE(SUBSTRING(x,5,2) + SUBSTRING(x,7,2) + SUBSTRING(x,1,4)).
t = INTEGER(SUBSTRING(x,9,5)).

DISPLAY x FORMAT "x(13)" d t STRING(t,"hh:mm:ss") WITH FRAME x2. PAUSE.


FUNCTION date-time RETURNS CHAR
  (INPUT d AS DATE, INPUT t AS INTEGER):

  DEF VAR dt AS CHAR NO-UNDO.
  DEF VAR x  AS CHAR NO-UNDO.

  ASSIGN x  = STRING(d,"99999999")
         dt = SUBSTRING(x,5,4) + SUBSTRING(x,1,2) + SUBSTRING(x,3,2) +
              STRING(t, "99999").

  RETURN dt.
END FUNCTION.

/* end of program */