Как посчитать дни?

[Sergius X]

Привет, знатоки! Подскажите, какой код можно написать чтобы он дату отнимал от даты и получил какой то срок в днях???
Я написал вот так, но надо дополнить (или вообще написать другое):

procedure TDM.QSpisanieCalcFields(DataSet: TDataSet);
begin
 QSpisanieFact_sroc_ecspl.Value := QSpisanieData_spisania._______ - QSpisanieData_postuplenia.________;
end;

QSpisanie - это Query;
Fact_sroc_ecspl(фактический срок эксплуатации) - это надо посчитать;
Data_spisania(Дата списания) - от неё отнимаем;
Data_postuplenia(Дата поступления) - её отнимаем;
_______ - а тут я не знаю какой тип ставить.
Помогите кто чем может...

[Serge_Bliznykov]

1) я бы рекомендовал вычислять количество дней ещё на этапе SQL запроса (зачем дёргать вычисляемые поля без крайней надобности)
2) если у Вас Дата списания/ Дата Поступления - типа Datatime
тогда попробуйте так:

QSpisanieFact_sroc_ecspl.Value := trunc(QSpisanieData_spisania.AsDatetime) - trunc(QSpisanieData_postuplenia.AsDatetime);

p.s. поле QSpisanieFact_sroc_ecspl должно быть Integer

[Sergius X]

Спасибо, прокатило.
И еще у меня есть подобная задачка. Надо от текущей даты отнять имеющуюся.
Помогите осуществить...

[Serge_Bliznykov]

trunc(Now) - trunc(QИмеющаяся_дата.AsDatetime)

p.s. имхо, всё же Вы напрасно не хотите сделать подобные вычисления в самом запросе (на SQL)...

[Sergius X]

Спасибо за помощь.

P.S. уже сделал так...

[Sergius X]

А еще ни кто не скажет как полученные дни можно перевести в года?
Кстати дайте пожалуйста описание вот этому - "trunc", а то пользуюсь и не знаю чем

[mihali4]

А вы скачайте себе книжку какую-нибудь по Дельфи для начинающих (первой темой каждого раздела идет литература) и куча вопросов отпадет.
Методом тыка программировать не научишься...