Работа с датами

← →
Mate_ru (2004-12-20 16:12) [0]

Как узнать разницу в днях между двумя датами?

← →
Плохиш © (2004-12-20 16:17) [1]

-

PS. Мелчают студенты :-((

← →
Кабан (2004-12-20 16:17) [2]

никогда этот вопрос не умрет!!!
A-B

← →
Александр Иванов © (2004-12-20 16:18) [3]

DaysBetween
Date2-Date1

← →
Mate_ru (2004-12-20 16:27) [4]

Мне надо узнать количество дней не в формате даты, а обычным числом.

--------------------------------------------------------------------------------
Александр Иванов © (20.12.04 16:18) [3]
DaysBetween
Date2-Date1

Что-то у меня эта процеруда не пашет.

← →
Mate_ru (2004-12-20 16:30) [5]

Извиняюсь за описку - процедура DaysBetween

← →
begin...end © (2004-12-20 16:33) [6]

> [4] Mate_ru (20.12.04 16:27)

var
Date1, Date2: TDateTime;
Days: Double;

begin
Days := Date2 - Date1;
ShowMessageFmt("Разница составляет %f.2 дней", [Days])
end.

> Что-то у меня эта процеруда не пашет.

Включите модуль DateUtils в список uses.

← →
Johnmen © (2004-12-20 16:33) [7]

про формат даты - TDateTime+F1

← →
Рамиль © (2004-12-20 16:34) [8]

Mate_ru (20.12.04 16:27) [4]
Мне надо узнать количество дней не в формате даты, а обычным числом.
Трудно глянуть справку по TDateTime?

uses DateUtils

Приношу извинения: в [6] нужно не %f.2, а %.2f.

http://delphimaster.net/view/1-1103201246/

Работа с датами Найти похожие ветки