Can anyone please explain the following weird inconsistency??? My Regional Setting is confirmed as (Short Date): dd/mm/year so why does this happen when i run the script below??

Wscript.Echo Date 'Shows: 13/06/2008
strValue = InputBox("Enter Start Date:","Test", Date) 'Shows: 06/13/2008 in the box.
Wscript.Echo Date 'Shows: 13/06/2008

Any DateAdd calculation only happens on the (incorrect) "06/13/2008" value.

Looks like a bug to me!

Obviously, the simple WScript.Echo is paying attention to the Locale and is giving you the DD/MM/YYYY format you expect.

But for some reason INPUTBOX is ignoring the locale.

What you *MIGHT* try is converting the date to string *before* passing it to the inputbox.

Humor me and try this:

today = CStr(Date())
Wscript.Echo today
strValue = InputBox("Enter Start Date:","Test", today)
Wscript.Echo today

It may be wrong--it might always show MM/DD/YYYY--but at least it should be consistent.

OK Thanks a lot for that. To add to the mystery this only happens on [u]some</u> computers (not this one). I will try your suggestion when I get back to the apartment and let you know on Monday. Thanks again.

This is even weirder:

Wscript.Echo Date 'Shows 14/06/2008
Wscript.Echo Date & " " & Cstr(Date()) 'Now shows 06/14/2008 06/14/2008 !!!
todayStr = Cstr(date())
Wscript.Echo todayStr 'Says 06/14/2008
strValue = InputBox("Enter Start Date:","Test", todayStr)
Wscript.Echo todayStr 'Says 06/14/2008

All very, very odd!