@echo off
color 2a
title 星期分析者 Ver1.0 
goto main
:main
cls
echo 请输入日期(格式:XXXXYYZZ):
set 日期=
set 年=
set 月=
set 日=
set /p 日期=
echo %日期% | findstr "[0-9]" || goto error
echo %日期% | findstr /I "[a-z]" && goto error
goto load
:load
cls
set /a 年=%日期:~0,4%
set /a 月=%日期:~4,2%
set /a qwe=%年%*10000
set /a asd=%月%*100
set /a 日=%日期%-%qwe%-%asd%
cls
set /a t=%年%/4
set /a tt=%年%/100
set /a ttt=%年%/400
set /a cc=%年%%%4
set /a ccc=%年%%%400
if %cc% equ 0 (
if %ccc% equ 0 (
set /a ery=29
)
) else (
set /a ery=28
)
if %cc% equ 1 set /a ery=29
if %cc% equ 2 set /a ery=29
if %cc% equ 3 set /a ery=29
if %月% equ 1 set /a t4=%日%
if %月% equ 2 set /a t4=%日%+31
if %月% equ 3 set /a t4=%日%+31+%ery%
if %月% equ 4 set /a t4=%日%+31+%ery%+31
if %月% equ 5 set /a t4=%日%+31+%ery%+31+30
if %月% equ 6 set /a t4=%日%+31+%ery%+31+30+31
if %月% equ 7 set /a t4=%日%+31+%ery%+31+30+31+30
if %月% equ 8 set /a t4=%日%+31+%ery%+31+30+31+30+31
if %月% equ 9 set /a t4=%日%+31+%ery%+31+30+31+30+31+31
if %月% equ 10 set /a t4=%日%+31+%ery%+31+30+31+30+31+31+30
if %月% equ 11 set /a t4=%日%+31+%ery%+31+30+31+30+31+31+30+31
if %月% equ 12 set /a t4=%日%+31+%ery%+31+30+31+30+31+31+30+31+30
set /a tttt=%t4%
set /a x=%t%+%tt%+%ttt%+%t4%+%年%+1
set /a xx=%x%%%7
if %xx% equ 0 echo %年% 年 %月% 月 %日% 日 是星期日
if %xx% equ 1 echo %年% 年 %月% 月 %日% 日 是星期一
if %xx% equ 2 echo %年% 年 %月% 月 %日% 日 是星期二
if %xx% equ 3 echo %年% 年 %月% 月 %日% 日 是星期三
if %xx% equ 4 echo %年% 年 %月% 月 %日% 日 是星期四
if %xx% equ 5 echo %年% 年 %月% 月 %日% 日 是星期五
if %xx% equ 6 echo %年% 年 %月% 月 %日% 日 是星期六
pause>nul
goto main
:error
cls
echo 请确认输入!
pause>nul
goto main
复制代码

@echo off&setlocal enabledelayedexpansion
for %%a in (一 二 三 四 五 六 日) do set/an+=1&set #!n!=%%a
set/p date=请输入正确日期(格式yyyymmdd):
set yy=!date:~0,4!&set mm=!date:~4,2!&set dd=!date:~6,2!
:::输入合法性判断略
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,dow=153*m+2
set /a dow=dow/5+dd+y*365+y/4-y/100+y/400-2472630,dow%%=7,dow+=1
call echo !yy!年!mm!月!dd!日是星期%%#%dow%%%&pause
复制代码