DosTips.com

Code: Select all

Would you like to set the date ahead 33 days?

A. Yes
B. Exit

Code: Select all

Would you like to correctly reset the date?

A. Yes
B. Exit

Code: Select all

@echo off
cls
setlocal

call ::initDateFormats

echo SET_DATE_FORMAT = "%SET_DATE_FORMAT%"
echo DATE_FORMAT     = "%DATE_FORMAT%"

:: simulated result of the +33 days date computing, function
set /A "DD=01"
set /A "MM=02"
set /A "YY=03"

setlocal enableDelayedExpansion
::get formatted date
set "FORMATTED_DATE=%SET_DATE_FORMAT%"
set "FORMATTED_DATE=!FORMATTED_DATE:DD=%DD%!"
set "FORMATTED_DATE=!FORMATTED_DATE:MM=%MM%!"
set "FORMATTED_DATE=!FORMATTED_DATE:YY=%YY%!"
endlocal & set "FORMATTED_DATE=%FORMATTED_DATE%"

:: set new date
date %FORMATTED_DATE%

endlocal
goto:eof


:initDateFormats
::   rest of this procedures code

Code: Select all

@echo off &setlocal EnableDelayedExpansion
for /f "tokens=1,2*" %%a in ('reg query "HKCU\Control Panel\International"^|findstr /i "\<[is]Date\>"') do set "%%a=%%c"

echo Would you like to set the date ahead 33 days?
:loop1
echo(
echo A. Yes
echo B. Exit
set "c=" &set /p "c="
if /i "!c!"=="B" exit /b
if /i "!c!" neq "A" goto loop1

call :DaysAdd 33 newDate
date %newDate%

echo(
echo New date: %date%
echo(

echo Would you like to correctly reset the date?
:loop2
echo(
echo A. Yes
echo B. Exit
set "c=" &set /p "c="
if /i "!c!"=="B" exit /b
if /i "!c!" neq "A" goto loop2

call :DaysAdd -33 newDate
date %newDate%

goto :eof


:DaysAdd ByVal_DeltaIn  ByRef_NewDateOut
setlocal
for /f "tokens=1-3 delims=%sDate%" %%a in ("%date:* =%") do (
  if %iDate%==0 (set /a Month=100%%a%%100,Day=100%%b%%100,Year=10000%%c%%10000) else (
  if %iDate%==1 (set /a Day=100%%a%%100,Month=100%%b%%100,Year=10000%%c%%10000) else (
  if %iDate%==2 (set /a Year=10000%%a%%10000,Month=100%%b%%100,Day=100%%c%%100)
)))
set /a "a = 14 - Month, a /= 12, b = Year + 4800 - a, c = Month + 12 * a - 3, d = 153 * c + 2"
set /a "d = d / 5 + Day + b * 365 + b / 4 - b / 100 + b / 400 - 1 + %~1"
set /a "e = 4 * d + 3, e /= 146097, f = -e * 146097, f /= 4, f += d"
set /a "g = 4 * f + 3, g /= 1461, h = -1461 * g, h /= 4, h += f, i = 5 * h + 2, i /= 153, Day = 153 * i + 2, Day /= 5"
set /a "Day = -Day + h + 1, Month = -i / 10, Month *= 12, Month += i + 3, Year = e * 100 + g - 4800 + i / 10"
set /a "Month = 10%Month%, Day = 10%Day%"
if %iDate%==0 (set "new=%Month:~-2%%sDate%%Day:~-2%%sDate%%Year%") else (
if %iDate%==1 (set "new=%Day:~-2%%sDate%%Month:~-2%%sDate%%Year%") else (
if %iDate%==2 (set "new=%Year%%sDate%%Month:~-2%%sDate%%Day:~-2%")))
endlocal &set "%~2=%new%" &goto:eof

Code: Select all

@echo off
set now=%date:~4%
set date1=today
set qty=33
set separator=/
if /i "%date1%" EQU "TODAY" (set date1=now) else (set date1="%date1%")
echo >"%temp%\%~n0.vbs" s=DateAdd("d",%qty%,%date1%)
echo>>"%temp%\%~n0.vbs" d=weekday(s)
echo>>"%temp%\%~n0.vbs" WScript.Echo year(s)^&_
echo>>"%temp%\%~n0.vbs"         right(100+month(s),2)^&_
echo>>"%temp%\%~n0.vbs"         right(100+day(s),2)^&_
echo>>"%temp%\%~n0.vbs"         d
for /f %%a in ('cscript //nologo "%temp%\%~n0.vbs"') do set result=%%a
del "%temp%\%~n0.vbs"
endlocal& (
set "YY=%result:~0,4%"
set "MM=%result:~4,2%"
set "DD=%result:~6,2%"
set "daynum=%result:~-1%"
)
set "day=%MM%%separator%%DD%%separator%%YY%"

date %day%
echo The date is 33 days into the future - %date%
pause
date %now%
echo The date is set back to %date%
pause