| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
разность дат [D6, Win95/98]
mer © (2002-12-27 07:17:00)Как програмно узнать кол-во дней между двумя датами (например 25.12.02 и 27.12.02 2 дня)???
izyum (2002-12-27 09:38:00) [1]Если в стандартных библиотеках ничего полезного не нашел, пишешь примрно такой код:
function DateTimeMinusDateTime(dt1, dt2: TDateTime): integer;
var
t1, t2: TTimeStamp;
i1, i2: comp;
begin
t1:=DateTimeToTimeStamp(dt1);
t2:=DateTimeToTimeStamp(dt2);
i1:=TimeStampToMSecs(t1);
i2:=TimeStampToMSecs(t2);
result:=Round((i1-i2)/1000);
end;
Данный код возвращает количество секунд между двумя датами.
Можно было обойтись и без такого количества переменных, но для наглядности...
Vovchik_A (2002-12-27 09:36:00) [2]Дата, вообще-то как Double складывается и вычитается, если мне память не изменяет
Misha (2002-12-27 07:35:00) [3]Unit DateUtils;
function DaysBetween(const ANow, AThen: TDateTime): Integer;
VAleksey (2002-12-27 07:25:00) [4]Date1 - Date2
Вот собственно и все :)
| |
