Thank you everyone for your answers
After summarizing and integrating everyone's methods, I finally made it. Please help take a look and make some changes
:: Calculate days by date and display the day of the week
:: Calculate date by days and display the day of the week
@echo off
:loop
set xuanz=
cls&echo.&echo Press t to use days query, press r or any key to use date query.
echo.&set /p xuanz= Please choose: :
if "%xuanz%"=="t" goto tgtian
cls&echo.&echo Current date is %date%&echo.&set toDate=
echo Please enter the date to query in the format (20070101)
echo.&echo If you want to query the date "after the current date", please enter the + sign first, such as: (+20080102)
echo.&set /p toDate= Please enter:
if not defined toDate exit
if %toDate:~0,1%==+ (
if %toDate:~1,4%-%toDate:~5,2%-%toDate:~7,2% leq %date:~0,10% (
cls&echo.&echo You entered %toDate%. If you want to query the date before the current date, please do not enter the + sign
echo.&echo Your input is incorrect, please press any key to re-enter.........
pause>nul&goto loop
)
)
if not %toDate:~0,1%==+ (
if %toDate:~0,4%-%toDate:~4,2%-%toDate:~6,2% geq %date:~0,10% (
cls&echo.&echo You entered %toDate%. If you want to query the date after the current date, please enter the + sign first
echo.&echo Your input is incorrect, please press any key to re-enter.........
pause>nul&goto loop
)
)
if "%toDate:~0,1%"=="+" goto yihou
>tmp.vbs echo wscript.echo datediff("d",#%date:~0,10%#,#%toDate:~0,4%-%toDate:~4,2%-%toDate:~6,2%#)
goto yiqian
:yihou
>tmp.vbs echo wscript.echo datediff("d",#%toDate:~1,4%-%toDate:~5,2%-%toDate:~7,2%#,#%date:~0,10%#)
for /f %%i in ('"cscript //nologo tmp.vbs"') do call set ook=%toDate:~1,4%-%toDate:~5,2%-%toDate:~7,2% is %date% different by %%i days&set week=%%i
goto del_
:yiqian
for /f %%i in ('"cscript //nologo tmp.vbs"') do call set ook=%toDate:~0,4%-%toDate:~4,2%-%toDate:~6,2% is %date% different by %%i days&set week=%%i
:del_
del tmp.vbs
goto xinqi
::-----------------------------------------------------------------------------------------
::Get date by days
:tgtian
cls&echo.&echo Current date is %date%&echo.
echo If you want to query the days "after the current date", please enter the + sign first, such as: +10 means the date 10 days later:
echo.&set /p n= Please enter:
if "%n:~0,1%"=="+" set n=-%n%
>%tmp%\tmp.vbs echo wscript.echo dateadd("d",-%n%,date)
for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo %tmp%\tmp.vbs') do (
set y=%%i
set m=%%j
set d=%%k
)
if %m% LSS 10 set m=0%m%
if %d% LSS 10 set d=0%d%
set toDate=%y%%m%%d%
::-----------------------------------------------------------------------------------------
::Query day of the week
:xinqi
for %%n in (week1-日 week2-一 week3-二 week4-三 week5-四 week6-五 week7-六) do set Tmp2=%%n&&call set %%Tmp2:-==%%
set week=+0
if "%toDate:~0,1%"=="+" goto yihou2
>tmp.vbs echo wscript.echo Weekday(CDate("%toDate:~0,4%-%toDate:~4,2%-%toDate:~6,2%")%week%)
for /f "tokens=* delims=-" %%i in ('"cscript //nologo tmp.vbs"') do call set ok=Week %%week%%i%%
goto yiqian2
:yihou2
>tmp.vbs echo wscript.echo Weekday(CDate("%toDate:~1,4%-%toDate:~5,2%-%toDate:~7,2%")%week%)
for /f "tokens=* delims=-" %%i in ('"cscript //nologo tmp.vbs"') do call set ok=Week %%week%%i%%
:yiqian2
del tmp.vbs
if "%xuanz%"=="t" goto xst
cls&echo.&echo Today is %date%
echo.
if "%toDate:~0,1%"=="+" (
echo It will take %ook:~18% to reach the %ook:~0,10% %ok% you entered
pause>nul&goto loop
)
echo The %ook:~0,10% %ok% you entered is %ook:~11,5% %ook:~18%
echo.&pause>nul&goto loop
:xst
cls&echo.&echo Today is %date%
echo.
if "%n:~0,1%"=="-" (
echo The date %n:~2% days later is %toDate:~0,4%-%toDate:~4,2%-%toDate:~6,2% %ok%
pause>nul&goto loop
)
echo The date %n% days ago is %toDate:~0,4%-%toDate:~4,2%-%toDate:~6,2% %ok%
pause>nul&goto loop
[ Last edited by 26933062 on 2007-2-10 at 06:07 AM ]
