[MarinaB]

Подскажите, пожалуйста, что делаю не так?
пишу:

Код:

try
  DataModule1.ADOQuery1.Active:= false;
  DataModule1.ADOQuery1.SQL.Clear;
  DataModule1.ADOQuery1.SQL.Add('Select [DateGaran]');
  DataModule1.ADOQuery1.SQL.Add('From GaranTalon');
  DataModule1.ADOQuery1.SQL.Add('Where [s/n] like '''+DBEdit2.Text+'''');
  DataModule1.ADOQuery1.Active:= true;
  DateGaran2 := DataModule1.ADOQuery1.Fields[0].AsDateTime;
  except
   MessageDlg('Ошибка в запросе поиска кода изделия', mtError, [mbOK], 0);
  end;

MessageDlg('Дата составления гарантийного талона на данный товар:   ' + DateToStr(DateGaran2), mtInformation, [mbOK], 0);
//================Разница дат гаран и квитанции=======================================
if MaskEdit1.Text <> '  .  .    ' then
begin
  s := DaysBetween(StrToDateTime(MaskEdit1.Text),DateGaran2);
  MessageDlg('Истечение срока гарантии через:   ' + DateTimeToStr(s), mtInformation, [mbOK], 0);   //вот здесь неправильно считает

end;

DateUtils подключила

[lmikle]

как именно неправильно считает?
Ошибка на 1 день?

[MarinaB]

нет, вообще непонятно откуда берет дату. например разница между 13.11.1111 и 11.11.1111 у него 01.01.2001

[lmikle]

Ну да, а чего ты хотела???
Здесь:

Код:

MessageDlg('Истечение срока гарантии через:   ' + IntToStr(s), mtInformation, [mbOK], 0);

[MarinaB]

Ну конечно, это же количество дней. Спасибо, исправила!