在Excel/VBA中检查PC日期区域

Question

是否有任何VBA功能可以让我检查PC日期格式（区域设置）。这是在控制面板 - >区域和语言中设置的。

迈克尔

Answer 1

我发现这是一个几年前，我用它来检查的区域日期格式：

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 

所以，在我的设置在这里，在函数返回：DD/MM/YYYY

Answer 2

您可以read this data from the registry在

HKEY_CURRENT_USER\Control Panel\Internationaly\ 

• sLongDate表示长日期例如dddd, d. MMMM yyyy
• sShortDate代表短日期例如yyyy-MM-dd