设置区域设置的日期格式

'设置区域设置的日期格式
  Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
  Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
  Private Const LOCALE_SLONGDATE = &H20
  Private Const LOCALE_SSHORTDATE = &H1F
  Private Const LOCALE_STIME = &H1E
  Private Sub Command1_Click()
      Dim lngLocale     As Long
      lngLocale = GetSystemDefaultLCID()
      If lngLocale = 2052 Then SetLocaleInfo lngLocale, LOCALE_SSHORTDATE, "yyyy-MM-dd"
   
  End Sub