Форум: "Система";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
ВнизРазница в часах между 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 вся ветка
Форум: "Система";
Текущий архив: 2003.09.15;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c