设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: yuab
打印 上一主题 下一主题

[模块/函数] 自编自用的打发票用的金额转换大小写(公开源码)

[复制链接]
11#
发表于 2003-5-19 08:01:00 | 只看该作者
请问有哪位高手能解决我的问题?
工作需要想编个小程序,能定时由程序访问指定的网页,将网页的内容复制下来,另存为纯文本文件。急!
12#
发表于 2003-6-6 19:26:00 | 只看该作者
老大,我在XP下使用,出现以下错误:编译错误找不到工程或库
Y = AAA(Mid(D, b - k + 1, 1)) + AAA(10 ^ k)
请老大帮忙
13#
发表于 2003-10-11 06:31:00 | 只看该作者
请问在报表中怎么引用:]
    报表中有[金额总计], 为小写, 作一文本框,将[金额总计]大写.=abc([金额总计],2),是这样吗?可我引用了不见任何字迹?什么原因,请指教.
14#
发表于 2003-10-23 00:14:00 | 只看该作者
怎么出错了,“找不到工程或库”,是什么原因?
15#
发表于 2004-4-11 19:31:00 | 只看该作者
我的源码,解决小写转大写,包括负数'金额大写转换
Public Function gMONEY(ByVal smallnum As Double) As String    '金额小写变大写

    Dim cmoney As String, cnumber As String, cnum As String, cnum_end As String, _
        cmon As String, cno, snum As String, sno As String

    Dim snum_len As Integer, sint_len As Integer, cbegin As Integer, _
        zflag As Integer, i As Integer

    If smallnum > 1000000000000# Or smallnum < -99999999999# Or smallnum = 0 Then
       gMONEY = ""
       Exit Function
    End If

    cmoney = "仟佰拾亿仟佰拾万仟佰拾元角分" ' 大写人民币单位字符串
    cnumber = "壹贰叁肆伍陆柒捌玖"          ' 大写数字字符串
    cnum = ""                               ' 转换后的大写数字字符串
    cnum_end = ""                           ' 转换后的大写数字字符串的最后一位
    cmon = ""                               ' 取大写人民币单位字符串中的某一位
    cno = ""                                ' 取大写数字字符串中的某一位
    snum = LTrim(Format(smallnum, "############.00"))     ' 小写数字字符串
    snum_len = Len(snum)                    ' 小写数字字符串的长度
    sint_len = snum_len - 2                 ' 小写数字整数部份字符串的长度
    sno = ""                                ' 小写数字字符串中的某个数字字符
    cbegin = 15 - snum_len                  ' 大写人民币单位中的汉字位置
    zflag = 1                               ' 小写数字字符是否为0(0=0)的判断标志

    i = 0                                   ' 小写数字字符串中数字字符的位置
    If snum_len > 15 Then
       gMONEY = ""
       Exit Function
    End If

    For i = 1 To snum_len
       If i = sint_len Then
          GoTo LoopEnd
       End If
       cbegin = cbegin + 1
       cmon = Mid(cmoney, cbegin, 1)
       sno = Mid(snum, i, 1)
       If sno = "-" Then    'sno
               cnum = cnum + "负"
               GoTo LoopEnd
        ElseIf sno = "0" Then
               cnum_end = Right(cnum, 2)
               If cbegin = 4 Or (cbegin = 8 And StrComp(cnum_end, "亿", 0) <> 0) Or cbegin = 12 Then
                    cnum = cnum + cmon
                    If InStr(1, cnumber, cnum_end, 0) > 0 Then
                        zflag = 1
                    Else
                        zflag = 0
                    End If      'cnum_end
               Else
                    zflag = 0
               End If   'cbegin
               GoTo LoopEnd
        ElseIf sno <> "0" And zflag = 0 Then
               cnum = cnum + "零"
               zflag = 1
       End If    'sno
       cno = Mid(cnumber, Val(sno), 1)
       cnum = cnum + cno + cmon
LoopEnd:
    Next i
    If Right(snum, 1) = "0" Then
        gMONEY = cnum + "整"
    Else
        gMONEY = cnum
    End If

End Function
16#
发表于 2004-5-15 05:09:00 | 只看该作者
没了?
17#
发表于 2005-8-17 16:40:00 | 只看该作者
超过15位就不行了?
18#
发表于 2005-8-17 16:40:00 | 只看该作者
超过15位就不行了?
19#
发表于 2005-12-1 17:34:00 | 只看该作者
关注
20#
发表于 2006-2-24 17:44:00 | 只看该作者
暗是新手,咋用啊
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2025-1-9 13:58 , Processed in 0.115510 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表