获取当前日期方法一：
复制代码代码如下:
Currentdate1=date()
msgbox Currentdate1
获取当前日期方法二：
复制代码代码如下:
Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
msgbox Currentdate2
获取当前时间：
复制代码代码如下:
CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime
msgbox m
