标题: 求助，计算N天前的日期 [打印本页]
作者: a303862146 时间: 2008-4-23 03:43 标题: 求助，计算N天前的日期
@echo off
: 1
set /p d=输入向前推的天数
set nian=%date:~0,4%
set yue=%date:~5,2%
set ri=%date:~8,2%
for %%i in (1 3 5 7 8 10 12) do (if %yue% equ %%i if %ri% gtr 31 set ri=31)
for %%i in (4 6 9 11) do (if %yue% equ %%i if %ri% gtr 30 set ri=30)
for %%i in (2) do (if %yue% equ %%i if %ri% gtr 29 set ri=29)
if %ri% leq 0 set /a %yue%-1
if %yue% leq 0 set /a %nian%-1
set c=%nian%%yue%%ri%
set /a q=%c%-%d%
echo %q%
pause
goto 1
什么地方不对？能不能帮我改下。。。谢谢
───────────────── 版务记录 ─────────────────
执行：HAT
操作：[2008-10-19]在帖子标题中增加搜索关键字
说明：原标题"求助，帮忙改下这个关于日期的批处理"不利于论坛搜索
───────────────── 版务记录 ─────────────────
[ Last edited by HAT on 2008-10-19 at 23:50 ]
作者: qwd 时间: 2008-4-23 04:44
第一:由for己经设定日数为 29-30 三数其中之一,不会是其它数了.
第二:日月不可能小于或等于0
第三:年月日三个单位不统一,怎么能放在一起计算.
作者: bat-zw 时间: 2008-4-23 10:59 标题: 我以前写的，你参考吧：
计算任意日期：
@echo off
:begin
cls&set /p var=输入要计算的日期（格式为2000-01-01）:
if "%var:~4,1%%var:~7,1%"=="--" goto run
cls&echo 输入格式不正确！请返回正确输入。&ping /n 2 127.1>nul&goto begin
:run
set year=%var:~,4%
set /a month=100%var:~5,2%%%100,str=%year%%%4
if %month% gtr 2 (
if %str% equ 0 (
set /a number+=29
) else (
set /a number+=28
)
)
set /a month-=1
if %month% gtr 0 for /l %%i in (1,1,%month%) do call :lp %%i
set /a number+=100%var:~8,2%%%100
cls&echo %var%是%year%年的第%number%天&set number=0
pause>nul&goto begin
:lp
for %%i in (1,3,5,7,8,10) do if %%i equ %1 set /a number+=31
for %%i in (4,6,9,11) do if %%i equ %1 set /a number+=30作者: terse 时间: 2008-4-23 11:06
@echo off
set p1=%date:~0,4%
set p2=%date:~5,2%
set p3=%date:~8,2%
:tm
for /l %%a in (1,1,3) do for /f "delims=0 tokens=*" %%i in ("%p%%a%") do set p%%a=%%i
set/a pn="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)"
for /f "tokens=%p2%" %%i in ("0 31 59 90 120 151 181 212 243 273 304 334") do set/a n=%%i+p3
if %P2% gtr 2 set/a n+=pn
if %P2% equ 2 if %P3% equ 29 if %pn% equ 0 echo %p1%年不是闰年 所以%P2%月不会有%P3%日&pause&goto end
echo.
echo %p2%月%p3%日 是 %p1% 年的第 %n% 天&set p1=
echo.
echo. 输入日期查询任意天
echo.
:end
set/p p1=输入年(格式2008):
set/p p2=输入月(格式1:
set/p p3=输入日(格式1):
if "%p1%"=="" goto exit
goto tm
作者: terse 时间: 2008-4-23 11:09
@echo off&color 0b
:st
cls
SET/p TT=你想知道多少天前的日期?
if "%tt%" =="" echo 天数不能为空&pause&goto st
echo %tt%|findstr "^[1-9][0-9]*$">nul&&goto ys||echo 天数只能是1-9&pause&goto st
:ys
set p1=%date:~0,4%
set p2=%date:~5,2%
set p3=%date:~8,2%
setlocal enabledelayedexpansion
for /l %%a in (1,1,3) do (
for /f "delims=0 tokens=*" %%i in ("!p%%a!") do set p%%a=%%i
)
if %p3% gtr %TT% goto ppp
:nxt
set/a p2-=1
if %p2% equ 0 set/a p1-=1&&set p2=12
SET/a PN1=%p1%%%4
set PN2=28
if %PN1% EQU 0 set pN2=29
for /f "tokens=%p2%" %%i in ("31 %pN2% 31 30 31 30 31 31 30 31 30 31") do set/a p3=%p3%+%%i
if %p3% leq %tt% goto nxt
:ppp
set/a p3=%p3%-%tt%
set yy=%p1%
set m=%p2%
if %m% leq 2 (set/a yy=%yy%-1& set /a m+=12)
set /a w=(%p3%+2*%m%+3*(%m%+1)/5+%yy%+%yy%/4-%yy%/100+%yy%/400)%%7+1
set xq= 一二三四五六日
set xq=星期!xq:~%w%,1!
set p2=0%p2%
set p2=%p2:~-2,2%
set p3=0%p3%
set p3=%p3:~-2,2%
echo 你查询的是%p1%年%p2%月%p3%日 %xq%
pause