Ошибка в коде

[Анастас]

procedure TForm23.tb_detailsCalcFields(DataSet: TDataSet);
var
t:Integer;
s,pok:tdate;
begin
pok:=StrToDate(tb_details.FieldByName('Date').AsString) ;
s:= DateTimePicker1.Date;
t:=DaysBetween(pok,s);
tb_detailsIznos.Value:=(t/365)*0.25;
end;

в конце это строки tb_detailsIznos.Value:=(t/365)*0.25; выдает ошибку [Error] Unit23.pas(54): Incompatible types: 'Integer' and 'Extended', хотя в другой кнопке у меня та же запись кода, только другая формула и он работает.

[Аватар]

Incompatible types: 'Integer' and 'Extended' - несовместимые типы Integer и Extended. С английским тоже похоже проблемы. tb_detailsIznos.Value имеет тип Integer, а вы пытаетесь засунуть в него данные типа Extended. Delphi этого не позволяет

[Анастас]

Так это я понимаю что эти два типа не совместимы, но не понимаю почему, если в другом случае тоже самое написано только другое считает, там работает все

[Аватар]

А вы покажите что за выражение в другом случае

[JUDAS]

у меня та же запись кода, только другая формула и он работает.

Из приведенного вами куска кода видно что Вы работаете с некоей базой данных и специфическим набором компонент. В случае, указанном в этой теме, вы, скорее всего, присваиваете значение целочисленному свойству VALUE. Ошибку Вам указал Аватар.
В другом случае, присвоение может идти методу Field или другому элементу БД .
Дело в том, что VALUE у элементов БД, как правило, имеют тип variant, которому параллельно, что вы присваимваете, хоть строку, хоть число, хоть адрес.

[Анастас]

var
t1:integer;
seg,w:tdate;
begin
c:=tb_detailsPrice.Value;
w:=StrToDate(tb_details.FieldByName('Warranty').AsString) ;
seg:= DateTimePicker1.Date;
t1:=DaysBetween(seg,w);
if
ComboBox1.Text='По сумме чисел лет полезного использования'
then
tb_detailsAmortizaciya.Value:=(c*t1)/(5*(5+1)/2);
end;
  end;

вот практический такой же код только на другой кнопке и он работает

[Человек_Борща]

Ипонятное дело. У вас там все целые числа.
ТС, как бэ умножение на дробь в результате даст дробь.. не находите?

tb_detailsIznos.Value:=(t/365)*0.25;

Воспользуйтесь функцией округления(Round) или найдите способ привести все к float.

[Аватар]

Жаль что не видно описания фиелдов. Поэтому все что ниже предположительно.
В первом фрагменте tb_detailsIznos это предположительно TIntegerField. У него свойство Value имеет тип Longint. Поэтому и нельзя Extended в него засунуть. В последнем фрагменте tb_detailsAmortizaciya скорее всего имеет тип TFloatField, у него свойство Value типа Double, поэтому и нет проблем

У вас там все целые числа

В последнем фрагменте никаких целых, там тоже результат Extented. Что дает деление целого на целого?

[Анастас]

я пробовала и не умножать на 0.25 и все равно не работает.
написала так tb_detailsIznos.Value:=Round((t/365)*0.25), прога стала запускаться, но считает все по нулям.

у меня нет описания полей, что одно что другое поле одинакового типа