[Progermc]

Всем доброго времени суток,
помогите мне пожалуйста.
задача такова:
необходимо рассчитать стаж работника в базе данных, я написал код для 2х дат, с момента прихода и даты сегодня, но переменная хранит только одно значения, помогите сделать для n'ного количества работников.
код прилагаю.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet); var d1,d2: TDateTime;   n{счётчик дней итого}, year{кол-во лет без остатка}, m{счётчик месяцев},day{дни}, month{месяцы} : integer;   begin   // начальная дата из таблицы d1:= StrToDate(ADOTable1.FieldByName('Стаж работы на').Value); // сегодняшняя дата d2:= Date;   Days.Text:=IntToStr(DaysBetween(d1,d2));//вычисляем ИТОГО дней // присваиваем дни переменной n:=StrToInt(Days.Text); // узнаем сколько лет year:=n div 365; // сколько месяцев m:=n-(year*365);   // если дней больше то определяем кратность след. месяца if m>=30 then begin {1} month:=m div 30; day:=m mod 30;   end    {1} else day:=m;   // выводим количество стажа в таблицу ADOTable1.FieldByName('Stazh').Value := IntToStr(year)+' лет '+IntToStr(month)+ ' месяцев '+IntToStr(day)+' дней';   // условия о выработке лет if (year = 3) and (month = 0) and (day = 0) then ShowMessage('3 года работы'); if (year = 10) and (month = 0) and (day = 0) then ShowMessage('10 лет работы'); if (year = 20) and (month = 0) and (day = 0) then ShowMessage('20 лет работы');   end;

я знаю что єто нужно реализовать при помощи массивов, но голова уже не работает..
извините за беспокойства

[Страдалецъ]

Че-то я не догоняю что вы хотите. У вас идет расчет на текущего работника. Причем тут n-количество работников? Вы хотите получить итог по вычисляемому столбцу?

[Progermc]

если в базе данных 1 запись, в которой есть только один работник, то все отлично работает, но если добавить 2го работника, оно выдает ошибку при добавлении, добавление делаю через TEdit'ы -

если отключить код, и добавить данные о еще одном работнике, потом включить блок кода, все работает..
не знаю по чему..

[Страдалецъ]

Все очень просто. В момент добавления записи значение ADOTable1.FieldByName('Стаж работы на').Value еще null и как следствие попытка вычислить стаж порождает ошибку. Простейшее решение, это заключить блок кода в секцию try except end. Тогда будет так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet); var d1,d2: TDateTime;   n{счётчик дней итого}, year{кол-во лет без остатка}, m{счётчик месяцев},day{дни}, month{месяцы} : integer;   begin try // начальная дата из таблицы d1:= StrToDate(ADOTable1.FieldByName('Стаж работы на').Value); // сегодняшняя дата d2:= Date;   Days.Text:=IntToStr(DaysBetween(d1,d2));//вычисляем ИТОГО дней // присваиваем дни переменной n:=StrToInt(Days.Text); // узнаем сколько лет year:=n div 365; // сколько месяцев m:=n-(year*365);   // если дней больше то определяем кратность след. месяца if m>=30 then begin {1} month:=m div 30; day:=m mod 30;   end    {1} else day:=m;   // выводим количество стажа в таблицу ADOTable1.FieldByName('Stazh').Value := IntToStr(year)+' лет '+IntToStr(month)+ ' месяцев '+IntToStr(day)+' дней';   // условия о выработке лет if (year = 3) and (month = 0) and (day = 0) then ShowMessage('3 года работы'); if (year = 10) and (month = 0) and (day = 0) then ShowMessage('10 лет работы'); if (year = 20) and (month = 0) and (day = 0) then ShowMessage('20 лет работы'); except end; end;

[Progermc]

я не догадался обработать исключительную ситуацию, спасибо вам большое. =) выручили