如何从已知日期和月份查找星期几，但可变年份

Question

到目前为止，我的代码是：

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

varYear是已经过测试为有效数字的变体。

问题出在第二行，它不喜欢我试图将日期和月份合并到变量年份，还有另外一种解决方法吗？

编辑：
我已经将代码更改为：

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

它仍然有问题，它说的是类型不匹配。我知道问题是从第二行再次冒出来。

Answer 1

通过消除不必要的变量并因此消除潜在的转换问题，找到了解决方案 最终的代码如下：

  

intJan =工作日（CDate（“1/1 /”＆amp; varYear））