Sign in Join
FPDoc Onlineexperiment

DecodeTime procedure

In unit sysutils

Decode a TDateTime to a hour,minute,second,millisec quartet.

Declaration

pascal
procedure DecodeTime(Time: TDateTime; out Hour: Word; out Minute: Word; 
 out Second: Word; out MilliSecond: Word)

Description

DecodeTime decodes the hours, minutes, second and milliseconds stored in Time, and returns them in the Hour, Minute and Second and MilliSecond variables.

Errors

None.

See also

Example: ex10

pascal
Program Example10;

{ This program demonstrates the DecodeTime function }

Uses sysutils;

Var HH,MM,SS,MS: Word;

Begin
  DecodeTime(Time,HH,MM,SS,MS);
  Writeln (format('The time is %d:%d:%d.%d',[hh,mm,ss,ms]));
End.

An experiment, built from development snapshots. Not the official Free Pascal or Lazarus documentation.