关于日历竖向排班 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

大家好，我遇到麻烦事了，我需要作一个班表，是读取系统日期自动生成的。
我已经用批处理生成了一个和WIN系统日历一样的BAT，但我这个BAT他没有明确指明当月日期和星期的关系。
他生成的表和WIN的一样，但我需要的班表，需要是竖向的日期
如下：

N年N月 | 上班时间一 |上班时间二 |上班时间三 | 上班时间四|
日期星期几 |名一 |名二 |名三 |名四 |

例：
2009年01月| 上班时间一 |上班时间二 |上班时间三 | 上班时间四|
01星期四 |名一 |名二 |名三 |名四 |
02星期五 |名二 |名三 |名四 |名一 |
03星期六 |名三 |名四 |名一 |名二 |
04星期日 |名四 |名一 |名二 |名三 |
。
。
。
。
31星期六 |名三 |名四 |名一 |名二 |

我要生成的是这样的表，直接读取机器的日期生成，方便查询

但我找到的是和WIN一样的日历，找不到日期和星期的关联。
请帮忙想一样，如何能把日期和星期关联在一起，按上边的格式打出
日期+星期，后边再打排班的名称

我改写成的日历表代码如下：

日一二三四五六
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 31


@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 /a year=%DATE:~0,4%
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 /a m=%DATE:~5,2%
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)
)
pause

自动日历出来了，就是不会把他写成我需要的方式。。
班表有四个人，还要把日期和班表的某一个人的名称关联在一起。
我就是在这里想了半天，没办法实现了。。
请大家帮帮忙。

[ Last edited by HAT on 2009-2-3 at 05:39 ]


@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 /a year=%DATE:~0,4%
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 /a m=%DATE:~5,2%
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)

set weekday=日一二三四五六
set /a monthflag-=0
for /l %%e in (1 1 !s%m%!) do (
call set wd=星期%%weekday:~!monthflag!,1%%
if %%e lss 10 (Call echo 0%%e!wd!) else (Call echo %%e!wd!)
set /a monthflag+=1
set /a monthflag%%=7
)
pause

先谢谢楼上的生成了竖向日历
还是想不通，要怎样把名字和日期关联起来
我要 set workers=名字一名字二名字三名字四名字一名字二名字三
然后每次读取四个，在 %%e!wd! 后输出。
geq 4 超过时再读第一个名字
名字要怎样和时间关联起来呢？

[ Last edited by andison625 on 2009-1-28 at 11:20 ]

::名字重复一次,用作循环

set "names=|名一 |名二 |名三 |名四 |名一 |名二 |名三 |名四 "
. . .
::nn+15除60取余;具体排版自己改下,只提供方法
set /a nn=(nn+15)%%60
...%%e!wd!!names:~%nn%,60!

[ Last edited by netbenton on 2009-2-1 at 18:23 ]

这样试行不？
取一遍后 set 名字一=名字二 set 名字二=名字三。。。

参考

set weekday=日一二三四五六


@echo off 
set "xq=日一二三四五六"
for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a Y=%%i,M=1%%j%%100,D=1%%k%%100,M1=M
set/a PN="!(Y%%4) & !(!(Y%%100)) | !(Y%%400)+28",n=0,_a=0,_b=1,_c=2,_d=3
echo %Y%年%M%月     ^|上班时间一^|上班时间二^|上班时间三^|上班时间四^|
for %%i in  (名一 名二 名三 名四)do call set "_%%n%%=%%i"&set/a n+=1
if %M% leq 2 set/a Y-=1,M+=12
set/a W1=(1+2*M+3*(M+1)/5+Y+Y/4-Y/100+Y/400+1)%%7
   for /F "tokens=%M1%" %%i in ("31 %PN% 31 30 31 30 31 31 30 31 30 31") do set/a W=w1+%%i-1 
      for /l %%j in (0 1 %w%) do (
         if %%j geq %W1% (
         set/a T=%%j%%7,DD+=1
         call set D=0%%DD%%
         call call echo %%D:~-2%% 星期%%%%xq:~%%t%%,1%%%%      %%%%_%%_a%%%%%%        %%%%_%%_b%%%%%%       %%%%_%%_c%%%%%%       %%%%_%%_d%%%%%%
         set/a _a=^(_a+1^)%%4,_b=^(_b+1^)%%4,_c=^(_c+1^)%%4,_d=^(_d+1^)%%4
 ))
pause

谢谢各位了。。。
七楼的朋友，解决了名字输出的问题。
但还是没有把四个名字和日期关联起来。。
把日期改了一下，还是按自定义的名字，由第一个输出，
就等于每个月的班都一样了。。先谢谢了。。

以前我用C++编日历时，是找到某一天，指定的日子，
例：2007-1-4 星期一，名一，
这样，把这些都关联在一起，然后算，某一个月的第一天，
和那天隔了多少天，再把这个数N，分别除 7，4，
这样，把后边的都一起算出来。

但我在批处理中缺少函数上的认识，不是很会设定这个关联。。

基本上解决了。。。。
最后想要在每个名字前加 “|”
用于生成文本导入EXCEL。。。。

这个。。。我试过用 ^| 这样，不行，
下边是我改好后的代码，
请帮我改一下，
在名字前加多一个竖条。


@echo off 
color f2
set "xq=日一二三四五六"
for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a Y=%%i,M=1%%j%%100,D=1%%k%%100,M1=M
if %M% leq 2 set/a Y-=1,M+=12
set/a n1=(1+2*M+3*(M+1)/5+Y+Y/4-Y/100+Y/400+1)%%4
set/a PN="!(Y%%4) & !(!(Y%%100)) | !(Y%%400)+28",n=0,_a=0+n1,_b=1+n1,_c=2+n1,_d=3+n1
echo %Y%年%M%月    ^|08:30-17:30 ^|08:30-17:30 ^|17:30-21:00 ^|   休息   ^| 
for %%i in  (名字一 名字二 名字三 名字四 名字一 名字二 名字三)do call set "_%%n%%=%%i"&set/a n+=1
set/a W1=(1+2*M+3*(M+1)/5+Y+Y/4-Y/100+Y/400+1)%%7
   for /F "tokens=%M1%" %%i in ("31 %PN% 31 30 31 30 31 31 30 31 30 31") do set/a W=w1+%%i-1 
      for /l %%j in (0 1 %w%) do (
         if %%j geq %W1% (
         set/a T=%%j%%7,DD+=1
         call set D=0%%DD%%
         call call echo %%D:~-2%% 星期%%%%xq:~%%t%%,1%%%%      %%%%_%%_a%%%%%%        %%%%_%%_b%%%%%%       %%%%_%%_c%%%%%%       %%%%_%%_d%%%%%%
         set/a _a=^(_a+3^)%%4,_b=^(_b+3^)%%4,_c=^(_c+3^)%%4,_d=^(_d+3^)%%4
))
pause

[ Last edited by andison625 on 2009-2-2 at 17:42 ]

弄好了，，，非常谢谢各位。

第1楼　andison625	发表于 2009-01-24 17:14
初级用户　发帖 36　积分 70
[已结]关于日历竖向排班大家好，我遇到麻烦事了，我需要作一个班表，是读取系统日期自动生成的。我已经用批处理生成了一个和WIN系统日历一样的BAT，但我这个BAT他没有明确指明当月日期和星期的关系。他生成的表和WIN的一样，但我需要的班表，需要是竖向的日期如下： N年N月 \| 上班时间一 \|上班时间二 \|上班时间三 \| 上班时间四\| 日期星期几 \|名一 \|名二 \|名三 \|名四 \| 例： 2009年01月\| 上班时间一 \|上班时间二 \|上班时间三 \| 上班时间四\| 01星期四 \|名一 \|名二 \|名三 \|名四 \| 02星期五 \|名二 \|名三 \|名四 \|名一 \| 03星期六 \|名三 \|名四 \|名一 \|名二 \| 04星期日 \|名四 \|名一 \|名二 \|名三 \| 。。。。 31星期六 \|名三 \|名四 \|名一 \|名二 \| 我要生成的是这样的表，直接读取机器的日期生成，方便查询但我找到的是和WIN一样的日历，找不到日期和星期的关联。请帮忙想一样，如何能把日期和星期关联在一起，按上边的格式打出日期+星期，后边再打排班的名称我改写成的日历表代码如下：日一二三四五六 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 @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 /a year=%DATE:~0,4% 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 /a m=%DATE:~5,2% 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) ) pause 自动日历出来了，就是不会把他写成我需要的方式。。班表有四个人，还要把日期和班表的某一个人的名称关联在一起。我就是在这里想了半天，没办法实现了。。请大家帮帮忙。 [ Last edited by HAT on 2009-2-3 at 05:39 ]

第2楼　slore	发表于 2009-01-24 20:09
铂金会员　发帖 2,478　积分 5,212
@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 /a year=%DATE:~0,4% 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 /a m=%DATE:~5,2% 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) set weekday=日一二三四五六 set /a monthflag-=0 for /l %%e in (1 1 !s%m%!) do ( call set wd=星期%%weekday:~!monthflag!,1%% if %%e lss 10 (Call echo 0%%e!wd!) else (Call echo %%e!wd!) set /a monthflag+=1 set /a monthflag%%=7 ) pause

第3楼　andison625	发表于 2009-01-28 11:19
初级用户　发帖 36　积分 70
先谢谢楼上的生成了竖向日历还是想不通，要怎样把名字和日期关联起来我要 set workers=名字一名字二名字三名字四名字一名字二名字三然后每次读取四个，在 %%e!wd! 后输出。 geq 4 超过时再读第一个名字名字要怎样和时间关联起来呢？ [ Last edited by andison625 on 2009-1-28 at 11:20 ]

第4楼　netbenton	发表于 2009-01-28 13:53
银牌会员　发帖 752　积分 1,916　来自广西
::名字重复一次,用作循环 set "names=\|名一 \|名二 \|名三 \|名四 \|名一 \|名二 \|名三 \|名四 " . . . ::nn+15除60取余;具体排版自己改下,只提供方法 set /a nn=(nn+15)%%60 ...%%e!wd!!names:~%nn%,60! [ Last edited by netbenton on 2009-2-1 at 18:23 ]

第5楼　terse	发表于 2009-01-28 17:44
银牌会员　发帖 946　积分 2,404
这样试行不？取一遍后 set 名字一=名字二 set 名字二=名字三。。。

第6楼　slore	发表于 2009-01-28 19:56
铂金会员　发帖 2,478　积分 5,212
参考 set weekday=日一二三四五六

第7楼　terse	发表于 2009-01-28 21:58
银牌会员　发帖 946　积分 2,404
@echo off set "xq=日一二三四五六" for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a Y=%%i,M=1%%j%%100,D=1%%k%%100,M1=M set/a PN="!(Y%%4) & !(!(Y%%100)) \| !(Y%%400)+28",n=0,_a=0,_b=1,_c=2,_d=3 echo %Y%年%M%月 ^\|上班时间一^\|上班时间二^\|上班时间三^\|上班时间四^\| for %%i in (名一名二名三名四)do call set "_%%n%%=%%i"&set/a n+=1 if %M% leq 2 set/a Y-=1,M+=12 set/a W1=(1+2M+3(M+1)/5+Y+Y/4-Y/100+Y/400+1)%%7 for /F "tokens=%M1%" %%i in ("31 %PN% 31 30 31 30 31 31 30 31 30 31") do set/a W=w1+%%i-1 for /l %%j in (0 1 %w%) do ( if %%j geq %W1% ( set/a T=%%j%%7,DD+=1 call set D=0%%DD%% call call echo %%D:~-2%% 星期%%%%xq:~%%t%%,1%%%% %%%%_%%_a%%%%%% %%%%_%%_b%%%%%% %%%%_%%_c%%%%%% %%%%_%%_d%%%%%% set/a _a=^(_a+1^)%%4,_b=^(_b+1^)%%4,_c=^(_c+1^)%%4,_d=^(_d+1^)%%4 )) pause

第8楼　andison625	发表于 2009-02-01 15:40
初级用户　发帖 36　积分 70
谢谢各位了。。。七楼的朋友，解决了名字输出的问题。但还是没有把四个名字和日期关联起来。。把日期改了一下，还是按自定义的名字，由第一个输出，就等于每个月的班都一样了。。先谢谢了。。

第9楼　andison625	发表于 2009-02-01 15:49
初级用户　发帖 36　积分 70
以前我用C++编日历时，是找到某一天，指定的日子，例：2007-1-4 星期一，名一，这样，把这些都关联在一起，然后算，某一个月的第一天，和那天隔了多少天，再把这个数N，分别除 7，4，这样，把后边的都一起算出来。但我在批处理中缺少函数上的认识，不是很会设定这个关联。。

第10楼　andison625	发表于 2009-02-02 15:46
初级用户　发帖 36　积分 70
基本上解决了。。。。最后想要在每个名字前加 “\|” 用于生成文本导入EXCEL。。。。这个。。。我试过用 ^\| 这样，不行，下边是我改好后的代码，请帮我改一下，在名字前加多一个竖条。 @echo off color f2 set "xq=日一二三四五六" for /f "tokens=1-3 delims=-/\:. " %%i in ("%date%") do set /a Y=%%i,M=1%%j%%100,D=1%%k%%100,M1=M if %M% leq 2 set/a Y-=1,M+=12 set/a n1=(1+2M+3(M+1)/5+Y+Y/4-Y/100+Y/400+1)%%4 set/a PN="!(Y%%4) & !(!(Y%%100)) \| !(Y%%400)+28",n=0,_a=0+n1,_b=1+n1,_c=2+n1,_d=3+n1 echo %Y%年%M%月 ^\|08:30-17:30 ^\|08:30-17:30 ^\|17:30-21:00 ^\| 休息 ^\| for %%i in (名字一名字二名字三名字四名字一名字二名字三)do call set "_%%n%%=%%i"&set/a n+=1 set/a W1=(1+2M+3(M+1)/5+Y+Y/4-Y/100+Y/400+1)%%7 for /F "tokens=%M1%" %%i in ("31 %PN% 31 30 31 30 31 31 30 31 30 31") do set/a W=w1+%%i-1 for /l %%j in (0 1 %w%) do ( if %%j geq %W1% ( set/a T=%%j%%7,DD+=1 call set D=0%%DD%% call call echo %%D:~-2%% 星期%%%%xq:~%%t%%,1%%%% %%%%_%%_a%%%%%% %%%%_%%_b%%%%%% %%%%_%%_c%%%%%% %%%%_%%_d%%%%%% set/a _a=^(_a+3^)%%4,_b=^(_b+3^)%%4,_c=^(_c+3^)%%4,_d=^(_d+3^)%%4 )) pause [ Last edited by andison625 on 2009-2-2 at 17:42 ]

第11楼　andison625	发表于 2009-02-02 17:58
初级用户　发帖 36　积分 70
弄好了，，，非常谢谢各位。