Определить разность дат

[Aleksandr]

Помогите определить количество дней между датами. Я использую вот этот код

var  data_begin,data_kod: TDate;
   begin
data_kod := StrToDateTime(sDateEdit1.Text)  ;
data_begin:=Date-data_kod;
ShowMessage('Осталось '+DateToStr(data_begin));

[Toxa]

вместо ShowMessage('Осталось '+DateToStr(data_begin));
надо ShowMessage('Осталось '+INTToStr(data_begin));

результат Date-data_kod этого выражения выдается в милисекундах

[Aleksandr]

Выдает ошибку при компиляции.

[MasterofCDM]

Я делал так:

    d := DateTimePicker1.Date;
    while d <  DateTimePicker2.Date do
    begin
        i := i + 1;
        d := d + 1;
    end;

d - это TDate, а i - количество дней (Integer).

[Aleksandr]

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

[Aleksandr]

Получилось
ShowMessage('Осталось '+IntToStr(Trunc(data_begin)));

[Квэнди]

есть модуль dateutils , в котором есть функция daysbeetwen (или как- то так)

[Ntlegend]

зачем подключать разніе моули.. можна просо
конечкая_дата - начальная_дата
и мы подучим желаемое..если в датах еще и время прописано - то его можна отсеять простым div 1.. если еще чтото не нравится.. и нада чтобы все это выглядело в виде целого числа, а не дробного, - то можна восполдьховаться функцыей round..

[Квэнди]

зачем подключать разніе моули..

затем, что велосипеды давно изобретены и оттестированы, в отличие от того что изобретаете вы.

[Serge_Bliznykov]

затем, что велосипеды давно изобретены и оттестированы

ну, начнём с того модуль DateUtils появился только в Delphi 6 (а мы, например, до сих пор используем на работе Delphi 5)

и второе, если "велосипед" использовать грамотно, то почему бы и нет.

p.s. в DateUtils.pas

  DaysBetween = Trunc(DaySpan(ANow, AThen))

DaySpan = 
  if ANow < AThen then
    Result := AThen - ANow
  else
    Result := ANow - AThen;