[MarinaB]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

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 подключила