分享自己编写的PQ转换大写金额函数

css207

1. let
   
2.     Text.Crmb = (money as number) as text=>
   
3.     if Number.Abs(money) > 10000000000000 then "金额过大，本函数不支持！"
   
4.     else if money = 0 then "零元整"
   
5.     else [
   
6.     cnum="零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分",
   
7.     snum = Text.From(Number.Round(Number.Abs(money)*100)),
   
8.     len = Text.Length(snum),
   
9.     r=(x as number) as text => if x = 0 then Text.Combine({Text.Middle(cnum, Number.FromText(Text.Middle(snum, 0 , 1)), 1),Text.Middle(cnum,26 - len + 0, 1)})
   
10.     else Text.Combine({@r(x-1),Text.Combine({Text.Middle(cnum, Number.FromText(Text.Middle(snum, x , 1)), 1),Text.Middle(cnum,26 - len + x, 1)})}),
    
11.     r0 = r(len-1),
    
12.     r1 = Text.Replace(r0, "零仟", "零"),
    
13.     r2 = Text.Replace(r1, "零佰", "零"),
    
14.     r3 = Text.Replace(r2, "零拾", "零"),
    
15.     r4 = Text.Replace(r3, "零零", "零"),
    
16.     r5 = Text.Replace(r4, "零零", "零"),
    
17.     r6 = Text.Replace(r5, "零亿", "亿"),
    
18.     r7 = Text.Replace(r6, "零万", "万"),
    
19.     r8 = Text.Replace(r7, "零元", "元"),
    
20.     r9 = Text.Replace(r8, "亿万", "亿"),
    
21.     r10 = Text.Replace(r9, "零角", "零"),
    
22.     r11 = Text.Replace(r10, "零分", "整"),
    
23.     r12 = Text.Replace(r11, "零整", "整"),
    
24.     r13 = if money > 0 then r12 else Text.Combine({"负", r12})
    
25.     ][r13]
    
26. in
    
27.     Text.Crmb

复制代码

Michael9923

收藏备用，感谢分享