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","天"这一行就是调用上面的函数。

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

欢迎关注、收藏。