Вычисление разницы дат

[Dux]

Есть дата записанная в DateTimePicker1 равная 10.09.2010
Есть время, указанное в поле Edit1.text:='23:55:00'

Как узнать разницу в часах между текущим системным временем и исходными данными?

[Баламут]

uses DateUtils;

...................
var
  t: TTime;
  dt: TDateTime;
begin
  t := StrToTime(Edit1.Text);
  dt := DateTimePicker1.Date + t;

  ShowMessage(FloatToStr(HoursBetween(Today,dt)));
end;

[chertovich]

Набери в поисковике "Типы, функции и процедуры Delphi для работы с датой и временем"
и там есть необходимые функции, которые находят разницу между временем и датой

[_SERGEYX_]

Вообще, дата+время есть дробное число, где целая его часть - дата, дробная - время.
Найди разницу и переведи в формат DateTime.

[Dux]

Сообщение от Баламут

uses DateUtils;

...................
var
  t: TTime;
  dt: TDateTime;
begin
  t := StrToTime(Edit1.Text);
  dt := DateTimePicker1.Date + t;

  ShowMessage(FloatToStr(HoursBetween(Today,dt)));
end;

Спасибо, Баламут. Вроде работает, но немного странно. Если поставить дату в DateTimePicker равную 14.09.2010 а время в Edit1.text равное 00:20:00, то разница с текущим временем составляет 0 часов, хотя прошло уже 13 часов 22 мин. В чем может быть ошибка?

[Sanprof]

попробуй заменить

ShowMessage(FloatToStr(HoursBetween(Today,dt)));

на

ShowMessage(FloatToStr(HoursBetween(Now,dt)));

[_SERGEYX_]

Вместо Today написши Now
Вместо HoursBetween() напиши SecondsBetween()

ShowMessage(FloatToStr(SecondsBetween(Now,dt)));

Получишь разницу в секундах. Ну, и ,надеюсь, сам сможешь
разделить ее на 60 минут и 24 часа, чтобы разница выглядела примерно так
"2 суток 2 часа 35 минут 10 секунд"

[Dux]

Sanprof, спасибо за подсказку, все заработало!

[Dux]

Сообщение от _SERGEYX_

Вместо Today написши Now
Вместо HoursBetween() напиши SecondsBetween()

ShowMessage(FloatToStr(SecondsBetween(Now,dt)));

Получишь разницу в секундах. Ну, и ,надеюсь, сам сможешь
разделить ее на 60 минут и 24 часа, чтобы разница выглядела примерно так
"2 суток 2 часа 35 минут 10 секунд"

Теперь все стало на свои места, _SERGEYX_, спасибо за помощь!

[quit]

от себя добавлю, вот так

var
  t: TTime;
  dt: TDateTime;
begin
  t := StrToTime(Edit1.Text);
  dt := StrToDateTime(DateToStr(DateTimePicker1.Date) + ' ' + TimeToStr(t));
  ShowMessage(IntToStr(HoursBetween(Now,dt)));
end;