获取当前日期方法一：

复制代码 代码如下:

Currentdate1=date()

msgbox Currentdate1

获取当前日期方法二：

复制代码 代码如下:

Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)

msgbox Currentdate2

获取当前时间：

复制代码 代码如下:

CurrentTime=Hour(Now)&":"&Minute(Now)&":"&Second(Now)

m = "当前时间"& CurrentTime

msgbox m