VBS代码示例

section1#

Set args = WScript.Arguments
If args.Count = 1 Then
	Wscript.echo Weekday(WScript.Arguments(0),"2")
ELSE
	Wscript.echo Weekday(date,"2")
End If

section2#

Set args = WScript.Arguments
If args.Count = 1 Then
	Wscript.echo dateadd("d",WScript.Arguments(0),date)
Else
	Wscript.echo dateadd("d",0,date)
End If

section3#

@echo off
::::::::::::::获取昨天的日期
:adday
for /f %%a in ('cscript //nologo adday.vbs %1') do ( 
	set yyyymmdd=%%a
)
for /f "tokens=1,2,3* delims=// " %%i in ('echo %yyyymmdd%') do set yyyy=%%i&set mm=%%j&set dd=%%k
if   %mm%   LSS   9   set   mm=0%mm%
if   %dd%   LSS   9   set   dd=0%dd%
for %%i in (echo %yyyy%-%mm%-%dd%) do set adday=%%i
echo %adday%

section4#

@echo off
::::::::::::::获取昨天的日期
:getWeekday
for /f %%a in ('cscript //nologo weekday.vbs %1') do ( 
	set weekday=%%a
)
echo %weekday%

section5#

call adday.bat %1
call weekday.bat %adday%

references list：
http://docs.30c.org/dosbat/chapter01/
https://www.cnblogs.com/yachao1120/p/8082525.html
https://blog.csdn.net/caiqcong/article/details/7742958
https://www.w3school.com.cn/vbscript/func_weekday.asp
https://www.jb51.net/article/50370.htm
Thanks.