引言: 如果可以使用 Delphi 已經寫好的函數, 就會方便得多了 uses DateUtils; DaysInAYear(2008) 得到 2008 年的日數 (366) DaysInAMonth(2008,2) 得到 2008 年 2 月的日數 (29) DayOfTheWeek(Date) 得到今天是星期幾 ?

引言: 首先，你先決定好要用誰做基準 例如你這裡是用 2003/1/1 星期三為例 現在是 2005/3/29 是星期幾呢？ 只要算出今天跟 2003/1/1 隔幾天就行了 實際上有比較快的算法 已知一年有 365 天，365 除以 7 餘 1 可得知每隔一天，星期會加一，隔二年即加二 不過，閏年有 366 天，也就是星期會加二，不過，原本已經先加一了 所以你只要算出有幾個閏年，再算上去就行了 2005/1/1 ~ 2003/1/1 只有 2004 是閏年，所以再加一 所以，2005/1/1 就是星期六了 再來算，2005/3/1 星期幾 中間隔了二個月，把一月/二月的天數加上去 6 31 28 = 65 除以 7 餘 2(星期二) 好啦，進行到這個步驟，你已經可以把2005/03的月曆印出來囉 其中，只有算區間閏年比較麻煩一點，不過，你可以用好算的參考年來簡化 例如: 2000/1/1 之類的 記得中間好像有某一年某月少了幾週，這個地方要留意 詳細的年份不太記得了，大抵是 19xx 年左右，所以... 以 2000 以後的為參考吧

引言:有沒有人能幫我解答阿>"< 定基轉日ㄉ寫法~ 跟算兩段日子差幾天要怎ㄇ寫阿QQ

引言: 日子的算法跟閏月的判別我都差不多會了~ 但是我要抓一天作基準日的寫法要怎麼寫阿??

var
  dt: TDateTime;
begin
  // 三個參數分別傳入 年、月、日
  dt := EncodeDate(2005, 4, 5);
end;

var
  dtStandard, dtInput: TDatetime;
  iDays: integer; // 相差天數
begin
  dtStandard := EncodeDate(1950, 1, 1);
  dtInput := EncodeDate(2005, 4, 5);
  if dtInput >= dtStandard then
    iDays := Trunc(dtInput - dtStandard)
  else
    iDays := Trunc(dtStnadard - dtInput);
end;