主题：关于字符转换的问题，请指教，谢谢！

就是如果录入的日期格式为“2012-08-06”，我想输出的时候转换为“二O一二年八月六日”，请问，该如何转换？谢谢！例子如下：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.table

直接的转换函数好像没有，这样也行吧？

 

Dim s As String = "〇,一,二,三,四,五,六,七,八,九,一十,一十一,一十二,一十三,一十四,一十五,一十六,一十七,一十八,一十九,二十,二十一,二十二,二十三,二十四,二十五,二十六,二十七,二十八,二十九,三十,三十一"
Dim Values() As String
Values = s.split(",")
Dim rq As Date = #08/06/2008#
Dim y,m,d,s2 As String
s2 = rq.year
For i As Integer = 0 To 3
    y =  y & Values(S2.SubString(i,1))
Next
m =  Values(rq.Month)
d = Values(rq.Day)
Output.Show(y & "年" & m & "月" & d & "

谢谢

下次更细后，这种问题会很简单

何时为下次?

期待下次更新！