1、获取时间
http://www.foxtable.com/webhelp/scr/2318.htm
2、设置电脑时间
Dim d As Date = "2018-01-02 10:10:10"Today = dTimeOfDay = d