錯誤[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