把weekday星期函数的数字变为中文,收藏备用。
以下是引用片段: Function FormatWeekday(strdate) select case strdate case 1:FormatWeekday = "日" case 2:FormatWeekday = "一" case 3:FormatWeekday = "二" case 4:FormatWeekday = "三" case 5:FormatWeekday = "四" case 6:FormatWeekday = "五" case 7:FormatWeekday = "六" end select End Function |