中国DOS联盟

程序的目的就是输入一个日期，然后算出这个日期所在的那一周的周日是几号。
我大概的写了想，不过好像发现问题是出现后面的日期的加减上。大虾帮我看下是不是哪边要改下，或者是有错误，谢谢！
代码：
@echo off
setlocal enabledelayedexpansion
cls
:main
echo. 请输入需要计算的日期
echo. 格式如：08-07-17表示08年7月17日
set /p input= 请输入：
::获取输入数据，并分离出日期，月，年
set year1=%input:~0,2%
::将年前面加"20"字符为了能让星期计算公式正常计算
set year=20%year1%
set month=%input:~3,2%
set day=%input:~6,2%
::获得当天的日期
set tdy=%date:~4,12%
::计算输入的日期是星期几
set /a w=(day+2*month+3*(month+1)/5+year+year/4-year/100+year/400+1)%%7
::计算输入的日期所在周的周末的日期
set /a cw=7-w
::将输入的数据整理成日期格式
set inputday=%year%-%month%-%day%
::计算输入日期所在周的周日的日期
set /a outputday=inputday+cw
echo. 您输入的日期所在周的周日是：%outputday%
pause
goto main

set命令用来计算的话，应该这样写吧：
set a=100
set b=200
set /a c=%a%+%b%

其实计算日期这个问题比较复杂，这是我以前写的，楼主参考下吧：

@echo off&color 9f&mode con lines=10

title 星期查询器

:set

cls

echo.&echo.&echo.

set var=

set /p var=    请输入要查询的日期（格式为2000年08月08日）:

if "%var:~4,1%%var:~7,1%%var:~10,1%"=="年月日" goto year

cls

echo.&echo.&echo.

echo     输入格式不正确！请返回正确输入。&ping /n 3 127.1>nul&goto set

:year

set year=%var:~,4%

set /a str=(%year%-1904)/4&set /a str1=%year%-1904

for /l %%i in (0,1,3) do (

    set a=%%i

    setlocal enabledelayedexpansion

    set /a str2=4*!str!+!a!

    if !str1! equ !str2! goto month

)

:month

endlocal

if %a% equ 0 (set /a number1=%str%*1461) else (set /a number1=%str%*1461+%a%*365+1)

if %var:~5,1% equ 0 (set month=%var:~6,1%) else (set month=%var:~5,2%)

set /a month=%month%-1

if %month% equ 0 set /a number2=0&goto day

if %month% equ 1 set /a number2=31&goto day

if %month% equ 2 set /a number2=31+28

if %month% equ 3 set /a number2=31*2+28

if %month% equ 4 set /a number2=31*2+30+28

if %month% equ 5 set /a number2=31*3+30+28

if %month% equ 6 set /a number2=31*3+30*2+28

if %month% equ 7 set /a number2=31*4+30*2+28

if %month% equ 8 set /a number2=31*5+30*2+28

if %month% equ 9 set /a number2=31*5+30*3+28

if %month% equ 10 set /a number2=31*6+30*3+28

if %month% equ 11 set /a number2=31*6+30*4+28

if %a% equ 0 set /a number2=%number2%+1

:day

if %var:~8,1% equ 0 (set day=%var:~9,1%) else (set day=%var:~8,2%)

set /a number3=%day%-1

:week

set /a number=%number1%+%number2%+%number3%

set /a week=%number%/7

for /l %%i in (0,1,6) do (

    set b=%%i

    setlocal enabledelayedexpansion

    set /a str=!week!*7+!b!

    if !str! equ !number! goto echo

)

:echo

endlocal

set code=五六天一二三四

set /a move=%b%

cls

echo.&echo.&echo.

call,echo     %var%那天是星期%%code:~%move%,1%%

pause>nul

cls 

echo.&echo.&echo.

echo      本次查询结束，按键继续，结束请直接关闭窗口。

pause>nul&goto set

纯批的可读性、可维护性相对较差，如果允许调用vbs的话，就简单多了：）

是想用vbs写函数，格式为：
call *.vbs [输入日期] [计算的天数] [输出日期]

碍于vbs压根就不懂，能不能帮忙找个合适的函数。

msgbox #2008/7/19#+2

就这么一行？也得弄个几行吧。
我是要得到一个返回数然后参与下面的计算的。

大虾们看看，能不能就这个BAT更改下，作为函数调用。

@echo off
title 日期查询
color 1f
if [%1]==[] call :Help
call :Date2Day %1 days
set/a days=%days%+%2
call :Day2Date %days% date
echo.
echo -----------结果---------------
echo.
echo 你查询的日期为：%date%
echo ------------------------------
cmd /k

:Date2Day
setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
set yy=%%a & set mm=%%b & set dd=%%c
)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %2=%j%&goto :EOF

:Day2Date
setlocal ENABLEEXTENSIONS
set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF

:Help
cls
echo ________________________________________________
echo 使用方法：%~nx0 [日期] [天数]
echo.
echo 日期格式：2007-03-31
echo 天数格式：+/-查询的天数
echo 示例：%~nx0 2007-03-31 3 就是查询3天后的日期
echo ________________________________________________
echo.
cmd /k

返回数你只能用for得到……或者再次调用bat用参数的方式……



如果纯VBS完成就简单了

NewDate=#2008/7/19#+2

NewDate可以拉去计算……

重写一个 有帮助不？

@echo off

set/p y=请输入:(格式2008-1-11)

for /f "tokens=1-3 delims=-" %%i in ("%y%") do set y=%%i&set m=%%j&set d=%%k

   if %m% leq 2 set/a y-=1,m+=12

   set/a t=(d+2*m+3*(m+1)/5+y+y/4-y/100+y/400+1)%%7

   if %t% neq 0 set/a t=7-t

:lp

if %m% gtr 12 set/a y+=1,m-=12

set/a PN2="!(y%%4) & !(!(y%%100)) | !(y%%400)",PN2=28+PN2

for /f "tokens=%m%" %%i in ("31 %pN2% 31 30 31 30 31 31 30 31 30 31") do set/a d+=t&set pt=%%i

    if %d% leq %pt% goto p

    set/a d-=pt

    set t=0&&set/a m+=1&&goto lp

:p

echo %y%年%m%月%d%日 星期日

pause

提个思路，让系统帮你算。。涉及月份变更的话还得改改，懒得动了

1. @echo off
   
2. set ww1=%date%
   
3. echo 请输入要查询的日期（例：2004-07-11)
   
4. set /p tt=
   
5. date %tt%
   
6. echo %date%
   
7. date %ww1:~0,-4%
   
8. ping -n 2 127.1 >nul 2>nul
   

逐月鹰发表于： 2008-07-19 21:20