[-=mIx=-]

Здравствуйте.
Существует программа с базой сотрудников, есть информация о дате приема. Необходимо вычислить стаж работы на текущую дату.
Пробовал так: stazh:=date-Form1.Table1.FieldByName('Prinyat').Value; но результат не очень похож на стаж )
Заранее спасибо.

[Rat]

Расчет кол-ва дней между датами:

Код:

Label1.Caption := IntToStr(DaysBetween(DateTimePicker1.Date, DataTimePicker2.Date));

[-=mIx=-]

Благодарю за ответ, но можно по подробнее?
Первая дата берется из таблицы следующим образом: Table1.FieldByName('Prinyat').Value. Вторая - текущая дата, берется из системного времени.
Результат выводится по нажатию кнопки, но это не так важно.
Спасибо.

[Marvel]

наверное так

Код:

Label1.Caption := IntToStr(DaysBetween(Table1.FieldByName('Prinyat').AsDateTime, Now));

[-=mIx=-]

Что то не получается.
Стаж между 10.06.2010 и 22.06.2010 вычисляет равным 30.12.1899
В чем может быть проблема?

[Kailon]

А у меня работает... Мож у тебя дата в таблице как-то неверно записана?

[Black Raider]

Код:

stazh:=now()-Form1.Table1.FieldByName('Prinyat').Value;

вообще странно что так не сработало. должно было показать разницу в днях.
представление даты есть вещественное число.
так что как тут сказали может в таблице все таки как то дата покасячилась?

[Kailon]

Выкладывай исходник и базу, посмотрим.
P.S. если не жалко

[lmikle]

Сообщение от -=mIx=-

Что то не получается.
Стаж между 10.06.2010 и 22.06.2010 вычисляет равным 30.12.1899
В чем может быть проблема?

Проблема в отображении.
У тебя реультат отображается в формате даты-времени.
А вообще, глянь в модуль DateUtils - там есть куча функций для вычисления разницы между датами.