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

问题描述

最终结果就像 今天是 2021 年 4 月 28 日

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

解决方法

这是使用 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

,

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

#![feature(min_type_alias_impl_trait)]

或者这个

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

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