T-21天的Vb脚本(此处T为当前日期)

Question

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

输出类似。但不应包括周六和周日(仅工作日(2021年4月27日2021年4月26日2021年4月23日像这样。。。

Answer 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

Answer 2

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

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

或者这个

a = WeekDay(Date)
 
msgbox a

你必须记住，对于Windows，星期日=1，星期一=2……星期六=7或者你也可以定义你想在一周中的哪一天成为一周的第一天，并使用