tdatetime2 - tdatetime1 = days, time

[Jon killer]

тема для Делфи 7
  Чуваки, здорова всем )))
Вобшем такая проблемма:
помогите написать функцию, есть две переменные
d1,d2 : tdatetime

результат должен быть


сколько дней между этими переменными и остаточное время... 

[Oldy]

RTFM

Delphi syntax:

type TDateTime = type Double;

сколько дней между этими переменными и остаточное время... 

А куда будем ночи девать, читать Help?

[x77]

Oldy, да ладно, там не так уж и просто всё задача стоит остаточное время вывести. разница между d1 и d2 по модулю даст разницу, но опять таки в формате TDateTime. эту разницу потом ещё надо будет разкодировать (DecodeDateTime, если не ошибаюсь) и вычислив по годам, месяцам и дням количество дней, по дробной части вычислить время. другое дело, что в семёрке появились могучие функции, типа

Код:

function DaysBetween(const ANow, AThen: TDateTime): Integer;

, которые большую часть рутинной рабты берут на себя.