AddSeconds(Value: DateTime; Count: Integer): DateTime;
Value - исходная дата.
Count - количество добавляемых секунд.
Метод AddSeconds добавляет к значению исходной даты, передаваемой посредством параметра Value, указанное количество секунд.
Sub Main;
Var
DT, DT1, DT2, DT3, DT4: DateTime;
Begin
DT := DateTime.Parse("01.01.2004 10:20:20");
DT1 := DateTime.AddSeconds(DT, 1);
DT2 := DateTime.AddSeconds(DT, 80);
DT3 := DateTime.AddSeconds(DT, 3600);
DT4 := DateTime.AddSeconds(DT, -90);
End Sub Main;
В результате, в переменных «DT», «DT1», «DT2», «DT3» и «DT4» будут находиться значения:
«DT» - «01.01.2004 10:20:20»
«DT1» - «01.01.2004 10:20:21»
«DT2» - «01.01.2004 10:21:40»
«DT3» - «01.01.2004 11:20:20»
«DT4» - «01.01.2004 10:18:50»
См. также: