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