STANDARD_DATE_AND_TIME

 These  functions  provide  a  standard  way   of   returning   a
 character-string  value  that  indicates  the  calender date and
 time.  The return value is compatible with all string types.


 Syntax:

    DATE( t )

    TIME( t )


 The  parameter  't'  is  a  variable  of  the  predeclared  type
 TIMESTAMP.   You  can  either call the GETTIMESTAMP procedure to
 initialize 't' before you pass 't' to either DATE  or  TIME,  or
 you can construct your own TIMESTAMP object.

 The size of the function's return value depends  on  the  string
 length  that is normally returned by your system for either date
 or time data.

 Example:

 VAR
     Time_Var : TIMESTAMP;
     The_Time, The_Date : STRING(23);

 {In the executable section:}
 GETTIMESTAMP( Time_Var );
 The_Date := DATE( Time_Var );
 The_Time := TIME( Time_Var );
 WRITELN( The_Date, The_Time );  {Writes: 1-FEB-1989
                                          14:20:25.98 }