heng11326 当前离线
一级士官
slore 当前离线
上尉
TOP
ieutk 当前离线
荣誉版主
Function CurrentDate() y=year(date) m=month(date) d=day(date) if m < 10 then m = "0" & m if d < 10 then d = "0" & d CurrentDate = y & "年" & m & "月" & d & "日" End Function Msgbox CurrentDate复制代码