自动设置时间格式、日期格式、数字格式-蟹仔
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


自动设置时间格式、日期格式、数字格式

发表时间:2015/9/6 21:49:01 评论(7) 浏览(14640)  评论 | 加入收藏 | 复制
   
摘 要:自动设置时间格式、日期格式、数字格式
正 文:

大家是否发现自己做好的系统部署到其他计算机运行的时候,每台机的时间、日期、数字显示格式都不一样,导致显示的时候出错?例如当类型为小数时,有时候零什么都不显示,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 Long
Private 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群(群号:198465573)
 
 相关文章
自动设置access宏安全性  【十段  2008/5/12】
[access报表]报表打印预览时小数位不显示0开头的解决方法;解...  【UMVsoft整理  2008/12/17】
时分秒掩码设置\输入日期时分秒掩码示例\掩码设置之输入日期时间格式...  【叶海峰  2012/3/12】
自动设置窗体高度  【十段  2012/7/12】
秒数转换成时间格式  【叶海峰  2012/7/14】
自动设置Access主窗体大小及根据当前屏幕分辨率居中显示  【网行者  2013/5/8】
常见问答
技术分类
相关资源
文章搜索
关于作者

蟹仔

文章分类

文章存档

友情链接