计算两个日期之间相差多少天，VBA函数轻松完成

大家好，欢迎来到IT知识分享网。

No.1

日期计算在Excel中使用相当广泛，而且也十分复杂，不可能一朝学会。

但也不是说就学不会，只有仔细去研究，其实用到的日期计算也不多。

本节介绍一下，如何获得两个日期之差值，怎么计算。

如要计算两个日期相差天数，可使用如下代码：

DateDiff(“d”,”2021-02-01″,”2021-02-11″)

返回一个数值10。这就是两个日期之间相差10天。

其中DateDiff是计算日期相差值的函数，参数”d”代表按”天”进行计算。

其后两个日期，进行计算的两个日期。

具体函数语法和参数如下图所示：

No.2

DateDiff函数有5个参数，前三个必选，后两个可选。

以下为参数firstdayofweek和firstdayofyear参数可选值。

这两个参数代表从开始计算的起始日期。

No.3

举几个例子说明一下，如何对两个日期进行计算。

下图为计算两个日期之间有多少天数。

下图为计算两个日期之间有几个星期。

下图为计算两个日期之间有几个工作周。

工作日和天是两个概念，工作日返回两个时间段之间的周数。

No.4

看一下代码如何构建。

计算日期相差值函数

Private Sub GetDateDiff(DateStyle As String, DateString As String) Dim xObj As Object, T1 As Date, T2 As Date, T3Obj As Object For Each xObj In ActiveSheet.Shapes If xObj.Type = 17 Then Select Case xObj.Name Case "文本框 1" T1 = xObj.TextFrame2.TextRange.Characters.Text Case "文本框 2" T2 = xObj.TextFrame2.TextRange.Characters.Text Case "文本框 3" Set T3Obj = xObj End Select End If Next xObj With T3Obj.TextFrame2.TextRange .Characters.Text = "日期相差：" & _ VBA.Format(DateDiff(DateStyle, T1, T2), "00") & DateString '计算日期差 .Characters(1, 5).Font.Size = 35 .Characters(6, 2).Font.Size = 50 End With End Sub

上面函数功能是实现任何两个文本框内的日期值之间的相差数，这里无论是天，年或周，都可以调用此函数。

调用方法：

Private Sub CommandButton1_Click() Dim NowDate As Date NowDate = Application.InputBox _ ("设置日期", "输入日期", _ VBA.Format(DateAdd("d", 5, Date) _ , "yyyy-mm-dd"), , , , , 1) If Not IsDate(NowDate) Then Exit Sub SetDate "文本框 2", NowDate GetDateDiff "d", "天"'调用计算函数 End Sub

上面代码中GetDateDiff “d”,”天”这一行就是调用上面的函数。

日期计算是个很重要的基本操作，如何熟练掌握，对各类数据计算有很大帮助作用。

欢迎关注、收藏。