第一，vba日期和时间函数的基本用法
Excel中vba日期函数和时间函数分别是DATE和TIME。
VBA提供了三个无参数函数：Date、Time、Now，分别返回当前电脑系统的日期、时间、日期+时间。
下面的代码我们以三个消息框来结合日期和时间函数，分别提示当前的日期、时间。
Subvba时间和日期函数()
MsgBoxDate
MsgBoxTime
MsgBoxNow
EndSub
第二，使用vba日期和时间函数修改系统信息
下面这段代码将电脑右下角的日期和时间修改为2011年1月1日21:50:00。
Sub修改时间和日期()
Time="21:50:00"
Date="2011年1月1日"
EndSub
第三，用消息框返回当前日期的年、月、日和当前时间的时、分、秒
SubSmpYearHour()
'以对话框显示当前日期的年、月、日
MsgBox"当前日期："&Date&Chr(10)&_
"年："&Year(Date)&Chr(10)&_
"月："&Month(Date)&Chr(10)&_
"日："&Day(Date)
'以对话框显示当前时间的时、分、秒
MsgBox"当前时间："&Time&Chr(10)&_
"时："&Hour(Time)&Chr(10)&_
"分："&Minute(Time)&Chr(10)&_
"秒："&Second(Time)
EndSub
第四，其余的vba日期和时间函数列表
Timer：返回一个Single，代表从午夜开始到现在经过的秒数。
TimeSerial(hour,minute,second)：返回一个Variant(Date)，包含具有具体时、分、秒的时间。
DateDiff(interval,date1,date2[,firstdayofweek[,firstweekofyear]])返回Variant(Long)的值，表示两个指定日期间的时间间隔数目。
Second(time)返回一个Variant(Integer)，其值为0到59之间的整数，表示一分钟之中的某个秒。
Minute(time)返回一个Variant(Integer)，其值为0到59之间的整数，表示一小时中的某分钟。
Hour(time) 返回一个Variant(Integer)，其值为0到23之间的整数，表示一天之中的某一钟点。
Day(date)返回一个Variant(Integer)，其值为1到31之间的整数，表示一个月中的某一日。
Month(date)返回一个Variant(Integer)，其值为1到12之间的整数，表示一年中的某月。
Year(date)返回Variant(Integer)，包含表示年份的整数。
Weekday(date,[firstdayofweek])返回一个Variant(Integer)，包含一个整数，代表某个日期是星期几。
