vb更改系统日期格式问题！！！

Question

   如何实现用vb更改系统日期格式的问题，就是所在程序启动的时候判断系统日期格式是否为“yyyy-mm-dd”，如果不是遮改成为“yyyy-mm-dd”的格式，就像控制面板中的区域设置一样，系统要求win98/win2000/winxp.谢谢各位了！！！

Answer 1

ch21st(风尘鸟.shannon) 的代码：
用SetLocaleInfo 来实现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_SLONGDATE, "yyyy'年'M'月'd'日'"End Sub判断日期格式可用getLocaleInfo 

Answer 2

rainstormmaster(rainstormmaster) 兄，谢谢回复，SetLocaleInfo 方法的确可以实现，但我在2000和xp中都不能用啊，而且日期分隔符也不对，要是换成“-”，就变成-mm-了，这是怎么回事呀？？