自动设置时间格式、日期格式、数字格式
时 间:2015-09-06 21:49:01
作 者:蟹仔 ID:3945 城市:广州
摘 要:自动设置时间格式、日期格式、数字格式
正 文:
大家是否发现自己做好的系统部署到其他计算机运行的时候,每台机的时间、日期、数字显示格式都不一样,导致显示的时候出错?例如当类型为小数时,有时候零什么都不显示,0.7只显示.7,又例如在自己的电脑显示时间如“2015/01/01 12::12:12”,把宽度调整为刚刚好,但在别的电脑却显示上下午导致显示不全?
这时候就需要自动设置系统设置。
首先声明变量
Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long
Private Declare Function GetSystemDefaultLCID Lib "Kernel32" () As LongPrivate Declare Function SetLocaleInfo Lib "Kernel32" Alias "SetLocaleInfoW" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As Long) As Long
接着把下列代码复制到form_load或者按钮事件即可。
Dim dwLCID As Long
dwLCID = GetSystemDefaultLCID()
SetLocaleInfo dwLCID, 18, StrPtr("1")
SetLocaleInfo dwLCID, 31, StrPtr("yyyy/MM/dd")
SetLocaleInfo dwLCID, 32, StrPtr("yyyy‘年‘M’月‘d’日‘“)
SetLocaleInfo dwLCID, 4099, StrPtr("H:mm:ss")
其中 参数 18 是设置零起始值,31设置短日期格式 32设置长时间格式 4099设置时间格式
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
- 用DLOOKUP函数将需求表中...(10.31)
- Access日期区间段查询数据...(10.25)
学习心得
最新文章
- Access快速开发平台--在WI...(03.08)
- 使用SQL语句删除xscj表中学号...(03.08)
- Access快速开发平台进销存教程...(03.07)
- Access快速开发平台--frm...(03.06)
- 【Access删除查询】删除数字最...(03.06)
- Access快速开发平台进销存教程...(03.05)
- Access快速开发平台进销存教程...(03.04)
- Access快速开发平台--IsL...(03.02)
- Access两种方式实现即时更新月...(03.01)
- Access开发的资金管理系统;基...(02.29)