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

Вниз

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

 
DenKop ©   (2002-04-12 21:50) [0]

Замучала вот такая задача.
Ищу разность между двумя датами так

function DifDate(Date1,Date2:String):TDateTime;
begin
Result:=StrToDate(Date2)-StrToDate(Date1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DateToStr(DifDate("01.01.01","01.01.01")));
end;


Но в случае когда обе даты равны выдает следующее: 30.12.99
Когда Date2 больше Date1 на один день получаю: 31.12.99
........................ на один месяц получаю: 30.01.00
........................ на один год получаю: 30.12.00
Короче когда что больше чего-то на один день(год,месяц) или они равны, то получается бред какой-то. Возможно это связано с тем, что летоисчисление в TDateTime начинается с 30.12.1899. По моим соображениям оно должно начинаться с 31.12.1899. Как это дело обойти не нашёл, хотя времени уже убил теуву кучу.
Уважаемые, разъясните мне пожалуйста как обойти эту ситуацию?


 
Anatoly Podgoretsky ©   (2002-04-12 21:56) [1]

Разность между датами не является датой



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

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

Наверх




Память: 0.46 MB
Время: 0.009 c
1-80872
NewOne
2002-04-11 17:16
2002.04.25
ServicePack`s


4-81117
BVS
2002-02-06 17:15
2002.04.25
Как создать динамический масив?


3-80779
kserg@ukr.net
2002-04-04 15:50
2002.04.25
DBGrid.columns - как


1-80845
konusov
2002-04-13 00:37
2002.04.25
Как изменить дату создания файла?


1-80913
Reef
2002-04-15 12:43
2002.04.25
PChar and string