获取当前日期方法一：

复制代码 代码如下:
Currentdate1=date()
msgbox Currentdate1

获取当前日期方法二：

复制代码 代码如下:
Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)
msgbox Currentdate2

获取当前时间：

复制代码 代码如下:
CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)
m = "当前时间"& CurrentTime
msgbox m