Даты!!! [D5, Win95/98]
DenKop © (2002-04-12 21:50:00)
Замучала вот такая задача.
Ищу разность между двумя датами так
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:00) [1]
Разность между датами не является датой
Наверх 
ЧАТ |
Орешник |
|
