Jahr unabhängig vom Datumsformat mit VBScript ändern

Question

Ich möchte nur Jahr im Datum unabhängig von Datum Format ändern. Zum Beispiel, wenn Datum = 05/20/2019 0r 05-20-2019, dann sollte es geändert werden zu 05/20/2017

Answer 1

Verwenden Sie einfach DateSerial(), um die Jahr-Komponente zu ersetzen.

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