| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Разница в часах между Now и какой-то датой в прошлом

Geka ©   (2003-06-30 11:03:00) 

Мне надо выделять те даты где разница с Now более 2-х часов

---

MBo   (2003-06-30 11:31:00) [1]

if (Now-SomeDateTime)>1/12 then выделять.

---

PiboDIE   (2003-06-30 11:25:00) [2]

function HoursBetween(const ANow, AThen: TDateTime): int64;
var
ARes: TDateTime;
Res: Double;
begin
if ANow < AThen then ARes := AThen - ANow
else ARes := ANow - AThen;
Res := HoursPerDay * ARes;
Result := Trunc(Res);
end;
Эта функция выдрана из Дельфи7

---

Игорь Шевченко   (2003-06-30 11:06:00) [3]

function IncTime(ATime: TDateTime; Hours, Minutes, Seconds,
MSecs: Integer): TDateTime;
begin
Result := ATime + (Hours div 24) + (((Hours mod 24) * 3600000 +
( YourDate, 2, 0, 0)

function IncTime(ATime: TDateTime; Hours, Minutes, Seconds,
MSecs: Integer): TDateTime;
begin
Result := ATime + (Hours div 24) + (((Hours mod 24) * 3600000 +
Minutes * 60000 + Seconds * 1000 + MSecs) / MSecsPerDay);
if Result < 0 then Result := Result + 1;
end;




if IncTime(YourDate, 2, 0, 0) < Now() then
выделять
else
не выделять;


---

Наверх