[求助] 关于货币金额逐位显示的问题

wuheng

接下来的问题：   想在金额栏那里随机加上人民币符号，如百位有数字，则在千位栏加￥，如千位有数字则在万位栏加,类推。要怎么做才能实现？？请指教！                    谢谢！！                                                wuheng敬上                     

LucasLynn

以下是引用wuheng在2005-10-15 12:22:00的发言：

接下来的问题：

   想在金额栏那里随机加上人民币符号，如百位有数字，则在千位栏加￥，如千位有数字则在万位栏加,类推。要怎么做才能实现？？请指教！

                    谢谢！！

                                                wuheng敬上

                     

Public Function GetBit(BitNo As Integer, Value As Currency) As String

    If BitNo <= -Int(-Log(Value) / Log(10#)) - 1 Then GetBit = Int(CCur(Value / 10 ^ BitNo)) Mod 10

    If BitNo = -Int(-Log(Value) / Log(10#))  Then GetBit = "￥"

End Function

[此贴子已经被作者于2005-10-15 14:23:40编辑过]

zxh5983

我怎么看不懂呢，但我还想在此提一问：“我也复制一段函数，但打印时在人民币符号前显0，怎么才能消除。”谢谢。

wuheng

  LucasLynn你太伟大了！！！感谢！！感谢！！                                             wuheng敬上[em17][em17]

ey1001

LucasLynn,你好，你的程序都觉得很独特。下面转换用通俗的说法其目的是什么呀 -Int(-Log(Value) / Log(10#)) - 1       Int(CCur(Value / 10 ^ BitNo)) Mod 10

hzdzykf

在你的程序中插入一个模块，模块代码如下：

Public Function GetBit(BitNo As Integer, Value As Currency) As String

    If BitNo <= -Int(-Log(Value) / Log(10#)) - 1 Then GetBit = Int(CCur(Value / 10 ^ BitNo)) Mod 10

End Function

在窗体上每个数字位置放一个文本框，数据源设定为：这个好像不行，当金额＝98765432.13时，getbit（-2，金额）就会溢出，不知是什么原因？

hzdzykf

当金额＝98765432.13时，GETBIT（-2，金额）就会溢出

pccat

是大写数额吗???

LucasLynn

以下是引用hzdzykf在2005-10-25 19:41:00的发言：













在你的程序中插入一个模块，模块代码如下：

Public Function GetBit(BitNo As Integer, Value As Currency) As String

    If BitNo <= -Int(-Log(Value) / Log(10#)) - 1 Then GetBit = Int(CCur(Value / 10 ^ BitNo)) Mod 10

End Function

在窗体上每个数字位置放一个文本框，数据源设定为：

这个好像不行，当金额＝98765432.13时，getbit（-2，金额）就会溢出，不知是什么原因？



原因就是数额太大了，编写的时候没考虑你要开这么大额的发票。[em07]

LucasLynn

以下是引用ey1001在2005-10-21 9:23:00的发言：

LucasLynn,

你好，你的程序都觉得很独特。下面转换用通俗的说法其目的是什么呀

-Int(-Log(Value) / Log(10#)) - 1      

Int(CCur(Value / 10 ^ BitNo)) Mod 10

上面一行是获得小数点前的位数，以确定从哪一位开始返回数据，之前的就显示为空（否则会显示0），因为VBA中没有Log10函数，所以只能LogN/Log10，这是基本的对数计算公式。

下面一行是取单个位的数字。

[此贴子已经被作者于2005-10-27 14:45:03编辑过]