VBA 在 Excel 2016 中以不同方式处理日期有这方面的文档吗

VBA在Excel 2016中以不同方式处理日期

vba
Sub GetCurrentDate()
    Dim currentDate As Date
    currentDate = Date
    MsgBox "当前日期是：" & currentDate
End Sub

vba
Sub FormatDate()
    Dim dateValue As Date
    dateValue = Date
    Dim formattedDate As String
    formattedDate = Format(dateValue, "yyyy-mm-dd")
    MsgBox "格式化后的日期是：" & formattedDate
End Sub

vba
Sub CalculateDateDifference()
    Dim startDate As Date
    Dim endDate As Date
    startDate = #1/1/2022#
    endDate = #12/31/2022#
    Dim difference As Long
    difference = DateDiff("d", startDate, endDate)
    MsgBox "日期之差是：" & difference & "天"
End Sub

vba
Sub AddDate()
    Dim currentDate As Date
    currentDate = Date
    Dim daysToAdd As Integer
    daysToAdd = 7
    Dim newDate As Date
    newDate = DateAdd("d", daysToAdd, currentDate)
    MsgBox "添加" & daysToAdd & "天后的日期是：" & newDate
End Sub

vba
Sub CheckDate()
    Dim dateString As String
    dateString = "2022-01-01"
    Dim dateValue As Date
    dateValue = DateValue(dateString)
    
    If IsDate(dateValue) Then
        MsgBox "输入的值是一个合法的日期"
    Else
        MsgBox "输入的值不是一个合法的日期"
    End If
End Sub