在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