请问各位,如何在VB6更改操作系统的时间格式和日期格式为指定格式?
如要更改操作系统的日期格式为:yyyy-MM-dd,更改操作系统的时间格式为:HH:mm:ss
非常感谢。
如要更改操作系统的日期格式为:yyyy-MM-dd,更改操作系统的时间格式为:HH:mm:ss
非常感谢。
解决方案 »
- 目前最多100没办法啊,在送100分~~~天天好心情~~
- 取得控件属性的问题,帮顶有分
- 求运行时显示 ocx 控件的属性页的方法
- 用vb 做学生管理系统时的问题
- 升星散分...
- 菜鸟问:关于FlexGrid中的打印问题!
- 能否把图文并茂的文章存入数据库?
- 是不是大家都过节去了,为什么没有人呢?散点分,聚聚人气!
- 如何对其它应用程序的某个窗口进行监控,当该窗口标题发生变化时模拟鼠标双击该窗口标题栏。急,在线等!
- 如何用VB代码实现创建SQL2000的链接服务器(LINKSERVER)~
- 如何实现键盘监控功能。
- VB連接到LOTUS NOTES數據庫文件,把NOTES庫文件轉存到ACCESS或EXCEL?
时间格式设置
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3"
日期格式设置
Shell "rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4"方法二:VB使用Register 的API或Vb中引用Register type library修改注册表
HKEY_USERS\.DEFAULT\Control Panel\International\sShortDate
HKEY_USERS\.DEFAULT\Control Panel\International\sTimeFormat
免费的学习交流网站,欢迎大家访问!
http://www.j2soft.cn/
http://j2soft.008.net/
Private Const HWND_BROADCAST = &HFFFF&
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As LongPrivate Sub setdateformat()
Dim dwLCID As Long, i As Long
Dim lpLCData As String * 255, cchData
cchData = Len(lpLCData)
dwLCID = GetSystemDefaultLCID()
i = SetLocaleInfo(dwLCID, LOCALE_SSHORTDATE, "yyyy-MM-dd") '设置短日期格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
i = SetLocaleInfo(dwLCID, 32, "yyyy-MM-dd") '设置长日期格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
i = SetLocaleInfo(dwLCID, LOCALE_STIMEFORMAT, "HH:mm:ss") '设置时间格式
PostMessage HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0
End SubPrivate Sub Form_Load()
Call setdateformat
End Sub
HKEY_USERS\.DEFAULT\Control Panel\International\sTimeFormat楼主可以打开注册表中的上述位置看看就明白了,然后用vb读写注册表就好了。
Private Const LOCALE_SLONGDATE = &H20 ' long date format string
Private Const LOCALE_SSHORTDATE = &H1F ' short date format string
Private Const LOCALE_STIMEFORMAT = &H1003 ' time format string