关于货币金额逐位显示的出错问题。LucasLynn,大侠快来看看

wuheng · 发表于 2005-12-21 21:08:00

LucasLynn，我在用你写的关于货币金额逐位显示模块时，出现错误，如“

当数字为10,100,1000,10000,100000,1000000,....时，首位1没有显示出来。

具体代码见发下网址

http://www.office-cn.net/forum.php?mod=viewthread&tid=32946&replyID=&skin=1

这要如何解决，请LucasLynn和各位大侠再次赐教，谢谢!

wuheng敬上

wuheng · 发表于 2005-12-22 17:01:00

顶~~~~~~~~~~~~~~~

wuheng · 发表于 2005-12-23 20:47:00

没人帮我看一下吗？请帮帮手，谢谢！

wuheng敬上

一点通 · 发表于 2005-12-23 21:30:00

将你最后处理过的例子放上来看下

wuheng · 发表于 2005-12-23 22:38:00

附件

只要是10,100,1000,10000....就不行.晕~~~

wuheng · 发表于 2005-12-24 18:17:00

一点通大师和各位大侠：

我例库传上来了，麻烦帮我看看。谢谢！

wuheng敬上

一点通 · 发表于 2005-12-24 18:53:00

问题主要出现你说的数都可用10来整除

wuheng · 发表于 2005-12-24 21:00:00

那要怎么修改？请指点。或是帮我在例库里改一下，谢谢!

wuheng敬上

一点通 · 发表于 2005-12-24 21:27:00

能被10整除加一个判断就可实现完整的数，但在原数前加“￥”就不能实现了，看其它人还有没有高招。

海狸先生 · 发表于 2005-12-24 23:09:00

Public Function GetBit(BitNo As Integer, value As Currency) As String
If BitNo <= -Fix(-Log(value) / Log(10#)) Then
GetBit = Int(CCur(value / 10 ^ BitNo)) Mod 10
   Else
   If BitNo = -Fix(-Log(value) / Log(10#)) + 1 Then
      GetBit = "￥"
   End If
End If
End Function

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[表] 关于货币金额逐位显示的出错问题。LucasLynn,大侠快来看看

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)