Moduły » SysUtils

EncodeTime

EncodeTime
Moduł: SysUtils

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

Funkcja zwraca wartość czasu zapisaną w postaci TDateTime na podstawie parametrów. Hour oznacza godzinę (liczba z przedziału 0-23); Min - minuty (liczba z przedziału 1-59); Sec - sekundy (liczba z przedziału 1-59), a MSec - milisekundy (liczba z przedziału od 0 do 999).

Prosty przykład użycia:

procedure TMyForm.MyButtonClick(Sender: TObject);
var
  MyTime : TDateTime;
begin
  MyTime := EncodeTime(13, 9, 20, 100);
  Label1.Caption := TimeToStr(MyTime);
end;


Jeżeli podane zostaną złe parametry, funkcja wykona wyjątek EConvertError.

Zobacz też: