Hour: Integer;
Свойство Hour возвращает количество часов в текущей переменной.
Sub UserProc;
Var
DT: DateTime;
i: Integer;
Begin
DT := DateTime.Now;
i := DT.Hour;
End Sub UserProc;
После выполнения примера в переменной «i» будет количество часов текущего времени.
См. также: