Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/ruby/21.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel将Excel日期公式转换为VBA_Excel_Vba - Fatal编程技术网

Excel将Excel日期公式转换为VBA

Excel将Excel日期公式转换为VBA,excel,vba,Excel,Vba,我有下面这个Excel公式 =DATE(YEAR(G8),MONTH(G8),8)-WEEKDAY(DATE(YEAR(G8),MONTH(G8),4))+14 我想将此Excel公式转换为VBA 是否可以在Excel VBA中执行此操作?请帮助我,我认为这是正确的。似乎正在输出相同的内容: Public Function thirdWednesday(inDate As Date) As Date thirdWednesday = ((inDate - Day(inDate) + 8

我有下面这个Excel公式

=DATE(YEAR(G8),MONTH(G8),8)-WEEKDAY(DATE(YEAR(G8),MONTH(G8),4))+14
我想将此Excel公式转换为VBA
是否可以在Excel VBA中执行此操作?请帮助我,我认为这是正确的。似乎正在输出相同的内容:

Public Function thirdWednesday(inDate As Date) As Date
    thirdWednesday = ((inDate - Day(inDate) + 8) - Weekday(inDate - Day(inDate) + 4)) + 14
End Function

“月8日减去该月4日的工作日数再加上14天”是这样吗?看看
DateAdd
DateSerial
函数……是的@JNevill,公式将返回每个月的第三个星期三。您是否尝试自己转换它?我猜落选是因为缺乏尝试。。。