【wyn6】【如何给报表文本框里的数字按汉字大写数字显示】

各位老板，如何在文本框里显示汉字大写的数字？
没有找到能用的函数啊~

您好，这个没有直接的函数可以实现，需要使用自定义函数，您可以参考下面的教程进行实现：


【报表-表达式】巧用自定义函数，实现金额大写
https://gcdn.grapecity.com.cn/showtopic-157845-1-1.html
(出处: 葡萄城产品技术社区)

Bella.Yuan 发表于 2023-9-4 17:48
您好，这个没有直接的函数可以实现，需要使用自定义函数，您可以参考下面的教程进行实现：

{Code.ConvertToCNYText(12345.67)}
用在我这，就是{Code.ConvertToCNYText(sum(大病保险支付(某某数据集)))}
是这样吧。。。

你可以用自定已脚本实现。我们默认没有这个函数:

https://www.grapecity.com.cn/sol ... ings/user-functions

脚本参考这个:

1. /// <function name="ConvertToCNYText">
   
2. /// <culture>
   
3. /// <label>ConvertToCNYText</label>
   
4. /// <syntax>ConvertToCNYText(string inputString)</syntax>
   
5. /// <description>自动转换中文单位</description>
   
6. /// <example>ConvertToCNYText("100") = 壹佰元整
   
7. /// </example>
   
8. /// </culture>
   
9. /// </function>
   
10. ///
    
11. public string ConvertToCNYText(string inputString)
    
12. {
    
13.     try
    
14.     {
    
15.         string numList = "零壹贰叁肆伍陆柒捌玖";
    
16.         string rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万";
    
17.         double number = 0;
    
18.         string tempOutString = "";
    
19.         number = double.Parse(inputString);
    
20. 
    
21. 
    
22.         string tempNumberString = Convert.ToInt64(number * 100).ToString();
    
23.         int tempNmberLength = tempNumberString.Length;
    
24.         int i = 0;
    
25. 
    
26.         while (i < tempNmberLength)
    
27.         {
    
28.             int oneNumber = Int32.Parse(tempNumberString.Substring(i, 1));
    
29.             string oneNumberChar = numList.Substring(oneNumber, 1);
    
30.             string oneNumberUnit = rmbList.Substring(tempNmberLength - i - 1, 1);
    
31.             if (!(oneNumberChar == "零"))
    
32.                 tempOutString += oneNumberChar + oneNumberUnit;
    
33.             else
    
34.             {
    
35.                 if (oneNumberUnit == "亿" || oneNumberUnit == "万" || oneNumberUnit == "元" || oneNumberUnit == "零")
    
36.                 {
    
37.                     while (tempOutString.EndsWith("零"))
    
38.                         tempOutString = tempOutString.Substring(0, tempOutString.Length - 1);
    
39.                 }
    
40.                 if (oneNumberUnit == "亿" || (oneNumberUnit == "万" && !tempOutString.EndsWith("亿")) || oneNumberUnit == "元")
    
41.                     tempOutString += oneNumberUnit;
    
42.                 else if (tempOutString != null)
    
43.                 {
    
44.                     bool tempEnd = tempOutString.EndsWith("亿");
    
45.                     bool zeroEnd = tempOutString.EndsWith("零");
    
46.                     if (tempOutString.Length > 1)
    
47.                     {
    
48.                         bool zeroStart = tempOutString.Substring(tempOutString.Length - 2, 2).StartsWith("零");
    
49.                         if (!zeroEnd && (zeroStart || !tempEnd))
    
50.                             tempOutString += oneNumberChar;
    
51.                     }
    
52.                     else if (!zeroEnd && !tempEnd)
    
53.                         tempOutString += oneNumberChar;
    
54.                 }
    
55.             }
    
56.             i += 1;
    
57.         }
    
58.         if (tempOutString != null)
    
59.         {
    
60.             while (tempOutString.EndsWith("零"))
    
61.                 tempOutString = tempOutString.Substring(0, tempOutString.Length - 1);
    
62.             while (tempOutString.EndsWith("元"))
    
63.                 tempOutString = tempOutString + "整";
    
64.             return tempOutString;
    
65.         }
    
66.     }
    
67.     catch (Exception ex)
    
68.     {
    
69.         return "#数值转换错误" + ex.Message;
    
70.     }
    
71.     return String.Empty;
    
72. }
    

复制代码

Felix.Li 发表于 2023-9-4 18:18
你可以用自定已脚本实现。我们默认没有这个函数:

https://www.grapecity.com.cn/solutions/wyn/help/doc ...

这函数挺常用的，不考虑直接加进程序里嘛

搞定了·~函数有效~多谢2位大佬！

CainduranceTX 发表于 2023-9-4 21:47
搞定了·~函数有效~多谢2位大佬！

不客气，问题解决了就好，暂时的话针对数字大小写的函数只能使用自定义函数的这种方式进行实现，我们也反馈一下这个需求，看后续是否能做成您想要的那种函数。