获取上一个工作日的VBA

Function GetPreviousWorkday(currentDate As Date) As Date
    Dim previousDate As Date
    
    ' 判断当前日期是否为周末（周六或周日）
    If Weekday(currentDate) = vbSaturday Or Weekday(currentDate) = vbSunday Then
        ' 如果是周六，则上一个工作日为当前日期减去1天
        If Weekday(currentDate) = vbSaturday Then
            previousDate = currentDate - 1
        ' 如果是周日，则上一个工作日为当前日期减去2天
        ElseIf Weekday(currentDate) = vbSunday Then
            previousDate = currentDate - 2
        End If
    Else
        ' 如果当前日期不是周末，则上一个工作日为当前日期减去1天
        previousDate = currentDate - 1
    End If
    
    GetPreviousWorkday = previousDate
End Function

Sub Test()
    Dim currentDate As Date
    Dim previousWorkday As Date
    
    currentDate = Date ' 获取当前日期
    previousWorkday = GetPreviousWorkday(currentDate) ' 获取上一个工作日的日期
    
    MsgBox "上一个工作日的日期为：" & previousWorkday
End Sub