大家好，这里学习DOS和batch真是个不错的好地方。
我一直想找个dos下CAL命令，类似于linux下的cal。
后来再这里发现了批处理日历http://www.cn-dos.net/forum/viewthread.php?tid=27739&fpage=1&highlight=%E6%97%A5%E5%8E%86&page=1这个帖子，用电脑也很久了，现在想稍微了解一下batch，正是通过这篇文章了解了xp下batch。感谢huzixuan和my3439955，一边学习代码一边消化，花了我几天的时间——发现真笨，现在自己改写了那篇文章的部分代码，原因如下：
1. 代码中有个临时文件，我觉得不爽。
2. 目前通用的日历排序是：日、一、二、三、四、五、六
3. 学习嘛，所以看看自己能否看懂，在这过程中不知不觉就改了
为什么想找一个cal命令呢，是因为我通常用USER登陆xp的，系统中自带的小日历只能是管理员才可打开（更改），这样让我很郁闷。
有错误的地方，请大家指正。
代码如下：
程序有错，自己更正了一下。
[ Last edited by huanbei on 2008-11-6 at 00:53 ]
我一直想找个dos下CAL命令，类似于linux下的cal。
后来再这里发现了批处理日历http://www.cn-dos.net/forum/viewthread.php?tid=27739&fpage=1&highlight=%E6%97%A5%E5%8E%86&page=1这个帖子，用电脑也很久了，现在想稍微了解一下batch，正是通过这篇文章了解了xp下batch。感谢huzixuan和my3439955，一边学习代码一边消化，花了我几天的时间——发现真笨，现在自己改写了那篇文章的部分代码，原因如下：
1. 代码中有个临时文件，我觉得不爽。
2. 目前通用的日历排序是：日、一、二、三、四、五、六
3. 学习嘛，所以看看自己能否看懂，在这过程中不知不觉就改了
为什么想找一个cal命令呢，是因为我通常用USER登陆xp的，系统中自带的小日历只能是管理员才可打开（更改），这样让我很郁闷。
有错误的地方，请大家指正。
代码如下：
@echo off
setlocal enabledelayedexpansion
:::::::::::定义s1～s12，为每个月的天数
for %%b in (31,28,31,30,31,30,31,31,30,31,30,31) do (
set /a y+=1
set s!y!=%%b
)
:::::::::::判断输入年份是否为闰年，更改2月的天数
set /p year=查几年?
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=查几月?
set n=%m%
set /a n-=1
for /l %%c in (1,1,%n%) do (
set /a day+=!s%%c!)
::::::::::判断这一年的第一天是星期几？再判断所要查询月份的第一天是星期几？
set /a yearflag=(%year%+(%year%-1)/4-(%year%-1)/100+(%year%-1)/400)%%7
if %m%==1 (set monthflag=%yearflag% ) else (set /a monthflag=%yearflag%+!day!%%7 )
if %monthflag% geq 7 (set /a monthflag-=7)
echo 日 一 二 三 四 五 六
:::::::::输入月份1号前的空日期
for /l %%d in (1,1,%monthflag%) do (
set /p= <nul)
:::::::::找出要换行的日期（第一个，后每7个一换），显示当月日期并换行
set /a cl=7-%monthflag%
for /l %%e in (1 1 !s%m%!) do (
if %%e lss 10 (set /p= %%e<nul) else (set /p= %%e<nul)
if %%e==!cl! (echo.&set /a cl+=7)
)
echo.
程序有错，自己更正了一下。
[ Last edited by huanbei on 2008-11-6 at 00:53 ]
本帖最近评分记录
（共 3 条）
点击查看详情
用过DOS的人
