...узнать сколько времени прошло (осталось) между датами

← →
.ruslan © (2006-05-25 10:57) [0]

Добрый день, уважаемые!
Помогите решить задачу с вычислением остатка, т.е.: есть две даты, одна из них сегодняшняя, нужно узнать сколько времени прошло (осталось) между этими датами. Вывести нужно примерно так:

Если более одного дня то:
Осталось: ХХ дней

Если менее одного дня то:
Осталось: ХХ часов ХХ минут

← →
umbra © (2006-05-25 11:10) [1]

надо просто вычесть две даты. Целая часть результата - количество дней между ними, дробная - часть суток.

← →
.ruslan © (2006-05-25 11:13) [2]

а код можно посмотреть?

← →
Info (2006-05-25 11:16) [3]

>а код можно посмотреть?

>есть две даты

в каком формате даты?

← →
.ruslan © (2006-05-25 11:17) [4]

FormatDateTime("dd.mm.yyyy hh:mm:ss",now);

← →
.ruslan © (2006-05-25 12:01) [5]

всё значит? никто не поможет?

← →
REA (2006-05-25 12:09) [6]

DateUtils

function DaysBetween(const ANow, AThen: TDateTime): Integer;
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;

← →
evvcom © (2006-05-25 12:21) [7]

> а код можно посмотреть?

function BetweenDates(Date1, Date2: TDateTime): string; var Delta: Double; begin Delta := Abs(Date1 - Date2); if Delta >= 1 then Result := Format("Осталось: %n дней", [Trunc(Delta)]) else Result := FormatDateTime(""Осталось: " hh " часов " nn "минут"", Delta); end;
Не проверял, если что жми на F1

← →
.ruslan © (2006-05-25 13:34) [8]

evvcom, блин что-то ругается при результате более одного дня

Result := Format("Осталось: %d дней", [Trunc(Delta)])

> что-то ругается

матом?
Ну я ж написал:

> Не проверял, если что жми на F1

Result := Format("Осталось: %d дней", [Trunc(Delta)])
Подзабыл малясь.

ок, спасибо!

...узнать сколько времени прошло (осталось) между датами Найти похожие ветки