本帖最后由 Zombie 于 2021-1-4 20:29 编辑
- @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
复制代码
|