调用: "星期" & ToCN(Weekday(date, vbMonday))
Function ToCN(i As Integer) As String
Select Case i
Case 1
ToCN = "一"
Case 2
ToCN = "二"
Case 3
ToCN = "三"
Case 4
ToCN = "四"
Case 5
ToCN = "五"
Case 6
ToCN = "六"
Case 7
ToCN = "天"
End Select
End Function
举报文章
请选择举报类型
补充说明
0/200
上传截图
格式支持JPEG/PNG/JPG,图片不超过1.9M