各位大大：

如題,

例2006年8月份共有5週

我是先找出該月的最後一天是幾號,然後用下列方式去找出

我利用WeekOfTheMonth(2006/08/31)===>5

但是WeekOfTheMonth(2006/10/31)=====>答案竟是1

Why??這個函數有問題,

還是另外有解決方式??

麻煩大家了!!!

應該不算是 bug, 那是老美 計算 週別的 '怪邏輯', 2006/10/31 已經歸到 11月的第一週了, 所以 call WeekOfTheMonth 會回傳 1.

若希望依我們(台式計算法)計算週別的邏輯, 那可能唯有 修改 DateUtils 中的 DecodeDateMonthWeek function了!

------
Hi! It's Menfox!

那請問...還有其它的方法嗎??

------
水瓶男的blog: http://791909.blogspot.com

写了这一个，试度看！
------------------------------------------------------------------------
function getWeekOfTheMonth(N: TDateTime): Integer;
var
M,K:Word;
begin
{日|一|二|三|四|五|六}
M := 7- DayOfTheWeek(StartOfTheMonth(N));//星期六是几号?
K := DayOf(N); //当天是几号?
//如果当天在第一周；返回1；
if K<=M then
Result := 1
else
Result := ((K-m) div 7) 2;
end;

自寫的大型月曆範例，至於你的問題，或許能有所啟發。參考參考。
http://delphi.ktop.com.tw/download.php?download=upload/488d39794669c_MonthCale.zip

------
努力會更接近成功