呃，还是发在这里吧

A.com

票据需要打印大写金额，网上找了好几个，逻辑一塌糊涂，测试结果也不怎么理想。干脆自己写了。
支持负数！t-sql测试过，mysql自己改吧

1. 
   
2. /*
   
3. 金额阿拉伯数字转换为中文的自定义函数
   
4. */
   
5. create function fatoc (@amount decimal(18, 2)) returns nvarchar(36) as
   
6. begin
   
7. declare @digital                nvarchar(10) = '零壹贰叁肆伍陆柒捌玖'
   
8. declare @position                nvarchar(18) = '万仟佰拾亿仟佰拾万仟佰拾元角分'
   
9. declare @posstr                        varchar(1)                --从金额中取出一位的值
   
10. declare @inputstr                nvarchar(18)
    
11. declare @i                                int                                --循环变量
    
12. declare @l                                int                                --金额乘以100后的字符串长度
    
13. declare @chdig                        nvarchar(1)                --数字大写
    
14. declare @chpos                        nvarchar(1)                --数字位大写
    
15. declare @zero                        int                                --连续零计数器
    
16. declare @returnvalue        nvarchar(36) = ''
    
17. 
    
18. set @inputstr = replace(@amount, '.', '')
    
19. set @l = len(@inputstr)
    
20. set @position = right(@position, @l)
    
21. if left(@inputstr, 1) = '-'
    
22.   set @position = '负' + right(@position, @l - 1)
    
23. 
    
24. set @i = 1
    
25. while @i <= @l
    
26.   begin
    
27.   set @posstr = substring(@inputstr, @i, 1)                                                --取x位数字
    
28.   set @chdig = substring(@digital, cast(@posstr as int) + 1, 1)        --x位数字转大写
    
29.   set @chpos = substring(@position, @i, 1)                                                --x位对应位大写
    
30.   if @posstr != '0'
    
31.     begin
    
32.     --补回除亿、万、元位外的零
    
33.     if (@zero > 0) and (@i != @l - 9) and (@i != @l - 5) and (@i != @l - 1)
    
34.       set @returnvalue = @returnvalue + '零'
    
35.     set @zero = 0
    
36.     end
    
37.   if @posstr = '-'
    
38.     set @chdig = ''
    
39.   if @posstr = '0'
    
40.     begin
    
41.     set @chdig = ''        --去大写零
    
42.     --去零对应位大写，保留亿、万、元位
    
43.     if (@i != @l - 10) and (@i != @l - 6) and (@i != @l - 2)
    
44.       set @chpos = ''
    
45.     --最后零取整
    
46.     if @i = @l
    
47.       set @chpos = '整'
    
48.     set @zero = @zero + 1
    
49.     end
    
50.   set @returnvalue = @returnvalue + @chdig + @chpos
    
51.   set @i = @i + 1
    
52.   end
    
53. set @returnvalue = replace(@returnvalue, '亿万', '亿')
    
54. return(@returnvalue)
    
55. end
    
56. 
    
57. go

复制代码