捕获并更改系统日期

Question

我正在研究一个“小型” Windows窗体应用程序项目，该项目将启动另一个旧应用程序。旧应用程序的日期必须为 1/6/2015 才能打开。因此，我试图将当前日期“捕获”为变量，以更改系统日期，以便旧应用程序启动，并且当旧应用程序完成时，我想返回当前系统日期。

所以我正在尝试类似的事情...

Dim _CurrentYear As Integer = Now.Date.Year
Dim _CurrentMonth As Integer = Now.Date.Month
Dim _CurrentDay As Integer = Now.Date.Day

Microsoft.VisualBasic.DateString = CType(New Date(2015, 6, 1), String)

Dim MyProcess As Process = Process.Start(OldApplication)
MyProcess.WaitForExit()

Microsoft.VisualBasic.DateString = CType(New Date(_CurrentYear, _CurrentMonth, _CurrentDay), String)

我得到这个例外...

System.InvalidCastException: 'Conversion from string "29/11/2018" to type 'Date' is not valid.'

我知道我在做什么错吗？

Answer 1

要捕获当前日期，请使用

 Dim dt As DateTime = Now

然后更改

 Microsoft.VisualBasic.DateString = dt.ToString