在EXCEL中直接用两行公式就可以计算出第几周对应的日期范围从几月几日到几月几日,要用到VBA,不能脱离EXCEL使用.
于是乎,下载了VB,发现公式不能直接使用.
原公式如下:

通过自己在网上摸索,自己把代码改成:
Label14.Caption = Format((Text2.Text - 1) - Weekday(Text2.Text - 1, 2) + Text3.Text * 7 - 6, "yyyy-m-d")
Label15.Caption = Format((Text2.Text - 1) - Weekday(Text2.Text - 1, 2) + Text3.Text * 7, "yyyy-m-d")
发现出来的结果不一样,比如,2012年第5周用EXCEL公式计算,开始日期是2012-1-23,结束日期是2012-1-29,而我上面的公式在VB中计算出来的如果是


这里哪里有问题,在网上找了很久没找到原因,后来发现这里的VB论坛,请教下各位.

谢谢 试了,还是跟我之前的代码出的结果一样不对.

结果是2039,TEXT3是下面那个,上面是TEXT2.

非常感谢,代码完美使用运行,受益匪浅.
有查询了相关参数,确实虽然一样的函数,功能确不一样.
还是要从基础开始学VB.

对了,再请教下一个问题,通过日期计算是哪一周,比如2022-1-1.
我是直接用EXCEO的函数
Label6.Caption = WorksheetFunction.WeekNum(Text1.Text, 1)
这个可以直接用,但是每次点击按钮都要停顿个1秒左右,再在网上搜索发现有个DatePart,然后我就把代码改成
Label6.Caption = DatePart("ww", Text1.Text)
后面这个可以直接出结果,是不是后面这个直接是VB函数,所以直接用,而上面那个是EXCEL需要调用,才会导致使用时有1秒延时.

谢谢回复.这相代码也可以达到.  吸收下.