![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с датами
Mate_ru © (2004-12-20 16:12:00)Как узнать разницу в днях между двумя датами?
Reindeer Moss Eater (2004-12-20 16:43:00) [1]http://www.delphimaster.ru/cgi-bin/forum.pl?id=1103201246&n=0
begin...end (2004-12-20 16:36:00) [2]Приношу извинения: в [6] нужно не %f.2, а %.2f.
Рамиль (2004-12-20 16:34:00) [3]Mate_ru (20.12.04 16:27) [4]
Мне надо узнать количество дней не в формате даты, а обычным числом.
Трудно глянуть справку по TDateTime?
ssk (2004-12-20 16:34:00) [4]uses DateUtils
begin...end (2004-12-20 16:33:00) [5]> [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:00) [6]про формат даты - TDateTime+F1
Mate_ru (2004-12-20 16:30:00) [7]Извиняюсь за описку - процедура DaysBetween
Mate_ru (2004-12-20 16:27:00) [8]Мне надо узнать количество дней не в формате даты, а обычным числом.
--------------------------------------------------------------------------------
Александр Иванов © (20.12.04 16:18) [3]
DaysBetween
Date2-Date1
Что-то у меня эта процеруда не пашет.
Александр Иванов (2004-12-20 16:18:00) [9]DaysBetween
Date2-Date1
Плохиш (2004-12-20 16:17:00) [10]-
PS. Мелчают студенты :-((
Кабан (2004-12-20 16:17:00) [11]никогда этот вопрос не умрет!!!
A-B