Moderator: DosItHelp
Code: Select all
Would you like to set the date ahead 33 days?
A. Yes
B. ExitCode: Select all
Would you like to correctly reset the date?
A. Yes
B. Exit
serverdelux wrote:Hi, was wondering if someone had some batch code that would set the windows time/date ahead 33 days with consideration for other regions time format?
with consideration for other regions time format
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
...lolfoxidrive wrote:If this is just for a single PC then show us what echo %date% returns on your computer.
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
I wanted to attempt to obtain some code to get the personlization window to either not pop up or close after it pops up
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