请教高手一个关于日期转换的问题！

Question

……=dateadd("d",7*(第几周-1)+(第几天-1),DateSerial(2002,1,1))

Answer 1

to vbhelp(VB助手) :
老大，你的代码我不太明白的说

Answer 2

自己查查DateAdd涵数的帮助文件吧光靠别人怎么行

Answer 3

先用weekday得出这年一月一日是星期几，比如weekday（2002-1-1）
dateadd("d",7*(第几周-1)+（这个星期第几天）-weekday(2002-1-1）+1),DateSerial(2002,1,1))

Answer 4

老大，谢了，我马上给分。
dateadd("d",7*(第几周-1)+(这个星期第几天)-weekday(2002-1-1,vbWednesday )+1,DateSerial(2002,1,1)-1)

Answer 5

Dim ww As Integer '第几周
ww = 7
MsgBox DateAdd("d", (ww - 1) * 7 - DatePart("w", DateSerial(Year(Date), 1, 1)) + 1, DateSerial(Year(Date), 1, 1))