| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как прибавить к перем. Ttime минуту? [D5, Win95/98]
Olphi © (2002-09-26 12:16:00)Допустим есть переменная t:TTime;
Прибавляю минуту t:=t+0/01/00;
или приравнять t:=12/45/02;
или так ниправильно t:=12:45:02;
Возникает ошибка... Как правильно это сделать???
TTCustomDelphiMaster (2002-09-26 12:27:00) [1]t := t+1/24/60
Anatoly Podgoretsky (2002-09-26 12:23:00) [2]Const
ONENIN = 1/24/60;
T := T + ONEMIN;
SaS13 (2002-09-26 12:20:00) [3]DecodeTime(t, h, m, s, ms);
t := EncodeTime(h, m+1, s, ms);
Mike Kouzmine (2002-09-26 12:19:00) [4]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;
| |
