EncodeTime
Encode a Hour,Min,Sec,millisec to a TDateTime value.
Declaration
Source position: datih.inc line 120
function EncodeTime(Hour: Word; Minute: Word; Second: Word;
MilliSecond: Word) : TDateTime;
Description
EncodeTime encodes the Hour, Minute, Second, MilliSecond variables to a TDateTime format result. It does the opposite of the DecodeTime procedure.
The parameters must have a valid range (boundaries included):
- Hour
- must be between 0 and 23.
- Minute,second
- must both be between 0 and 59.
- Millisecond
- must be between 0 and 999.
Errors
In case one of the parameters is out of it's valid range, an EConvertError exception is raised.
See also
| Name | Description |
|---|---|
| DecodeTime | Decode a TDateTime to a hour,minute,second,millisec quartet |
| EncodeDate | Encode a Year,Month,Day to a TDateTime value. |
Example
Program Example12;
{ This program demonstrates the EncodeTime function }
Uses sysutils;
Var Hh,MM,SS,MS : Word;
Begin
DeCodeTime (Time,Hh,MM,SS,MS);
Writeln ('Present Time is : ',FormatDateTime('hh:mm:ss',EnCodeTime (HH,MM,SS,MS)));
End.