EncodeTime

function EncodeTime(const Hour, Min, Sec, MSec Word):TclDateTime;

The EncodeTime function generates a TclDateTime return value from the passed Hour, Min, Sec and MSec (millisecond) values.
The permitted parameter values are :
Hour = 0..23
Min = 0..59
Sec = 0..59
MSec = 0..999

Example:

Base Syntax

 var
   myDate : TclDateTime;
 
 begin
   // Set my date variable using the EncodeTime function
   myDate := EncodeTime(12, 50, 40, 231);
   ShowMessage('Date set to '+TimeToStr(myDate));
 end;

TRObject Syntax

 var
   myDate : TclDateTime;
 
 {
   // Set my date variable using the EncodeTime function
   myDate = EncodeTime(12, 50, 40, 231);
   ShowMessage('Date set to '+TimeToStr(myDate));
 }

Output:

Time set to 12:50:40