一个小问题，可我问了好几天了！

Question

delpli6.0
uses DateUtilsweekoftheyear(MonthCalendar1.date)

Answer 1

TO：myxfang(一周内戒网~~)　
可我用的是DELPHI5，没有这个函数，请问还有没有别的方法？ 多谢！

Answer 2

大不理自己写一个咯：
uses Math;function WeekOfTheYear(Date: TDateTime)
var
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  Result:= Floor(Date - EncodeDate(Year, 1, 1) + 1) DIV 7 + 1;
end;

Answer 3

大不理自己写一个咯：
uses Math;function WeekOfTheYear(Date: TDateTime)
var
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  Result:= Floor(Date - EncodeDate(Year, 1, 1) + 1) DIV 7 + 1;
end;

Answer 4

多谢谢Java_SCU(Java)老兄，给你加分了收到没有？

Answer 5

系统又给了一个相同的提示：Java_SCU 得 50分
给出总分：50
您给的分数总和不是20。，　返回上一页。呵呵！100分别嫌少哟！ 
再多也没有了！ 兄弟还要省点分去提问，免得别人老是骂我菜鸟！呵呵！