将日期和年份转换为VBScript中的日期

Question

我已经看过一些类似的问题/答案，但他们都没有回答我的问题/回答VBS。我有一些日子，我想转换为今年的日期。但是，当我尝试将它们转换为日期时，我得到了错误的值，因为它使用的是1900年。有什么方法可以在CDate函数中指定年份吗？我查看了Calendar课程，但这并不适用，因为我使用的是VBScript。

MsgBox(CDate(195))
MsgBox(CDate(196))
MsgBox(CDate(197))
MsgBox(CDate(198))
MsgBox(CDate(199))

这些给我7/13/1900,7 / 14 / 1900,7 / 15/1900等。

Answer 1

使用DateAdd为DateSerial获得的开始日期添加天数：

>> dt2014 = DateSerial(2014, 1, 1)
>> WScript.Echo dt2014
>>
01.01.2014
>> WScript.Echo DateAdd("d", 195, dt2014)
>>
15.07.2014

（德语区域设置;了解+ -1偏差（添加到一年的第一天））

将wrt更新为@Bond的评论：

即使您需要在开始日期添加许多天（因为我理解任务），使用具有许多不同日期参数的DateSerial可能会更有效。