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

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

← →
.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, блин что-то ругается при результате более одного дня

---

← →
Tonich ©   (2006-05-25 13:44) [9]

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

---

← →
evvcom ©   (2006-05-25 13:45) [10]

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

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

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

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

---

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

ок, спасибо!

---

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

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



Память: 0.47 MB
Время: 0.025 c