第一，vba日期和时间函数的基本用法
Excel中vba日期函数和时间函数分别是DATE和TIME。
VBA提供了三个无参数函数：Date、Time、Now，分别返回当前电脑系统的日期、时间、日期+时间。
下面的代码我们以三个消息框来结合日期和时间函数，分别提示当前的日期、时间。
Sub vba时间和日期函数()MsgBox DateMsgBox TimeMsgBox NowEnd Sub
第二，使用vba日期和时间函数修改系统信息
下面这段代码将电脑右下角的日期和时间修改为2011年1月1日21:50:00。
Sub 修改时间和日期()Time = "21:50:00"Date = "2011年1月1日"End Sub
第三，用消息框返回当前日期的年、月、日和当前时间的时、分、秒
Sub SmpYearHour()'以对话框显示当前日期的年、月、日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)End Sub
该篇文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为广大朋友提供帮助。
第四，其余的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)，包含一个整数，代表某个日期是星期几。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
