请问如何能输出上周7天对应的日期 - 中国DOS联盟论坛

Originally posted by jmz573515 at 2009-9-3 10:51:
这个用VBS更简单吧
for i=7 to 1 step -1 s = s & date-i & vbcrlf next msgbox s

是上一周的7天，不是7天前。

不过这个确实不适合用批处理做：
因为用批处理做首先必须先处理如08，09这样的数字，否则会出现进制运算错误
然后计算上一周的周日的数字：
如果数值为负数，即从上一月开始计算。。。
上个月，也许就上到前一年了。。。
然后得按7月大，8月小计算每个月的月长。。。
然后再按是否是润年考虑2月的情况。。。
麻烦着呢，想着都头大。。。

@echo off&setlocal enabledelayedexpansion
echo 日期必须符合 2009-09-03 星期四 这类的格式
for /f "tokens=1-3 delims=-:/ " %%i in ("%date%") do set Xing1=%%i%%j%%k
:Hy
if "!Xing1:~%Gu1%,1!" neq "" set /a Gu1+=1 &goto Hy
if %Gu1% lss 8 (echo 日期格式错误 &pause &goto :eof)
:Gx
set /p Han1=要从周日作为一周开始,请键入7;要从周一开始,请键入1.然后按回车继续:
if "%Han1%" equ "7" set /a Xing3=3&goto :Hygx
if "%Han1%" equ "1" set /a Xing3=4&goto :Hygx
echo 键入错误,请按任意键重新开始
pause>nul
goto :Gx
:Hygx
set Han2=寒夜孤星日一二三四五六日
if %date:~8,1% equ 0 (set Ye1=%date:~9,1%) else set Ye1=%date:~8,2%
if %date:~5,1% equ 0 (set Ye2=%date:~6,1%) else set Ye2=%date:~5,2%
for /l %%i in (5,1,11) do if "!Han2:~%%i,1!" equ "%date:~13,1%" set /a Hanye1=%Ye1%-%%i+%Han1%-3
if %Hanye1% lss 1 (set /a Gu1=%Ye2%-1) else set Gu1=%Ye2%
if %Gu1% lss 1 (set /a Gu1=12,Guxing2=%date:~0,4%-1) else set /a Guxing2=%date:~0,4%
for %%a in (1:31 2:28 3:31 4:30 5:31 6:30 7:31 8:31 9:30 10:31 11:30 12:31) do for /f "tokens=1,2 delims=:" %%i in ("%%a") do if %Gu1% equ %%i set Xing1=%%j
set /a Guxing1=%Guxing2%%%4
if %Gu1% equ 2 if %Guxing1% equ 0 set Xing1=29
if %Gu1% lss 10 set Gu1=0%Gu1%&echo.&echo 今天是:&echo %date%&echo.&echo 上周是:
set /a Hanye2=%Hanye1%+6
for /l %%i in (%Hanye1%,1,%Hanye2%) do (
        if %%i lss 1 (set /a Xing2=%Xing1%+%%i) else set /a Xing2=%%i
        set /a Xing3+=1
        set Xing2=0!Xing2!
        if %%i lss 1 (call echo %Guxing2%-%Gu1%-!Xing2:~-2! 星期%%Han2:~!Xing3!,1%%) else call echo %date:~0,4%-%date:~5,2%-!Xing2:~-2! 星期%%Han2:~!Xing3!,1%%
)
pause>nul

[ Last edited by Hanyeguxing on 2009-9-6 at 12:41 ]

第1楼　zhengdan	发表于 2009-09-03 10:32
新手上路　发帖 4　积分 6
请问如何能输出上周7天对应的日期比如今天是2009-9-3，那么上周7天的日期为： 2009-8-24 2009-8-25 …… 2009-8-30

第2楼　jmz573515	发表于 2009-09-03 10:51
银牌会员　发帖 464　积分 1,212
这个用VBS更简单吧 for i=7 to 1 step -1 s = s & date-i & vbcrlf next msgbox s

第3楼　Hanyeguxing	发表于 2009-09-03 11:26
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
Originally posted by jmz573515 at 2009-9-3 10:51: 这个用VBS更简单吧 for i=7 to 1 step -1 s = s & date-i & vbcrlf next msgbox s 是上一周的7天，不是7天前。不过这个确实不适合用批处理做：因为用批处理做首先必须先处理如08，09这样的数字，否则会出现进制运算错误然后计算上一周的周日的数字：如果数值为负数，即从上一月开始计算。。。上个月，也许就上到前一年了。。。然后得按7月大，8月小计算每个月的月长。。。然后再按是否是润年考虑2月的情况。。。麻烦着呢，想着都头大。。。 @echo off&setlocal enabledelayedexpansion echo 日期必须符合 2009-09-03 星期四这类的格式 for /f "tokens=1-3 delims=-:/ " %%i in ("%date%") do set Xing1=%%i%%j%%k :Hy if "!Xing1:~%Gu1%,1!" neq "" set /a Gu1+=1 &goto Hy if %Gu1% lss 8 (echo 日期格式错误 &pause &goto :eof) :Gx set /p Han1=要从周日作为一周开始,请键入7;要从周一开始,请键入1.然后按回车继续: if "%Han1%" equ "7" set /a Xing3=3&goto :Hygx if "%Han1%" equ "1" set /a Xing3=4&goto :Hygx echo 键入错误,请按任意键重新开始 pause>nul goto :Gx :Hygx set Han2=寒夜孤星日一二三四五六日 if %date:~8,1% equ 0 (set Ye1=%date:~9,1%) else set Ye1=%date:~8,2% if %date:~5,1% equ 0 (set Ye2=%date:~6,1%) else set Ye2=%date:~5,2% for /l %%i in (5,1,11) do if "!Han2:~%%i,1!" equ "%date:~13,1%" set /a Hanye1=%Ye1%-%%i+%Han1%-3 if %Hanye1% lss 1 (set /a Gu1=%Ye2%-1) else set Gu1=%Ye2% if %Gu1% lss 1 (set /a Gu1=12,Guxing2=%date:~0,4%-1) else set /a Guxing2=%date:~0,4% for %%a in (1:31 2:28 3:31 4:30 5:31 6:30 7:31 8:31 9:30 10:31 11:30 12:31) do for /f "tokens=1,2 delims=:" %%i in ("%%a") do if %Gu1% equ %%i set Xing1=%%j set /a Guxing1=%Guxing2%%%4 if %Gu1% equ 2 if %Guxing1% equ 0 set Xing1=29 if %Gu1% lss 10 set Gu1=0%Gu1%&echo.&echo 今天是:&echo %date%&echo.&echo 上周是: set /a Hanye2=%Hanye1%+6 for /l %%i in (%Hanye1%,1,%Hanye2%) do ( if %%i lss 1 (set /a Xing2=%Xing1%+%%i) else set /a Xing2=%%i set /a Xing3+=1 set Xing2=0!Xing2! if %%i lss 1 (call echo %Guxing2%-%Gu1%-!Xing2:~-2! 星期%%Han2:~!Xing3!,1%%) else call echo %date:~0,4%-%date:~5,2%-!Xing2:~-2! 星期%%Han2:~!Xing3!,1%% ) pause>nul [ Last edited by Hanyeguxing on 2009-9-6 at 12:41 ]

第4楼　keen	发表于 2009-09-04 01:40
初级用户　发帖 29　积分 58
呵呵，自己造的，大侠不要笑~~ dtmToday = Date() DayOfWeek = DatePart("w", dtmToday) i = DayOfWeek - 2 UpWeekLastDay = dtmToday - i For a = 1 to 7 UpWeekEveryDay = UpWeekLastDay - a & chr(13) & UpWeekEveryDay Next Wscript.Echo UpWeekEveryDay

第5楼　Hanyeguxing	发表于 2009-09-04 05:50
银牌会员　发帖 897　积分 1,039　来自在地狱中仰望天堂
这一点上，vbs就是比纯P好。。。

第6楼　slore	发表于 2009-09-04 12:58
铂金会员　发帖 2,478　积分 5,212
seem this is an easy way... startday = Date - (Weekday(Date) + 6) For i = 1 To 7 UpWeekEveryDay = UpWeekEveryDay & startday + i & vbCrLf Next Wscript.Echo UpWeekEveryDay