Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


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


Наверх

Титульная страница Поиск, карта сайта Написать письмо