像今天这样的最终输出日期是 2021 年 4 月 28 日
输出 like.but 它不应该包括周六和周日(仅工作日) 27-Apr-2021 26-Apr-2021 23-Apr-2021 像这样...
像今天这样的最终输出日期是 2021 年 4 月 28 日
输出 like.but 它不应该包括周六和周日(仅工作日) 27-Apr-2021 26-Apr-2021 23-Apr-2021 像这样...
这是循环日期并使用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
我想我刚刚理解了你。你想要的是文件的输出应该只在工作日。好吧,你可以试试这个:
a = WeekDay("4/26/2021")
msgbox a
或这个
a = WeekDay(Date)
msgbox a
您必须记住,对于 Windows,星期天 =1,星期一 =2.....星期六 = 7,或者您还可以定义一周中的哪一天成为一周的第一天并使用它