Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Дата   Найти похожие ветки 

 
Max_   (2003-01-30 20:21) [0]

Добрый вечер.
Подскажите пожалуйста как получить разницу в днях между двумя датами. Дата1-Дата2=Количество дней
Спасибо.


 
Романов Р.В. ©   (2003-01-30 20:26) [1]

Правильно написал.


 
Max_   (2003-01-30 20:38) [2]

Я написал
date1:=20.01.03
date2:=30.03.03

date2-date1
Ответ 09.03.00

Не то получается.


 
Романов Р.В. ©   (2003-01-30 20:46) [3]

var
i: Integer;

i := Trunc(date2 - date1);


 
Anatoly Podgoretsky ©   (2003-01-30 21:08) [4]

Как ответ получил?
И как ты смог сделать такое присвоение?


 
weRUs ©   (2003-01-31 03:43) [5]

Я это уже спрашивал... посмотри здесь

http://www.delphi.mastak.ru/cgi-bin/forum.pl?n=0&showpage=1&user=weRUs

Только незабудь в uses добавить DateUtils

Все, Привет!


 
Slym   (2003-01-31 08:11) [6]

Вот код который использую Я, и никаких DateUtils:
uses Sysutils;
function DateReason(d1,d2::TDateTime):integer;
var
ds1,ds2:TTimeStamp;
begin
ds1:=DateTimeToTimeStamp(d1);
ds2:=DateTimeToTimeStamp(d2);
result:=ds1.Date-ds2.Date;
end;

разница может быть и отрицательной!


 
Chubais ©   (2003-01-31 09:17) [7]


> Slym (31.01.03 08:11)

ТЫ(ВЫ) и вправду крут!


 
uw ©   (2003-01-31 10:45) [8]

>Романов Р.В. © (30.01.03 20:46)

Нет, ему надо
i := Trunc(date2) - Trunc(date1);


 
Романов Р.В. ©   (2003-01-31 10:52) [9]

Тогда уж так
i := ABS(Trunc(date2) - Trunc(date1));


 
D   (2003-01-31 11:00) [10]

Razn:=date2-date1;
DecodeDate(Razn,KolYears,KolMonth,KolDay) ?


 
Бук   (2003-01-31 11:08) [11]

Можно еще и через перевод в Юлианские дни.


 
Smithson ©   (2003-01-31 11:36) [12]

>> D
Разница дат не есть дата! Это количество дней!



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

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.012 c
1-28895
zedov
2003-01-30 21:34
2003.02.10
bufer


9-28573
Lamer86
2002-07-04 12:21
2003.02.10
Можно ли использовать формат jpg в DXImageList


9-28575
Nafander
2002-08-26 08:40
2003.02.10
Долбаный файл 3DS


14-29007
ATLAS
2003-01-25 16:22
2003.02.10
Win32 API декларирование


14-29104
Сутковой Вадим
2003-01-25 22:35
2003.02.10
Проблема с народом.