% function formattime(addtime) smonth = month(addtime) sday = day(addtime) formattime = smonth & "月" & sday& "日" end function %>