错误[BC30205]语句的结束预计

Question

public Function NumberOfSundays(byval dFrom as object,byval dTo as object) 

    While dFrom <= dTo Begin 
     If datepart(dw, dFrom) = 1 then 
      return dFrom 
     Set dFrom = DateAdd(d, 1, dFrom) 
else 

Set dFrom = DateAdd(d, 1, dFrom) 

End if 

end while 
end function 

我使用上面的代码返回周日日期，但收到以下错误

有一个在自定义代码3行错误：[BC30205]预计结束声明。

Answer 1

• Begin是一个未知的命令
• VBA没有Return声明。
• DateAdd返回Date，而不是对象，因此，你不应该Set东西，其结果是
• 假设VBA确实有Return语句，就在后立即做的事情是该行永远不会没有意义被达到。
• 一个While声明与Wend结束，而不是End While