ShowMessage(FormatDateTime('YYYY-MM-DD HH:NN:SS', date1-date2));

procedure TForm1.Button3Click(Sender: TObject);
var
  year,month,day,h,m,s,ms,days:word;
  str1,str2:string;
begin
  str1:='2004-5-8 14:23:55';
  str2:='2004-5-8 23:13:24';
  days:=DaysBetween(strtodatetime(str2),strtodatetime(str1));
  year:=days div 365;
  month:=(days mod 365) div 30;
  day:=(days mod 30);
    
  DecodeTime(strtodatetime(str2)-strtodatetime(str1),h,m,s,ms);  
  showmessage(format('%d年; ',[year]) format('%d月; ',[month]) format('%d日; ',[day]) format('%d小时; ',[h]) format('%d分钟; ',[m]) format('%d秒; ',[s]) format('%d微秒',[ms]));
end;

引言: 几位大大说的有理,不过如果一个小的时间减去大的时间就最成正数了,我是在倒计时中使用的,比如大的时间减小的时间为 57,56,55,54...,如果小的时间减大的时间就成了 54,55,56,57...,因为我的天数还没到,所以还要倒计时,这样就不准确了!

ychx您好：您有试过程式吗不明白您所需，可否贴出代码，或说明您的需求 ~~~行径窄处，留一步与人行~~~

ShowMessage(FormatDateTime('YYYY-MM-DD HH:NN:SS', date1-date2));  是錯的作法    因為FormatDataTime 或是說 TDatetime (float值) 是以 1899/12/30 12:00 am 為 0 ,  1 就等於24小時 (1天)
所以TDatetime=0.1就相當於 1/24 小時  = (1/24)*60分鐘  
所以如果帶入   date1=2004/01/01 10:00:00 , date2=2004/01/01 09:00:00 (相差一小時)
結果會變成  1899-12-30 01:00:00
等於是得出 算出距離1899/12/30 12:00 am 1個小時的TDatetime值    //此函式跟時間誰先誰後無關
function TForm1.TimeStrInBetween(time1, time2: TDatetime):String;
var
  days, year,mon,day, h, m, s, ms:Word;
begin  
  DivMod(DaysBetween(time1, time2), 365 , year, days); //精簡一下
  DivMod(days, 30, mon, day); //精簡一下
  DecodeTime(time1-time2,h,m,s,ms);
  Result:=Format('%d  年, %d 月, %d 日, %d 小時, %d 分, %d 秒, %d 微秒', [year, mon, day, h, m, s, ms]);
end;