错误[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