| 网站首页 | 新闻 | 新书 | 专家 | 技巧 | 源码作品 | 工具/资源 | 商城 | 风采 | 留言 | 论坛 | 网址 | 承接 | 
您现在的位置： Access/Office中国 >> 技巧 >> Access >> 编程心得绝招 >> 实际编程 >> 文章正文 用户登录 新用户注册
数字在支票打印中分栏数字的函数    热     ★★★
数字在支票打印中分栏数字的函数
作者：小鱼 文章来源：网络 点击数： 本日：{$DayHits} 更新时间：2006-11-22 22:16:56
文章正文：
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
文章录入：tm    责任编辑：tm 
  • 上一篇文章：

  • 下一篇文章：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    专 题 栏 目
    最 新 热 门
    最 新 推 荐
    相 关 文 章
    没有相关文章
    网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    版权所有：中山市天鸣电脑科技
    站长：tmtony(tmtony@21cn.com)
    电话：0760-8564150 QQ:18449932    		 Access Access access开发 access技巧 access源码 access编程 access文章 access学习 access vba Excel技巧 excel开发 excel编程 Word Outlook Sharepoint Office office等 备案许可证号:粤ICP备05054911号
    总版主：tmtony zhuyiwen huanghai
    trynew 竹笛 zhengjialon 海狸先生