Office中国论坛/Access中国论坛

标题: 自编自用的打发票用的金额转换大小写（公开源码） [打印本页]

作者: yuab 时间: 2002-3-13 15:25
标题: 自编自用的打发票用的金额转换大小写（公开源码）
下次将发布出不写一行代码就可实现的多层次Bom（物料清单）,所有的层次都在查询中完成，且可打印报表。
请各位留意论坛。文件下载

作者: ganrong 时间: 2002-3-13 16:21
提示: 作者被禁止或删除内容自动屏蔽

作者: make 时间: 2002-3-13 18:38
版主，真是好东西
不过还要好好消化

作者: honglai 时间: 2002-3-14 02:01
怎么不行呢？

作者: yuab 时间: 2002-3-14 18:28
不会的，是不是你的值为null值，null值会出错的,例如转换[控制项AA]
[控制项AA]=abc(iif(isnumeric([控制项AA])=false,0,[控制项AA]),2)
肯定不会错的

作者: 君无忌 时间: 2002-4-1 20:03
在xp环境下用好好的，在2000里面用就出现找不到库或函数，提示mid（）这个函数错误？
怎么办？

作者: yuab 时间: 2002-4-1 20:43
请将数据库重新汇出到一个新的数据库中

作者: ganrong 时间: 2002-4-1 21:20
提示: 作者被禁止或删除内容自动屏蔽

作者: jhzlzc29 时间: 2003-3-12 22:56
请回如何才能转换负数呢

作者: jhzlzc29 时间: 2003-4-20 00:34
还请回答

作者: simontan 时间: 2003-5-19 08:01
请问有哪位高手能解决我的问题？
工作需要想编个小程序，能定时由程序访问指定的网页，将网页的内容复制下来，另存为纯文本文件。急！

作者: anni 时间: 2003-6-6 19:26
老大,我在XP下使用,出现以下错误:编译错误找不到工程或库
Y = AAA(Mid(D, b - k + 1, 1)) + AAA(10 ^ k)
请老大帮忙

作者: kelind 时间: 2003-10-11 06:31
请问在报表中怎么引用:]
报表中有[金额总计], 为小写, 作一文本框,将[金额总计]大写.=abc([金额总计],2),是这样吗?可我引用了不见任何字迹?什么原因,请指教.

作者: bili 时间: 2003-10-23 00:14
怎么出错了，“找不到工程或库”，是什么原因？

作者: blsoft 时间: 2004-4-11 19:31
我的源码，解决小写转大写，包括负数'金额大写转换
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

作者: csqhlx 时间: 2004-5-15 05:09
没了？

作者: secowu 时间: 2005-8-17 16:40
超过15位就不行了？

作者: cheng5489 时间: 2005-12-1 17:34
关注

作者: speed250 时间: 2006-2-24 17:44
暗是新手,咋用啊

作者: speed250 时间: 2006-2-24 17:46
模块咋用

作者: py327 时间: 2006-2-24 19:35
不能用，说什么缺了OCX

作者: artbao 时间: 2006-3-11 23:10
好东东

作者: ljwzxy 时间: 2006-4-19 23:21
好用,已试过

作者: aitcom 时间: 2006-6-30 00:33
[em08]

作者: xjliyuehua 时间: 2008-8-20 12:03
版主，真是好东西
不过还要好好消化

作者: xiujuok 时间: 2008-11-25 09:42
look

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)