批处理日历 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

通过在楼住的代码中新加代码,可以显示不同年份了
除了公元前估计都没有问题
所有改动均在注释之内,其余部分未做改动


@echo off
mode con: lines=12 cols=40
setlocal enabledelayedexpansion
for %%a in (一,二,三,四,五,六,日) do (
set /a a+=1
set j!a!=%%a)

for %%b in (31,28,31,30,31,30,31,31,30,31,30,31) do (
set /a y+=1
set s!y!=%%b)


::::::::::::::::::::::::::::::加入年功能
set /p year=查几年?
cls
set /a year_chk1=year%%400
set /a year_chk2=year%%4
set /a year_chk3=year%%100
if %year_chk1% equ 0 set s2=29
if %year_chk2% equ 0 if %year_chk3% neq 0 set s2=29
::::::::::::::::::::::::::::::加入结束

set /p m=查几月?
cls
set n=%m%
set /a n-=1


for /l %%c in (1,1,%n%) do (
set /a day+=!s%%c!)


set b=0

for /l %%d in (1,1,!day!) do (
set /a b+=1
if !b! equ 8 set b=1)

if %m% equ 1 set b=7



echo     一   二   三   四   五   六   日
echo.
set flag= 一二三四五六日一二三四五六日

:::::::::::::::::::::::::::::::::加入年功能
set /a yearflag=(%year%+(%year%-1)/4-(%year%-1)/100+(%year%-1)/400)%%7
if %yearflag% equ 1 goto endadjust
if %yearflag% equ 0 set yearflag=7
set /a yearflag-=1
set /a yeartemp=0-yearflag
set flag= !flag:~%yeartemp%!一二三四五六日一二三四五六日
set flag=!flag:~0,15!
echo %flag%>C:\ag.txt
:endAdjust
:::::::::::::::::::::::::::::::::加入结束

for /l %%f in (1 1 13) do (

if "!flag:~%%f,1!"=="!j%b%!" (
if "!j%%f!"=="一" (set /p s=     <nul&set zh=6&goto next)
if "!j%%f!"=="二" (set /p s=          <nul&set zh=5&goto next)
if "!j%%f!"=="三" (set /p s=               <nul&set zh=4&goto next)
if "!j%%f!"=="四" (set /p s=                    <nul&set zh=3&goto next)
if "!j%%f!"=="五" (set /p s=                         <nul&set zh=2&goto next)
if "!j%%f!"=="六" (set /p s=                              <nul&set zh=1&goto next)
if "!j%%f!"=="日" (set /p s=<nul&set zh=7&goto next)
))


:next

for /l %%e in (1 1 !s%m%!) do (
set /a b+=1
if !b! equ 8 set b=1
if %%e lss 10 (set /p=    %%e<nul) else (set /p=   %%e<nul)
if !fl!==0 (set /a z+=1)

if !z!==7 (echo.&set z=0)
if %%e==!zh! (echo.
set fl=0
)
)
pause>nul

[ Last edited by my3439955 on 2007-4-24 at 12:39 PM ]

第16楼　gne3	发表于 2007-02-21 09:03
高级用户　发帖 252　积分 526
12楼兄说的，我看的晕乎乎的。呵呵呵

第17楼　mmyy525	发表于 2007-03-05 00:33
初级用户　发帖 10　积分 26
顶一下！

第18楼　tyh	发表于 2007-04-24 10:28
初级用户　发帖 43　积分 80
不错.不过没看懂.呵呵

第19楼　wudixin96	发表于 2007-04-24 10:39
银牌会员　发帖 931　积分 1,928
写得真不错啊。

第20楼　my3439955	发表于 2007-04-24 11:01
中级用户　发帖 99　积分 272
支持楼主增加对任意年份日期查询的功能相信知道了一年的第一天是星期几的话这个功能就可以实现了对于任意的年year 第一天是周几的计算公式为 (year+(year-1)/4-(year-1)/100+(year-1)/400)%7 注意这里的格式"/"为除法,不就余数,"%"为取余操作,只要余数今年是2007年,那么第一天可计算得到为星期一

第21楼　my3439955	发表于 2007-04-24 12:36
中级用户　发帖 99　积分 272
通过在楼住的代码中新加代码,可以显示不同年份了除了公元前估计都没有问题所有改动均在注释之内,其余部分未做改动 @echo off mode con: lines=12 cols=40 setlocal enabledelayedexpansion for %%a in (一,二,三,四,五,六,日) do ( set /a a+=1 set j!a!=%%a) for %%b in (31,28,31,30,31,30,31,31,30,31,30,31) do ( set /a y+=1 set s!y!=%%b) ::::::::::::::::::::::::::::::加入年功能 set /p year=查几年? cls set /a year_chk1=year%%400 set /a year_chk2=year%%4 set /a year_chk3=year%%100 if %year_chk1% equ 0 set s2=29 if %year_chk2% equ 0 if %year_chk3% neq 0 set s2=29 ::::::::::::::::::::::::::::::加入结束 set /p m=查几月? cls set n=%m% set /a n-=1 for /l %%c in (1,1,%n%) do ( set /a day+=!s%%c!) set b=0 for /l %%d in (1,1,!day!) do ( set /a b+=1 if !b! equ 8 set b=1) if %m% equ 1 set b=7 echo 一二三四五六日 echo. set flag= 一二三四五六日一二三四五六日 :::::::::::::::::::::::::::::::::加入年功能 set /a yearflag=(%year%+(%year%-1)/4-(%year%-1)/100+(%year%-1)/400)%%7 if %yearflag% equ 1 goto endadjust if %yearflag% equ 0 set yearflag=7 set /a yearflag-=1 set /a yeartemp=0-yearflag set flag= !flag:~%yeartemp%!一二三四五六日一二三四五六日 set flag=!flag:~0,15! echo %flag%>C:\ag.txt :endAdjust :::::::::::::::::::::::::::::::::加入结束 for /l %%f in (1 1 13) do ( if "!flag:~%%f,1!"=="!j%b%!" ( if "!j%%f!"=="一" (set /p s= <nul&set zh=6&goto next) if "!j%%f!"=="二" (set /p s= <nul&set zh=5&goto next) if "!j%%f!"=="三" (set /p s= <nul&set zh=4&goto next) if "!j%%f!"=="四" (set /p s= <nul&set zh=3&goto next) if "!j%%f!"=="五" (set /p s= <nul&set zh=2&goto next) if "!j%%f!"=="六" (set /p s= <nul&set zh=1&goto next) if "!j%%f!"=="日" (set /p s=<nul&set zh=7&goto next) )) :next for /l %%e in (1 1 !s%m%!) do ( set /a b+=1 if !b! equ 8 set b=1 if %%e lss 10 (set /p= %%e<nul) else (set /p= %%e<nul) if !fl!==0 (set /a z+=1) if !z!==7 (echo.&set z=0) if %%e==!zh! (echo. set fl=0 ) ) pause>nul [ Last edited by my3439955 on 2007-4-24 at 12:39 PM ]

第22楼　lixiaodong789	发表于 2007-05-04 18:39
新手上路　发帖 2　积分 4
hao

第23楼　yeke	发表于 2007-05-04 20:51
初级用户　发帖 13　积分 25
顶你了

第24楼　sack	发表于 2007-05-14 04:48
新手上路　发帖 3　积分 8
真是高手啊！我现在才发现我很菜