鲁达 VBA时间日期函数
Now（） 系统当前日期和时间
Date 系统当前日期。
Time 当前系统时间的
Timer 从午夜开始到现在经过的秒数。
TimeSerial(时, 分, 秒) 返回具有时、分、秒的时间。
timevalue（时间） 返回时间的完整式 TimeValue("2:24PM")返回14:24:00
datepart（返回类型，日期，可选星期的起始日，指定一年第一周）指定日期的指定信息表现形式
返回类型
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
星期的第一天
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
一年的第一周
vbUseSystem 0 使用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始（缺省值）。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。
DateDiff(返回类型, 日期1, 日期2，可选一周的第一天，可选一年的第一周) 返回两个指定日期间的时间间隔数目
如同excel工作表函数datedif
Second(时间) 返回时间格式的秒
Minute(时间) 返回时间格式的分
Hour(时间) 返回时间格式的时
Day(日期) 返回日期的号数
Month(日期) 返回日期的月份
Year(日期) 返回日期的年份
Weekday(日期, 一周的第一天类型) 返回日期是星期几
各位尽管打包带走