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

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

← →
Geka ©   (2003-06-30 11:03) [0]

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

---

← →
Игорь Шевченко ©   (2003-06-30 11:06) [1]

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
не выделять;


---

← →
PiboDIE ©   (2003-06-30 11:25) [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

---

← →
MBo ©   (2003-06-30 11:31) [3]

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

---

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

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



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