Hour: Integer;
The Hour property returns the number of hours from the current variable.
Sub UserProc;
Var
DT: DateTime;
i: Integer;
Begin
DT := DateTime.Now;
i := DT.Hour;
End Sub UserProc;
After executing the example the "i" variable contains the number of hours of the current time.
See also: