[Mad programmer]

Nepomnu Попробуй так.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 myYear, myMonth, myDay : Word;
 myHour, myMin, mySec, myMilli : Word;

 myYear_, myMonth_, myDay_ : Word;
 myHour_, myMin_, mySec_, myMilli_ : Word;

 Raznica:word;
begin
try
            DecodeDateTime(DataDelivery {значение поля},myYear, myMonth, myDay,
                         myHour, myMin, mySec, myMilli);
            DecodeDateTime(DataReturn {значение поля} ,myYear_, myMonth_, myDay_,
                         myHour_, myMin_, mySec_, myMilli_);
    //Если один месяц
    //предположительно что год тоже один и тот же
    if myMonth=myMonth_ then
       Raznica:= myDay_-myDay; //разница в днях

//Ну думаю для разных месяцев сам допишешь

Except
  MessageDlg('Ошибка.',mtError,[mbOK],0);
end;
end;

Admin: Пользуемся тегами!