主题：[讨论]支piao格式问题

Dim DateStr As String
DateStr = CUDate(#12/31/2008#)
Output.Show(DateStr)

上述代码的输出为：贰零零捌年拾贰月叁拾壹日

如果是纯数字，可以自己写代码：

Dim sz As String = "零,壹,贰,叁,肆,伍,陆,柒,捌,玖"
Dim nm As String = "0,1,2,3,4,5,6,7,8,9"
Dim db As Double = 2011
Dim ss As String
For i As Integer = 1 To str(db).length-1
    For ii As Integer = 0 To nm.split(",").length -1
        If str(db)(i) = nm.split(",")(ii)
            ss = ss & sz.split(",")(ii)
        End If
    Next
Next
output.show("数字 2011 转换成大写：" & ss)     '结果等于 ： 贰零壹壹