Скачать: CL | DM;

Как прибавить к перем. 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;

---

← →
TTCustomDelphiMaster ©   (2002-09-26 12:27) [4]

t := t+1/24/60

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c