如何使用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