使用vbscript更改日期格式，而不考虑日期格式

Question

我想只更改日期中的年份而不考虑日期格式。例如，如果日期= 05/20/2019 0r 05-20-2019，那么它应该更改为05/20/2017

Answer 1

只需使用DateSerial()替换Year组件。

Call SetLocale("en-us")
Dim oldDate: oldDate = CDate("05/20/2019")
Dim newDate: newDate = DateSerial(2015, Month(oldDate), Day(oldDate)