要求輸入員工入厰日期，統計到今天為止入厰的天數。有以下幾個問題請大傢指導一下： 1. 每個月的總天數都不同，如1月有31天、2月有28/29天...有什么算法可以方便計算到今天為止的天數？ 2. 我用access做數據庫，請問“入厰日期”這個字段用什么數據類型？日期？文本？ 3. 在開髮齣來的程序中，輸入的“入厰日期”信息用什么格式比較方便計算呢？2005-01-01？2005/01/01？20050101？...或者其他？ 痲煩各位指點，謝謝！

1. 直接減就可以了..... [入廠日期] - Now() 取整數部份 2. 日期型態就行了 3. 2005/1/1 -> 如果是日期型態就很容易處理了

wyndog前輩，妳好： 1.妳說的直接減，應該是Now()－【入厰日期】吧？ 2.我在access裏麵設置日期的格式是2005-1-1，在軟件輸入的日期信息是不是也要符閤該格式？ 3.假設現在的日期：2005-3-1，入厰日期：2005-2-27，計算得到的天數為3，對嗎？ 謝謝！

歹勢！插個花！ 如果是Delphi 7，可以試試看 function DaysBetween(const ANow, AThen: TDateTime): Integer; Ian

引言: 1.妳說的直接減，應該是Now()－【入厰日期】吧？

對，不小心打錯了...||

引言: 2.我在access裏麵設置日期的格式是2005-1-1，在軟件輸入的日期信息是不是也要符合該格式？

這個要試試看 2005/1/1 這種格式，確定是可行的 2005-1-1 好像會有點怪怪的

引言: 3.假設現在的日期：2005-3-1，入厰日期：2005-2-27，計算得到的天數為3，對嗎？

會得到 2 (2/28 & 3/1 二天) 所以，如果 2/27 要算的話，要記得 1

引言: 歹勢！插個花！ 如果是Delphi 7，可以試試看 function DaysBetween(const ANow, AThen: TDateTime): Integer; Ian

我用DatsBetween的時候老是齣錯，請給我一個實例，謝謝！

引言: 我用DatsBetween的時候老是齣錯，請給我一個實例，謝謝！

你要 uses DateUtils; 啊

EX:    uses DateUtils;    var
  d1, d2: TDate;
  diff: integer;    begin
  d1 := EncodeDate(2005, 2,27);
  d2 := EncodeDate(2005, 3, 1);
  diff := DaysBetween(d1, d2);
end;

謝謝各位的幫助，我的問題已經得以解決暸！