以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于支piao设计中的年大写的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=23169)
--  作者：深山老翁
--  发布时间：2012/9/4 15:15:00
--  [求助]关于支piao设计中的年大写的问题

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

”变成大写后是“贰仟零壹拾贰年”、而支票年的标准写法应该是“贰零壹贰年”。如果是“贰仟零壹拾贰年”。那这张支票银行是不会让你用的。所以请求老师能不能把上述代码给改成为“贰零壹贰”年的格式。谢谢了
--  作者：狐狸爸爸
--  发布时间：2012/9/4 15:24:00
--  
等下次更新，增加了几个函数，有一个是直接输出贰零壹贰的
--  作者：wilson
--  发布时间：2012/9/4 17:46:00
--  

期待下次更新，
--  作者：深山老翁
--  发布时间：2012/9/5 15:35:00
--  

呵呵，不知下次更新是什么时候？也只能等候了。
--  作者：lin_hailun
--  发布时间：2012/9/5 17:37:00
--  
 简单写一个吧，你把下面的代码定义成一个 内部函数 自己调用

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