Изменение вычисляемого поля в коде

[Земляника]

Люди добрые подскажите:
У меня есть поле Начисленная зарплата и дата заболевания и выздоровления. Как правильно написать код, чтоб считался больничный в процедуре ComboBoxChange(выбор месяца). Я все написала, а он не считает, говорят надо что-то добавить в начале и в конце, чтоб таблица запоминала это. Вот эта процедура:
procedure TBaseForm.ComboBox1Change(Sender: TObject);
var Year,Month,Day{дата заболевания},Year2,Month2,Day2{дата выздоровления},Year3,Month3,Day3{да та поступления на работу}:Word;
den{стоимость одного дня},denbol{стоимость одного дня по больничному}:word;
begin
den:=0;
denbol:=0;

SysUtils.DecodeDate(DataModule2.Boo kTableDateTimeField2.Value,Year,Mon th,day);
//Процедура превода типа TDateTime в прееменные дата, день, год
SysUtils.DecodeDate(DataModule2.Boo kTableDateTimeField3.Value,Year2,Mo nth2,day2);
SysUtils.DecodeDate(DataModule2.Boo kTableDateTimeField.Value,Year3,Mon th3,day3);
case ComboBox1.ItemIndex of
0,2,4,6,7,9,11en:=round(DataModul e2.BookTableBCDField2.AsInteger/31);
3,5,8,10: den:=round(DataModule2.BookTableBCD Field2.AsInteger/30);
1: den:=round(DataModule2.BookTableBCD Field2.AsInteger/28);
//находим стоимость рабочего дня относительно от месяца
end;

if god-Year3<2 then
denbol:=round(den*0.5);
if (god-Year3>2) and (god-Year3<4) then
denbol:=round(den*0.8);
//находим стоимость дня по больничному относительно стажа работы
if ComboBox1.ItemIndex+1=Month then
begin
if Month<>Month2 then
case ComboBox1.ItemIndex of
0,2,4,6,7,9,11: DataModule2.BookTableBCDField2.Valu e:=Day*den+(31-Day)*denbol;
3,5,8,10:DataModule2.BookTableBCDFi eld2.Value:=Day*den+(30-Day)*denbol;
1:DataModule2.BookTableBCDField2.Va lue:=Day*den+(28-Day)*denbol;
end;
if Month=Month2 then
case ComboBox1.ItemIndex of
0,2,4,6,7,9,11:DataModule2.BookTabl eBCDField2.Value:=(31-(Day2-Day))*den+(Day2-Day)*denbol;
3,5,8,10:DataModule2.BookTableBCDFi eld2.Value:=(30-(Day2-Day))*den+(Day2-Day)*denbol;
1: DataModule2.BookTableBCDField2.Valu e:=(28-(Day2-Day))*den+(Day2-Day)*denbol;
end;
end;
if ComboBox1.ItemIndex+1=Month2 then
case ComboBox1.ItemIndex of
0,2,4,6,7,9,11:DataModule2.BookTabl eBCDField2.Value:=Day2*denbol+(31-Day2)*den;
3,5,8,10: DataModule2.BookTableBCDField2.Valu e:=Day2*denbol+(30-Day2)*den;
1: DataModule2.BookTableBCDField2.Valu e:=Day2*denbol+(28-Day2)*den;
end;
end;
//DataModule2.BookTableBCDField2-начисленная зарплата

[Stilet]

под словом "чтоб таблица запоминала это" видимо имеется ввиду сохранение на диск? Или вычислимое поле?

[Земляника]

Имеется ввиду, чтобы это поле меняло свое значение с учетом этих вычислений

[Stilet]

это поле меняло

Оно и так меняется:

DataModule2.BookTabl eBCDField2.Value:=Day2*denbol+(31-Day2)*den;

Просто у тебя я не вижу нигде команды записи в файл изменений.
Если изменения должны сохраняться примени метод post.

[Земляника]

Это написать в конце всей этой процедуры?

[soleil@mmc]

кагтотаг

//находим стоимость дня по больничному относительно стажа работы

DataModule2.BookTableBCD.Edit;
if ComboBox1.ItemIndex+1=Month then
begin
.......

.......

DataModule2.BookTableBCD.Post;

Замечания:
1) каменты к коду принято писать до описываемых действий
2) у вас такая специфика или вы не знаете чем кол-во рабочих дней в месяце отличается от кол-ва дней в месяце?!
3) алгоритм будет условно рабочим (с учетом п.2) каждые 3 года из 4х