N netrin Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-12 #1 如1月有5周， 1.1-1.7 1.8.-1.14 1.15-1.21 1.22-1.28 1.29-2.3 那2月的第1周是从几号算起呢？
N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-12 #2 10月第一周当然是指第一天那一周啦。 DayOfWeek可以得到哪天是星期几。
Y yeskert1 Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-12 #3 只要得到某月1号是星期几，很简单就能算出第一个周从哪天开始。 太简单了！
Y yeskert1 Unregistered / Unconfirmed GUEST, unregistred user! 2007-09-12 #4 你认为每周开始于周一还是周日？假设是周日。 funciton f1(nian,yue:word):integer; var d:TDatetime; begin d:=EncodeDate(nian,yue,1); result:=dayofweek(d); if result=1 then exit//1号正好是周日，周日是每周第一天 else result:=i+(7-i)+1； end; 如果你认为周一是每周开始，那么调整一下即可
你认为每周开始于周一还是周日？假设是周日。 funciton f1(nian,yue:word):integer; var d:TDatetime; begin d:=EncodeDate(nian,yue,1); result:=dayofweek(d); if result=1 then exit//1号正好是周日，周日是每周第一天 else result:=i+(7-i)+1； end; 如果你认为周一是每周开始，那么调整一下即可
