Как прибавить к перем. Ttime минуту?

← →
Olphi © (2002-09-26 12:16) [0]

Допустим есть переменная t:TTime;
Прибавляю минуту t:=t+0/01/00;
или приравнять t:=12/45/02;
или так ниправильно t:=12:45:02;

Возникает ошибка... Как правильно это сделать???

← →
Mike Kouzmine (2002-09-26 12:19) [1]

procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
AMinute := AMinute + 1, проверь 60 и далее
function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):
TDateTime;

← →
SaS13 © (2002-09-26 12:20) [2]

DecodeTime(t, h, m, s, ms);
t := EncodeTime(h, m+1, s, ms);

← →
Anatoly Podgoretsky © (2002-09-26 12:23) [3]

Const
ONENIN = 1/24/60;

T := T + ONEMIN;

t := t+1/24/60

Как прибавить к перем. Ttime минуту? Найти похожие ветки