发表于 2009-1-5 19:48
| 
鍏充簬鏃ユ湡鐨勪腑鏂囪浆鎹
鍙戝竷: 2008-7-15 14:42 | 浣滆: 缃戠粶杞浇 | 鏉ユ簮: 缃戠粶杞浇 | 鏌ョ湅: 22娆
涓嬮潰鐨勪唬鐮佸彲浠ュ皢浠绘剰鏃ユ湡锛1000-01-01------>9999-12-31锛夎浆鎹负姹夊瓧鏄剧ず锛
Private Sub Command1_Click()
MsgBox datename(Date)
End Sub
Function datename(ByVal mydate As Date) As String
Dim i As Long, d(3) As String, myyear As String
myyear = Format(mydate, "yyyy")
For i = 1 To 4
d(0) = d(0) & Mid("鈼嬩竴浜屼笁鍥涗簲鍏竷鍏節", CInt(Mid(myyear, i, 1)) + 1, 1)' trans year to chinese character
Next
d(1) = "骞" & MonthName(Month(mydate)) 'add month name in chinese as 鈥滃崄鏈堚
d(2) = Choose(Day(mydate) \ 10 + 1, "", "鍗", "浜屽崄", "涓夊崄") & Mid(" 涓浜屼笁鍥涗簲鍏竷鍏節", Day(mydate) Mod 10 + 1, 1) & "鏃"
d(3) = "锛" & WeekdayName(Weekday(mydate))'add weekday name in chinese as 鈥滄槦鏈熶笁鈥
datename = Join(d, "") ' combine year,month and day,weekday
datename = Replace(datename, " ", "") ' avoid space in result
End Function
