请教如附件，    怎么知道 2005 年 8 月 的  1 号 是  星期1     ，2 号 是 星期2 ？ 而 2005 年 9  月 的  1 号是 星期4 ，2 号是星期 5 ................................................. ................................................ ................................................    当 2006 年呢？    各位大哥，怎么能写出这样的算法啊？    谢谢！ 發表人 - lsh998 於 2005/05/18 09:20:29

您好﹗    可使用DayOfWeek函數減1的方法來計算﹐如下﹕

Var
  I: Integer;
begin
  I := DayOfWeek(Now)-1;
  ShowMessage('今天是星期' + IntToStr(I));
end;

DayOfWeek函數的回傳值為1~7﹐分別代表星期日~星期一﹐便于觀察﹐我們用其回傳值減一﹐其得值為0~6﹐就分別代表星期一~星期日. ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/05/18 09:29:41

------
忻晟

cashxin2002 大哥： 您好！ 二月份比较特别一点，cashxin2002 大哥，是不是闰年是29 天，而 平年是 28 天啊 还有，怎么判断 是 闰年，还是平年啊！ 谢谢cashxin2002 大哥！

您好﹗    沒有錯﹐闰年是29天﹐平年的28天﹐對于DayOfWeek函數來說﹐其會自動判斷年份是否為闰年﹐只要是正确的日期﹐就可以回傳星期值﹒    判斷闰年﹐可使用IsLeapYear函數或IsInLeapYear﹐方法如下﹕

if IsLeapYear(1966) then //傳入值形態Word
  ShowMessage('闰年');
end;

uses DateUtils;
if IsInLeapYear(Now) then //傳入值形態TDateTime
  ShowMessage('闰年');
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

cashxin2002 大哥： 太感谢您了^_^！