时间: 2021-07-31 作者:daque
底下的代码不妨将大肆日子(1000-01-01------>9999-12-31)变换为中国字表露:
private sub command1_click()msgbox datename(date)end subfunction datename(byval mydate as date) as stringdim i as long, d(3) as string, myyear as stringmyyear = format(mydate, "yyyy")for i = 1 to 4d(0) = d(0) & mid("○一二三四五六七八九", cint(mid(myyear, i, 1)) + 1, 1)' trans year to chinese characternextd(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,weekdaydatename = replace(datename, " ", "") ' avoid space in resultend function