procedure GetTimeStamp (var t: TimeStamp);function Date (t: TimeStamp): packed array [1 .. DateLength] of Char;function Time (t: TimeStamp): packed array [1 .. TimeLength] of Char;DateLength and TimeLength are implementation dependent
constants.
GetTimeStamp (t) fills the record t with values. If
they are valid, the Boolean flags are set to True.
TimeStamp is a predefined type in the Extended Pascal
standard. It may be extended in an implementation, and is indeed
extended in GPC. For the full definition of TimeStamp, see
TimeStamp.