Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

数字在支票打印中分栏数字的函数

1970-1-1 08:00| 发布者: 小鱼| 查看: 1628| 评论: 0

文章正文：
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

收藏分享邀请

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

数字在支票打印中分栏数字的函数

最新评论

相关分类