如何從已知的日期和月份中查找星期幾，但年份可變

Question

到目前為止，我的代碼是這樣的：

 intYear = CDate(varYear) intJan = Weekday("1/1/" & intYear) 

varYear是一種變體，已被測試為有效數字。

問題出在第二行中，它不喜歡我嘗試將日期和月份合並到可變年份中，還有其他解決方法嗎？

編輯：
此后，我將代碼更改為此：

 varJan = ("1/1/" & varYear) intJan = Weekday(CDate(varJan)) 

它仍然有麻煩，它表示存在類型不匹配。 我知道問題從第二行再次冒出來。

Answer 1

通過消除不必要的變量，從而消除了潛在的轉換問題，找到了解決方案。
最終代碼如下：

intJan =工作日（CDate（“ 1/1 /”和varYear））