Winバッチで、直近の月曜日を算出するプログラム

バッチで月曜日ファイル名を作りたくて。
参考：n集間前の月曜日の日付を計算するVBスクリプト
これをバッチで呼び出して、こんな感じ。

monday.bat

for /f "usebackq tokens=*" %%i IN (`call cscript //nologo getmondate.vbs`) DO @set dt=%%i
set FName=%dt:~-10,4%%dt:~-5,2%%dt:~-2,2%.log
echo %FName%

getmondate.vbsは参照をそのまま流用。

Wscript.Echo GetMonDate(date,0)

 

Function GetMonDate(CurrentDate,n)

'変数の型がDate以外ならnullを返す

If VarType(CurrentDate)<>7 then

GetMonDate=Null

Else

Select Case WeekDay(CurrentDate)

Case 1       ' Sunday

GetMonDate=CurrentDate-6+(-7*n)

Case 2       ' Monday

GetMonDate=CurrentDate+(-7*n)

Case Else    ' Tuesday..Saturday

GetMonDate=CurrentDate-WeekDay(CurrentDate)+2+(-7*n)

End Select

End If

End Function