vba中如何计算日期差—vba计算日期相差月数和天数

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(日期, 一周的第一天类型) 返回日期是星期几

各位尽管打包带走