VB6 日期相关函数 excel vba 日期函数

日期函数

用于获取当前日期，时间的函数。

Now返回系统当前的日期和时间。

Date返回系统当前的日期。

Year(Date)返回系统当前的年号。

Month(Date)返回系统当前的月份。

Day(Date)返回系统当前的天。

Weekday(Date)返回系统当前星期几。需要注意的是，星期日返回的数值为1，星期一返回的是2，以此类推，如果返回6，表示星期五。

Time返回系统当前的时间。

Hour(Time)返回系统当前的小时。

Minute(Time)返回系统当前的分钟数。

Second(Time)返回系统当前的秒数。

示例代码：

效果图：

DateDiff 函数

用于计算两个日期之间相隔多少，比如计算2019年10月5日到今天有多少天，有多少个月，有多少个小时，等等。

格式：DateDiff(计数单位, 日期一, 日期二)

计数单位为“yyyy” 为年，计算两个日期之间有多少年。

计数单位为“m” 为月，计算两个日期之间有多少个月。

计数单位为“d” 为天，计算两个日期之间有多少天。

计数单位为“q” 为季，计算两个日期之间有多少季度。

计数单位为“w” 为星期，计算两个日期之间有多少周。

计数单位为“h” 为小时，计算两个日期之间有多少个小时。

计数单位为“n” 为分钟，计算两个日期之间有多少分钟。

计数单位为“s” 为秒，计算两个日期之间有多少秒。

注意：如果日期一早于日期二，结果为正，日期二早于日期一结果为负。

示例代码：

效果图：

DateDiff完整用法是：

DateDiff(计数单位, 日期一, 日期二,每周的第一天为星期几，一年的第一周是多少）

第四个参数，设置每周的第一天为星期几，如果省略，默认每周第一天为星期日。

0 设定为 星期日

1 设定为 星期天

2 设定为 星期一

3 设定为 星期二

4 设定为 星期三

5 设定为 星期四

6 设定为 星期五

7 设定为 星期六

第五个参数，设定一年的第一周，如果省略则表示1月1日那一周为一年的第一周。

0 使用 >API 的设定值。

1 一月一日那一周为一年的第一周。

2 至少包括四天的第一周为一年的第一周。

3 包括七天的第一周为一年的第一周。

请注意

DateDiff(计数单位, 日期一, 日期二)

这里面日期一和日期二的格式一定要相同，比如日期一的格式是：yyyy-MM-dd，日期二必须也得是yyyy-MM-dd

如果日期一是yyyy/MM/dd，日期二也得是yyyy/MM/dd

电脑默认设置在自定义日期格式里：