请教各位一个基础问题，不要笑我。

我想比较两个TDateTime中的Time，请问如何比较？
例如：
var
  time1, time2 : TDateTime; //time1是2009年1月1日 13：30：11，time2是1999年1月1日 23：30：11。
如果直接比肯定是time1大于time2，但是不考虑日期的话，time1的时间要小于time2的时间，我就是想不考虑日期直接比较时间，请问如何比较？
谢谢大家。

解决方案 »

  1.   

    if TimeOf(time1) > TimeOf(time2) then ....
      

  2.   

    procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);分别获取了Hour, Min, Sec, MSec，你比较就行了
      

  3.   

    uses dateutils
    CompareDate(TimeOf(datetime1), TimeOf(datetime2))TimeOf()是取某个日期时间类型中的时候
    CompareDate()是比较两个时间
      

  4.   

    FormatDateTime('HH-MM-MM', TIME);
    比较拿字符串比较也可以
      

  5.   

    date1,date2:string;date1:=FORMATDATETIME('HH24MMSS',DATETIMEPICKER1.Time);
    date2:=FORMATDATETIME('HH24MMSS',DATETIMEPICKER2.Time);
      if date1>date2 then
       begin
         showmessage('date1 大於 date2');
       end;
      

  6.   

    1楼的多么简单
    6楼的还有一个错误，时间格式不是delphi的
      

  7.   

    delphi中TDateTime表示浮点数 TDateTime整数部分表示日期 小数部分表示时间
    你要比较时间的话其实就是要比较两个浮点数小数部分的大小 用frac可以取到一个浮点数的小数部分