DEFINITION MODULE AsciiTime;
(*------------------------------------------------------------------------*)
(* Augabe von Datum und Zeit in formatierter Art und Weise *)
(* Prepare string for printout of date and time *)
(*------------------------------------------------------------------------*)
(* Implementation : Michael Riedl *)
(* Licence : GNU Lesser General Public License (LGPL) *)
(*------------------------------------------------------------------------*)
(* $Id: AsciiTime.def,v 1.3 2018/06/08 21:38:43 mriedl Exp mriedl $ *)
FROM SysClock IMPORT DateTime;
PROCEDURE DateStr(VAR str : ARRAY OF CHAR;
time : DateTime;
rev : BOOLEAN);
(*----------------------------------------------------------------*)
(* Places ASCII representation of 'date' in 'str'. *)
(* *)
(* if rev = TRUE the date format is "dd:mm:yyyy" *)
(* if rev = FALSE the date format is "yyyy:mm:dd" *)
(*----------------------------------------------------------------*)
PROCEDURE TimeStr(VAR str : ARRAY OF CHAR;
time : DateTime);
(*----------------------------------------------------------------*)
(* Places ASCII representation of 'time' in 'str', the time *)
(* format is "hh:mm:ss" *)
(*----------------------------------------------------------------*)
END AsciiTime.