1。在控制面板中的区域设置中,将 数字前导零显示格式 修改一下
控制面板-->区域和语言-->格式,如下图设成0.7
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
相关资料
1.http://www.office-cn.net/thread-65248-1-1.html
2.http://www.office-cn.net/thread-60820-1-1.html