对于TDate使其时间部分以大于24的形式显示？

Question

function DateToHour(Date1 :TDateTime):String;
var 
  hh,mm,ss,ms: word;
begin
  DecodeTime(Date1,hh,mm,ss,ms);
  Result := IntToStr(hh+24*Trunc(Date1))+':00');
end;

Answer 1

用TDateTime肯定不行，要自定义数据类型type
  TmyDate = record
    hh:integer;
    mm:integer;
    ss:integer;
  end;多后自己处理

Answer 2

例如数据库中一个TDateTime字段的DisplayFormat属性。