错误 [BC30205] 预期语句结束

【问题标题】：Error [BC30205] End of statement expected错误 [BC30205] 预期语句结束
【发布时间】：2017-04-25 04:47:54
【问题描述】：

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] End of statement expected.

【问题讨论】：

标签： vba

【解决方案1】：

Begin 是未知命令
VBA 没有Return 语句。
DateAdd 返回一个 Date，而不是一个对象，因此你不应该在它的结果中使用 Set 的东西
假设 VBA 确实有 Return 语句，那么在它之后立即执行某些操作是没有意义的，因为永远不会到达该行。
While 语句以Wend 结尾，而不是End While

【讨论】：

谢谢，我没有意识到我在 VBA 中使用了 sql 代码，我一直在纠正它。