会计金额问题,数字转换成大写错误,急急急...

hyfgb

谢谢!,还有像10.31,应该读成"壹拾元零叁角壹分"

hyfgb

8楼的那个小工具中"特殊"功能就是完全对头的,

alzeng

用自定义函数完成，看符不符合要求：

函数有误，清除附件。

[ 本帖最后由 alzeng 于 2009-8-14 11:48 编辑 ]

teliiss

以下有多种格式，看看需要那一种：
Book1.rar (3.71 KB, 下载次数: 77)

2009-8-14 10:26 上传

点击文件名下载附件

alzeng

其实无需判断，函数简化一下：

1. 
   
2. Function DRMB(X) As String
   
3.     M = Abs(X) + 0.0001
   
4.     y = Int(M)
   
5.     j = Int(M * 10 Mod 10)
   
6.     f = Int(M * 100 Mod 10)
   
7.     With Application
   
8.         A = IIf(y = 0, "", .Text(y, "[DBNum2]") & "元")
   
9.         B = IIf(j = 0, IIf(f = 0, "", "零"), .Text(j, "[DBNum2]") & "角")
   
10.         C = IIf(f = 0, "整", .Text(f, "[DBNum2]") & "分")
    
11.     End With
    
12.     DRMB = IIf(X > 0, A & B & C, IIf(X = 0, "", "负" & A & B & C))
    
13.     DRMB = Replace(DRMB, "拾万", "拾万零")
    
14.     DRMB = Replace(DRMB, "拾元", "拾元零")
    
15. End Function
    

复制代码

hyfgb

十二分感谢,我先试用,看有其他问题没有.

hyfgb

像106000和10.51这两种情况解决好了,不过,不好意思,另外出了有很多错!!!
比如20,应该为"贰拾元整",100.51,读为"壹佰元零伍角壹分",其实就是会计格式中,增加一个,中间有零多读一个零,在8楼那个工具的"特殊"是完全正确的,可惜他没有给我原码,不知道他写的代码

alzeng

我再看看，做下修改。

alzeng

测试下，看还有哪些情况没能完善：
函数有误，清除附件。

[ 本帖最后由 alzeng 于 2009-8-14 11:47 编辑 ]

hyfgb

谢谢你,还得麻烦你一下
中间有"零零"的出现,比如100600,还有就是整数情况,不用"元零整",比如20应该是"贰拾元整"不是"贰拾元零整"