Checking PC Date region in Excel/VBA

Question

Is there any VBA function that lets me check a PC date format (regional setting). This is set within the Control Panel -> Region and Language.

Michael

May I ask what you really like to achieve? Usually you shouldn't need that information. — Pᴇʜ, Apr 25 '17 at 13:36

score 0 · Accepted Answer · answered Apr 25 '17 at 13:37

I found this a couple of years back which I use to check the regional date format:

Function DateFormat() As String
  DateFormat = CStr(DateSerial(1999, 1, 2))
  DateFormat = Replace(DateFormat, "1999", "YYYY")
  DateFormat = Replace(DateFormat, "99", "YY")
  DateFormat = Replace(DateFormat, "01", "MM")
  DateFormat = Replace(DateFormat, "1", "M")
  DateFormat = Replace(DateFormat, "02", "dd")
  DateFormat = Replace(DateFormat, "2", "d")
  DateFormat = Replace(DateFormat, MonthName(1), "MMMM")
  DateFormat = Replace(DateFormat, MonthName(1, True), "MMM")
End Function

So on my set-up here, the function returns: dd/MM/YYYY

score 0 · Answer 2 · edited May 23 '17 at 12:17

0

You can read this data from the registry at

HKEY_CURRENT_USER\Control Panel\Internationaly\

sLongDate represents the long date e.g. dddd, d. MMMM yyyy
sShortDate represents the short date e.g. yyyy-MM-dd

edited May 23 '17 at 12:17

Community

1
1

answered Apr 25 '17 at 13:39

Pᴇʜ

56,719
10
49
73

Checking PC Date region in Excel/VBA

2 Answers2