vbscript - 如何使用 VBscript 对日期值进行排序

Question

我有麻烦了。我有一个要求，我需要使用 VB 脚本对日期值进行排序，但我找不到如何去做。

我的示例代码如下：

Option Explicit

Dim Date1,Date2

Date1=#9/14/2012  1:15:20 AM#
Date2=#9/15/2012  2:36:49 PM#

If Date1>Date2 Then

 MsgBox("Hi")

Else

 MsgBox("Hello")

End If

但是上面的代码在我运行它时没有产生正确的消息。有人能帮我一下吗？

Answer 1

我看不出有任何问题：

>> Date1=#9/14/2012  1:15:20 AM#
>> WScript.Echo Date1
>> Date2=#9/15/2012  2:36:49 PM#
>> WScript.Echo Date2
>> WScript.Echo CStr(Date1 > Date2)
>> WScript.Echo DateDiff("s", Date2, Date1)
>> WScript.Echo DateDiff("h", Date2, Date1)
>> WScript.Echo DateDiff("d", Date2, Date1)
>>
14.09.2012 01:15:20   <-- german locale
15.09.2012 14:36:49
False
-134489
-37
-1