'支票日期转中文
Function Date2Chinese(iDate As Date, Optional iformat As Integer) As String
Dim iYear As Integer
Dim iMonth As Integer
Dim iDay As Integer
Dim i As Integer
Dim xdate(2) As String
iYear = Year(iDate)
iMonth = Month(iDate)
iDay = Day(iDate)
For i = 1 To 4
xdate(0) = xdate(0) & Num2Char(Mid(iYear, i, 1))
Next
Debug.Print xdate(0)
xdate(1) = Num2Char(iMonth - iMonth Mod 10) & (IIf(iMonth Mod 10 = 0, "", Num2Char(iMonth Mod 10))) & "月"
Debug.Print xdate(1)
xdate(2) = Num2Char(iDay - iDay Mod 10) & (IIf(iDay Mod 10 = 0, "", Num2Char(iDay Mod 10))) & "日"
Debug.Print xdate(2)
Select Case iformat
Case 0 '年月日
Date2Chinese = xdate(0) & "年" & xdate(1) & xdate(2)
Case 1 '年
Date2Chinese = xdate(0) & "年"
Case 2 '年月
Date2Chinese = xdate(0) & "年" & xdate(1)
Case 3 '月日
Date2Chinese = xdate(1) & xdate(2)
End Select
End Function
Function Num2Char(intNum) As String
Select Case intNum
Case ""
Num2Char = ""
Case 0
Num2Char = "零"
Case 1
Num2Char = "壹"
Case 2
Num2Char = "貮"
Case 3
Num2Char = "叁"
Case 4
Num2Char = "肆"
Case 5
Num2Char = "伍"
Case 6
Num2Char = "陆"
Case 7
Num2Char = "柒"
Case 8
Num2Char = "捌"
Case 9
Num2Char = "玖"
Case 10
Num2Char = "拾"
Case 20
Num2Char = "貮拾"
Case 30
Num2Char = "叁拾"
End Select
End Function
Access软件网交流QQ群(群号:198465573) |