Question

I am in trouble. I have an requirement where I need to sort date values using VB script but I couldn’t find the way how to do it.

My Sample code is below:

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

But the above code is not producing correct message when I ran it. Can any one help me here?

Answer 1

I can’t see any problems with:

>> 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