SQL Server的datedepart函数,可以比较两个时间的 年,月,日,时,分,秒...

解决方案 »

  1.   

    用两个datetime变量分别取得要比较的两个值,然后相减,取得小数部分
      

  2.   

    var UseTime :Real;
        iUseTime :Integer;
        iDay,iHour,iMin,iSec :Integer; 
      UseTime := (FirstTime - NextTime) * 3600 * 24;
      iUseTime := Round(UseTime);
      //天数
      iDay := iUseTime div (60*60*24);
      //小时
      iHour := iUseTime div (60*60);
      //分钟
      iMin := iUseTime div 60;
      //秒
      iSec := iUseTime;
      

  3.   

    FormatDatetime('H"小时"M"分"S"秒"Z"毫秒"',Frac(Date1-Date2));
      

  4.   

    var a,b:ttime;
        h1,h2,m1,m2,s1,s2,ms1,ms2:word;
    c:real;
    begin
      a:=strtotime('17:35:55');
      b:=strtotime('17:38:55');
      decodetime(a,h1,m1,s1,ms1);
      decodetime(b,h2,m2,s2,ms2);
      edit1.Text:=floattostr(abs(m2-m1));
    end;