|
本帖最后由 红尘如烟 于 2010-8-8 13:06 编辑
这个得用API才行
- Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
- Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
- Sub SetSystemDateFormat()
- Dim lngLCID As Long
- lngLCID = GetSystemDefaultLCID()
- SetLocaleInfo lngLCID, &H1F, "yyyy.M.d" '设置短日期格式
- SetLocaleInfo lngLCID, &H20, "yyyy'年'M'月'd'日'" '设置长日期格式
- SetLocaleInfo lngLCID, &H1003, "HH:m:s" '设置时间格式
- End Sub
复制代码
注意里面表示月份的 M 和表示小时的 H 一定要大写,不然可能会出错 |
|