-3

像今天这样的最终输出日期是 2021 年 4 月 28 日

输出 like.but 它不应该包括周六和周日(仅工作日) 27-Apr-2021 26-Apr-2021 23-Apr-2021 像这样...

4

2 回答 2

1

这是循环日期并使用Weekday函数检查星期几的简单方法。此函数返回daysToList从昨天开始的日期列表,跳过周末:

Function TMinus(daysToList)
    Dim daysFound
    Dim currentDay
    Dim list
    
    ' Initialize variables
    daysFound = 0
    list = ""
    currentDay = Now
    
    Do While daysFound < daysToList
        currentDay = DateAdd("d", -1, currentDay)
        Select Case Weekday(currentDay)
            Case 1, 7
                ' Skip weekends
            Case Else
                list = list & FormatDateTime(currentDay, 2) & vbCrLf
                daysFound = daysFound + 1
        End Select
    Loop
    TMinus = list
End Function
于 2021-04-28T17:20:53.110 回答
-3

我想我刚刚理解了你。你想要的是文件的输出应该只在工作日。好吧,你可以试试这个:

a = WeekDay("4/26/2021")
 
msgbox a

或这个

a = WeekDay(Date)
 
msgbox a

您必须记住,对于 Windows,星期天 =1,星期一 =2.....星期六 = 7,或者您还可以定义一周中的哪一天成为一周的第一天并使用它

于 2021-04-28T13:01:35.063 回答