直接的转换函数好像没有,这样也行吧?
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 & "