设为首页收藏本站Access中国
Office中国(www.office-cn.net),专业Office论坛

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1939|回复: 3

[模块/函数] (分享)解决数字的前导零不显示的问题

[复制链接]

点击这里给我发消息

发表于 2008-10-14 18:04:43 | 显示全部楼层 |阅读模式
1。在控制面板中的区域设置中,将 数字前导零显示格式 修改一下

2。使用API代码
   Dim Buffer As String * 100
      Dim lngLocale As Long
      Dim GetLanguage As String
      lngLocale = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILZERO, Buffer, 99)
      GetLanguage = LPSTRToVBString(Buffer)
      If GetLanguage = 0 Then SetLocaleInfo lngLocale, LOCALE_ILZERO, 1
发表于 2009-2-23 19:55:36 | 显示全部楼层
good
发表于 2016-4-10 10:26:11 | 显示全部楼层
有人在群里问过这个问题,数字前导0不显示,正好用上,谢谢!
发表于 2016-7-31 18:11:32 | 显示全部楼层
厉害
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2022-12-7 13:57 , Processed in 0.103535 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表