数字在支票打印中分栏数字的函数
时间：2006-11-22 22:16 来源：网络 作者：小鱼 阅读：次
文章正文：
s-要分栏的数字
N 分栏为1 角为2 元为4 十为5……. 依次类推
Function Get_s(ByVal s As Variant, ByVal n As Variant) As Variant
Dim I As Variant
If s = 0 Then
Exit Function
End If
I = Len(s) ‘取数字长度
If I < 3 Then ’没小数位，补2位小数
s = s & ".00"
End If
s-要分栏的数字
N 分栏为1 角为2 元为4 十为5……. 依次类推
Function Get_s(ByVal s As Variant, ByVal n As Variant) As Variant
Dim I As Variant
If s = 0 Then
Exit Function
End If
I = Len(s) ‘取数字长度
If I < 3 Then ’没小数位，补2位小数
s = s & ".00"
End If
(责任编辑：admin)
顶一下
(0)
0%
踩一下
(0)
0%
相关内容
最新内容
推荐内容