求一个在VB中提取系统日期后把日期改后大写的代码

VB没有现成的函数，只能自己作个函数来完成此功能。
作法很简单，源码如下：
‘===============================
Function GetHzDate(mdate As Date) As String
Dim t(9), a() As String, i As Integer
Dim s As String
t(0) = "零"
t(1) = "壹"
t(2) = "贰"
t(3) = "叁"
t(4) = "肆"
t(5) = "伍"
t(6) = "陆"
t(7) = "柒"
t(8) = "捌"
t(9) = "玖"
a = Split(CStr(mdate), "-")
For i = 1 To 4
s = s & t(Val(Mid(a(0), i, 1)))
Next
s = s & "年"
For i = 1 To Len(a(1))
s = s & t(Val(Mid(a(1), i, 1))) & IIf(Len(a(1)) = 2 And i = 1, "拾", "")
Next
s = s & "月"
For i = 1 To Len(a(2))
s = s & t(Val(Mid(a(2), i, 1))) & IIf(Len(a(2)) = 2 And i = 1, "拾", "")
Next
s = s & "日"
GetHzDate = s
End Function
'===================================