Vbscript 上周五到，下周四到

我创建了一个代码来获取最后一个星期五，但它只有在今天已经是下一个星期的情况下才能工作

        iWeekday = Weekday(Now(), vbFriday)
        LastFridayDate = Now - (iWeekday - 1)

我需要一个代码，根据今天的日期获取最后一个星期五，并获取下一个星期四

提前谢谢。

给你

Dim x1, lFriday, lFri : x1 = 1
Dim x2, nThursday, nThur : x2 = 1
Dim c

Do While lFriday <> 6
c = DateAdd("d", -x1, Now()):lFriday = Weekday(c): lFri = c : x1 = x1 + 1
Loop


Do While nThursday <> 5
c = DateAdd("d", x2, Now()):nThursday = Weekday(c): nThur = c : x2 = x2 + 1
Loop
response.write("Last Friday = " & lFri)
response.write("Next Thursday = " & nThur)
'Last Friday = lFri 
'Next Thursday = nThur

Dim x1，lFriday，lFri:x1=1
尺寸x2，星期四，星期四：x2=1
dimc
星期六做什么
c=DateAdd（“d”，-x1，Now（））：lFriday=Weekday（c）：lFri=c:x1=x1+1
环
第五天做什么
c=DateAdd（“d”，x2，Now（））：nThursday=Weekday（c）：nThur=c:x2=x2+1
环
response.write（“上周五=”&lFri）
响应。写入（“下周四=”&nThur）
'上周五=lFri
“下周四=星期四

给你

Dim x1, lFriday, lFri : x1 = 1
Dim x2, nThursday, nThur : x2 = 1
Dim c

Do While lFriday <> 6
c = DateAdd("d", -x1, Now()):lFriday = Weekday(c): lFri = c : x1 = x1 + 1
Loop


Do While nThursday <> 5
c = DateAdd("d", x2, Now()):nThursday = Weekday(c): nThur = c : x2 = x2 + 1
Loop
response.write("Last Friday = " & lFri)
response.write("Next Thursday = " & nThur)
'Last Friday = lFri 
'Next Thursday = nThur

Dim x1，lFriday，lFri:x1=1
尺寸x2，星期四，星期四：x2=1
dimc
星期六做什么
c=DateAdd（“d”，-x1，Now（））：lFriday=Weekday（c）：lFri=c:x1=x1+1
环
第五天做什么
c=DateAdd（“d”，x2，Now（））：nThursday=Weekday（c）：nThur=c:x2=x2+1
环
response.write（“上周五=”&lFri）
响应。写入（“下周四=”&nThur）
'上周五=lFri
“下周四=星期四

你的意思是在星期五，你想要前一周的星期五？为此，您只需将

iWeekday

定在周六即可

LastFridayDate = Date - Weekday(Date, vbSaturday)

要计算下周四，您需要从8中减去基于周四的工作日数，并将其添加到当前日期：

NextThursdayDate = Date + 8 - Weekday(Date, vbThursday)

演示：

>对于i=0到8：_
d1=日期+i：_
d2=d1-工作日（d1，周六）：_
Echo WeekdayName（Weekday（d1），True）&“，”&d1&“->”_
&工作日名称（工作日（d2），真）和“，”和d2:_
下一个
Do，2014年2月27日->Fr，2014年2月21日
Fr，2014年2月28日->Fr，2014年2月21日
南非，2014年3月1日->法国，2014年2月28日
因此，2014年3月2日->联邦公报，2014年2月28日
2014年3月3日，密苏里州->联邦公报，2014年2月28日
Di，2014年3月4日->Fr，2014年2月28日
密歇根州，2014年3月5日->联邦公报，2014年2月28日
Do，2014年3月6日->Fr，2014年2月28日
Fr，2014年3月7日->Fr，2014年2月28日
>>>对于i=0到8：_
d1=日期+i：_
d2=d1+8-工作日（d1，星期四）：_
Echo WeekdayName（Weekday（d1），True）&“，”&d1&“->”_
&工作日名称（工作日（d2），真）和“，”和d2:_
下一个
Do，2014年2月27日->Do，2014年3月6日
Fr，2014年2月28日->Do，2014年3月6日
Sa，2014年3月1日->Do，2014年3月6日
因此，2014年3月2日->2014年3月6日
莫，2014年3月3日->杜，2014年3月6日
Di，2014年3月4日->Do，2014年3月6日
密歇根州，2014年3月5日->Do，2014年3月6日
Do，2014年3月6日->Do，2014年3月13日
Fr，07.03.2014->Do，13.03.2014

你的意思是在星期五，你想要前一周的星期五？为此，您只需将

iWeekday

定在周六即可

LastFridayDate = Date - Weekday(Date, vbSaturday)

要计算下周四，您需要从8中减去基于周四的工作日数，并将其添加到当前日期：

NextThursdayDate = Date + 8 - Weekday(Date, vbThursday)

演示：

>对于i=0到8：_
d1=日期+i：_
d2=d1-工作日（d1，周六）：_
Echo WeekdayName（Weekday（d1），True）&“，”&d1&“->”_
&工作日名称（工作日（d2），真）和“，”和d2:_
下一个
Do，2014年2月27日->Fr，2014年2月21日
Fr，2014年2月28日->Fr，2014年2月21日
南非，2014年3月1日->法国，2014年2月28日
因此，2014年3月2日->联邦公报，2014年2月28日
2014年3月3日，密苏里州->联邦公报，2014年2月28日
Di，2014年3月4日->Fr，2014年2月28日
密歇根州，2014年3月5日->联邦公报，2014年2月28日
Do，2014年3月6日->Fr，2014年2月28日
Fr，2014年3月7日->Fr，2014年2月28日
>>>对于i=0到8：_
d1=日期+i：_
d2=d1+8-工作日（d1，星期四）：_
Echo WeekdayName（Weekday（d1），True）&“，”&d1&“->”_
&工作日名称（工作日（d2），真）和“，”和d2:_
下一个
Do，2014年2月27日->Do，2014年3月6日
Fr，2014年2月28日->Do，2014年3月6日
Sa，2014年3月1日->Do，2014年3月6日
因此，2014年3月2日->2014年3月6日
莫，2014年3月3日->杜，2014年3月6日
Di，2014年3月4日->Do，2014年3月6日
密歇根州，2014年3月5日->Do，2014年3月6日
Do，2014年3月6日->Do，2014年3月13日
Fr，07.03.2014->Do，13.03.2014

谢谢#TechnologRich，但是#Ansgar Wiechers代码更简单。很高兴你得到了答案！谢谢，TechnologyRich，但是Ansgar Wiechers代码更简单。很高兴你得到了答案！