主题：[求助]关于支piao设计中的年大写的问题

在支piao设计中，帮助文件中提供的年代码“If e.Value IsNot Nothing Then
    e.Value = CCNumber(e.Value.Year)
End If

”变成大写后是“贰仟零壹拾贰年”、而支piao年的标准写法应该是“贰零壹贰年”。如果是“贰仟零壹拾贰年”。那这张支piao银行是不会让你用的。所以请求老师能不能把上述代码给改成为“贰零壹贰”年的格式。谢谢了

等下次更新，增加了几个函数，有一个是直接输出贰零壹贰的

期待下次更新，

呵呵，不知下次更新是什么时候？也只能等候了。

 简单写一个吧，你把下面的代码定义成一个 内部函数 自己调用

Dim year As Integer = args(0)

Dim nums As String() = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾"}
Dim str_year As String = CStr(year)
Dim result As String = ""
For Each ch As String In str_year
    result += nums(CInt(ch))
Next

Return result

http://www.foxtable.com/help/topics/1486.htm