vbscript - T-21 天的 Vb 脚本（这里 T 是当前日期）

Question

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

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

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，或者您还可以定义一周中的哪一天成为一周的第一天并使用它