各位大大請問一下 假如 2003/12/31是建檔日 2004/01/01是隔一天 要怎麼做加減才能算出來他只差一天丫

引言: 各位大大請問一下 假如 2003/12/31是建檔日 2004/01/01是隔一天 要怎麼做加減才能算出來他只差一天丫

DaysBetween 學而時習之不亦樂乎!

寫個簡單的範例  直接相減就可以    

    procedure TForm1.Button1Click(Sender: TObject);
var t1,t2:tdate;
begin
    t1:=strtodate('2003/12/31');
    t2:=strtodate('2004/1/1');
    showmessage (floattostr(t2-t1));
end;    

引言: 各位大大請問一下 假如 2003/12/31是建檔日 2004/01/01是隔一天 要怎麼做加減才能算出來他只差一天丫

Hi killerterry: 這個問題討論的蠻多的喔.. 建議可以善加利用KTOP強大的搜尋功能喔 我個人最欣賞Micky 版大的解法喔

引言: 引述Micky版大.... Delphi TDateTime 事實上是實數 整數部分是天數 (自 1899/12/31 起算), 小數部分是時間 (單位為天) 所以 你可以直接將 Trunc(D2) - Trunc(D1).

其他相關討論, 解法太多了, 自己吸收囉 >~悠遊法國號~

DaysBetween 學而時習之不亦樂乎! [/quote] 幫JEST大大補一下如果你不計較到是否差別24小時 只在乎日曆上是否差一天 這是最快的方法，但先記得uses Dateutils Showmessage(Inttostr(daysbetween(StrToDateTime('2004/1/5'),StrToDateTime('2004/6/2')))); 作個參考吧!!

您可以試試看: procedure TForm1.Button1Click(Sender: TObject); var d1,d2:TDate; begin d1:=StrToDate('2003/12/31'); d2:=StrToDate('2004/01/01'); Label1.Caption :='2003/12/31~2004/01/01 共計' IntToStr(trunc(Double(d2)-Double(d1))) '天'; end; 發表人 - mirage 於 2004/06/03 16:32:48