[Dux]

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

Код:

var
  H, M, S : Word;
  RecDate : TDateTime;
  Diff :  TDateTime;
begin
  H := StrToInt(Copy(Edit1.Text,1,2));
  M := StrToInt(Copy(Edit1.text,4,2));
  S := StrToInt(Copy(Edit1.Text,7,2));
  RecDate := DateTimePicker1.Date + EncodeTime(H,M,S); // Здесь у EncodeTime можнет быть доп-параметр. Выставить в 0.

  Diff := Now - RecDate; // чистая разница. Также см функции в модуле DateUtils
end;

Попробовал Ваш вариант, также не считает количество дней между датами, только часы в пределах одних суток. Может можно как-то подправить?