pcl_test

@echo off
title 获取指定日期的当周的星期几是哪天
::年/月/日或年-月-日
set 日期=2008-7-17
::1/2/3/4/5/6/7
set 星期=7
for /f %%a in ('mshta VBScript:Execute("CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write DateAdd(""d"",(%星期%-Weekday(CDate(""%日期%""),2)),""%日期%""):close"^)') do echo;%日期%当周的星期%星期%是%%a
pause
复制代码