Datetime 在VBScript中为日期对象设置日期和时间，而不更改系统日期/时间

当日期（包括现在）总是从Windows系统日期/时间调用时，我在VBScript中遇到问题

如何在不在Windows中配置系统日期/时间的情况下设置VBScipt的日期/时间

e、 g

在VBS中调用日期时，Date将返回当前系统日期（如果今天的日期是2001年1月1日）

我想连接VBS代码，从我们设置的日期中获取日期，而不更改代码中的Windows系统日期/时间

//Implement something to tell VBS that current date is 12/12/2000
Dim settingDate
settingDate = Date
//settingDate = 12/12/2000

谢谢

只要重新定义日期（），时间（），现在（）。POC脚本：

  WScript.Echo "Date()", Date()
  WScript.Echo "Time()", Time()
  WScript.Echo "Now()" , Now()
  ExecuteGlobal Join( Array( _
      "Function Date()" _
    , "  Date = #1/1/2012#" _
    , "End Function" _
    , "Function Time()" _
    , "  Time = TimeSerial( 1, 2, 3 )" _
    , "End Function" _
    , "Function Now()" _
    , "  Now = CDate( 4711.1147 )" _
    , "End Function" _
  ), vbCrLf )
  WScript.Echo "Date()", Date()
  WScript.Echo "Time()", Time()
  WScript.Echo "Now()" , Now()

输出：

Date() 26.08.2011
Time() 14:19:41
Now() 26.08.2011 14:19:41
Date() 01.01.2012
Time() 01:02:03
Now() 23.11.1912 02:45:10

只需重新定义日期（）、时间（）、现在（）。POC脚本：

  WScript.Echo "Date()", Date()
  WScript.Echo "Time()", Time()
  WScript.Echo "Now()" , Now()
  ExecuteGlobal Join( Array( _
      "Function Date()" _
    , "  Date = #1/1/2012#" _
    , "End Function" _
    , "Function Time()" _
    , "  Time = TimeSerial( 1, 2, 3 )" _
    , "End Function" _
    , "Function Now()" _
    , "  Now = CDate( 4711.1147 )" _
    , "End Function" _
  ), vbCrLf )
  WScript.Echo "Date()", Date()
  WScript.Echo "Time()", Time()
  WScript.Echo "Now()" , Now()

输出：

Date() 26.08.2011
Time() 14:19:41
Now() 26.08.2011 14:19:41
Date() 01.01.2012
Time() 01:02:03
Now() 23.11.1912 02:45:10

---

你想解决什么问题？系统日期应该是日期，如果您想要的不是日期，您可以说

Mydate=#12/12/2000#

并使用它。您好，Remou，我正在开发自动测试工具来检查许多设置日期的输出值，我想将代码中的所有日期（使用了很多）更改为其他日期。我不想更改代码，因为它属于许多开发人员。他们正在使用日期获取当前日期，我需要将其更改为其他日期以进行测试。Rob van der Woude怎么样？你想解决什么问题？系统日期应该是日期，如果您想要的不是日期，您可以说

Mydate=#12/12/2000#

并使用它。您好，Remou，我正在开发自动测试工具来检查许多设置日期的输出值，我想将代码中的所有日期（使用了很多）更改为其他日期。我不想更改代码，因为它属于许多开发人员。他们用日期来获取当前日期，我需要将其更改为其他日期进行测试。Rob van der Woude呢？