Moderator: DosItHelp
Code: Select all
Start D:\folder\Utilities\XYZExtractCmdLine_x64.exe -d "C:\folder" -u C:\folder -a ABC -l ; -s (System Date/Current Date – 180 Days) -e (System Date/Current Date – 90 Days) -k(enabled) –r(enabled)Code: Select all
@echo off
echo "Your program is running"
call date+-.bat today 0
set today=%day%
call date+-.bat today -90
set today90=%day%
call date+-.bat today -180
set today180=%day%
echo "%today90%" "%today180%"
pause
Start D:\folder\Utilities\XYZExtractCmdLine_x64.exe -d "C:\folder" -u C:\folder -a ABC -l ; -s %today180% -e %today90 -k(enabled) –r(enabled)
Exit
Code: Select all
:: Date+-.bat
@echo off
if "%~2"=="" (
echo to get todays date use call "%~n0" today 0
echo to get yesterdays date use call "%~n0" today -1
echo to get 25 days before 19441213 call "%~n0" 1944/12/13 -25
echo to get 1250 days in the future call "%~n0" today 1250
echo.
echo Add a third parameter if you want a separator in the date string
echo EG: to use - as in YYYY-MM-DD for today's date
echo call "%~n0" today 0 -
echo.
pause
goto :EOF)
set date1=%1
set qty=%2
set separator=%~3
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" WScript.Echo year(s)^&_
echo>>"%temp%\%~n0.vbs" right(100+month(s),2)^&_
echo>>"%temp%\%~n0.vbs" right(100+day(s),2)
for /f %%a in ('cscript //nologo "%temp%\%~n0.vbs"') do set result=%%a
del "%temp%\%~n0.vbs"
endlocal& set day=%result:~0,4%%separator%%result:~4,2%%separator%%result:~6,2%
echo %%day%% is set to "%day%" (without the quotes)
pauseCode: Select all
C:\>main_one
"Your program is running"
%day% is set to "20130710" (without the quotes)
Press any key to continue . . .
%day% is set to "20130411" (without the quotes)
Press any key to continue . . .
%day% is set to "20130111" (without the quotes)
Press any key to continue . . .
Todays date is "20130710"
90 days ago the date was "20130411" 180 days ago the date was "20130111"
Press any key to continue . . .Ocalabob wrote:@foxidrive
I tested your scripts; modified the echo lines for my use. Results are below.
Todays date is "20130710"
90 days ago the date was "20130411" 180 days ago the date was "20130111"
I think I'll tuck those scripts away for future use.
Code: Select all
@echo off
setlocal
call :DateToJDN %date% jdn=
set /A minus90=jdn-90, minus180=jdn-180
call :JDNtoDate %minus90% minus90=
call :JDNtoDate %minus180% minus180=
echo Today minus 90 days: %minus90%, minus 180 days: %minus180%
goto :EOF
:DateToJDN mm/dd/yyyy jdn=
setlocal
for /F "tokens=1-3 delims=/" %%a in ("%1") do (
set /A mm=1%%a-100, dd=1%%b-100, yyyy=%%c
)
set /A a=(mm-14)/12, jdn=(1461*(yyyy+4800+a))/4+(367*(mm-2-12*a))/12-(3*((yyyy+4900+a)/100))/4+dd-32075
endlocal & set %2=%jdn%
exit /B
:JDNtoDate jdn yyyymmdd=
setlocal
set /A l=%1+68569,n=(4*l)/146097,l=l-(146097*n+3)/4,i=(4000*(l+1))/1461001,l=l-(1461*i)/4+31,j=(80*l)/2447
set /A dd=l-(2447*j)/80,l=j/11,mm=j+2-(12*l),yyyy=100*(n-49)+i+l
if %dd% lss 10 set dd=0%dd%
if %mm% lss 10 set mm=0%mm%
endlocal & set %2=%yyyy%%mm%%dd%
exit /B
Aacini wrote:This solution assume that ECHO %DATE% show the date in MM/DD/YYYY format and that the past date is required in YYYYMMDD format, but these formats may be easily modified if needed.
Antonio
Code: Select all
C:\>echo %date%
Fri 07/12/2013
C:\>date_it.bat
Invalid number. Numeric constants are either decimal (17),
hexadecimal (0x11), or octal (021).
Today minus 90 days: -47130826, minus 180 days: -47130528
C:\>Code: Select all
for /F "tokens=1-3 delims=/" %%a in ("%1") do (
Code: Select all
for /F "tokens=2-4 delims=/ " %%a in ("%1") do (
Code: Select all
C:\>date_it.bat
Today minus 90 days: -47130826, minus 180 days: -47130528
C:\>I still have a date format problem.
I don't remember where we already discussed that theme. Basically i see two solutions.Code: Select all
@echo off &setlocal
echo Read registry values
echo iDate (order 0=MDY, 1=DMY, 2=YMD) and sDate (Separator)
for /f "tokens=1,2*" %%a in ('reg query "HKCU\Control Panel\International"^|findstr /i "\<[is]Date\>"') do set "%%a=%%c"
echo Found order: '%iDate%' separator: '%sDate%'
echo(
echo Current date: %date%
echo(
echo Strings
for /f "tokens=1-3 delims=%sDate%" %%a in ("%date:* =%") do (
if %iDate%==0 (set mm=%%a&set dd=%%b&set yy=%%c) else (
if %iDate%==1 (set dd=%%a&set mm=%%b&set yy=%%c) else (
if %iDate%==2 (set yy=%%a&set mm=%%b&set dd=%%c)
)))
REM Workaround for 2 digit year
if 1%yy% LSS 200 if 1%yy% LSS 170 (set yy=20%yy%) else (set yy=19%yy%)
echo %yy% %mm% %dd%
echo(
echo Numbers
for /f "tokens=1-3 delims=%sDate%" %%a in ("%date:* =%") do (
if %iDate%==0 (set /a m=100%%a%%100,d=100%%b%%100,y=10000%%c%%10000) else (
if %iDate%==1 (set /a d=100%%a%%100,m=100%%b%%100,y=10000%%c%%10000) else (
if %iDate%==2 (set /a y=10000%%a%%10000,m=100%%b%%100,d=100%%c%%100)
)))
REM Workaround for 2 digit year
if %y% LSS 100 if %y% LSS 70 (set /a y=2000+y) else (set y=1900+y)
echo %y% %m% %d%
echo(
echo ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo WMIC makes life easier
for /f "skip=1 delims=." %%d in ('WMIC OS Get LocalDateTime^|findstr .') do set "timestamp=%%d"
echo %timestamp%
echo(
pause
Code: Select all
@echo off
cls
setlocal
call ::initDateFormats
call :parseDateStringToMMDDYYYY MM DD YYYY
echo SET_DATE_FORMAT = "%SET_DATE_FORMAT%"
echo DATE_FORMAT = "%DATE_FORMAT%"
echo %MM%/%DD%/%YYYY%
endlocal
goto:eof
:initDateFormats
::
setlocal enableDelayedExpansion
:: save current date
set "CURRENT_DATE=%DATE%"
:: build SET_DATE_FORMAT losing actual pc date
(set "NOT=" & for /f "tokens=*" %%a in ('date 90-90-90') do set "NOT=%%a" )<nul
(set "YY_1=" & for /f "tokens=*" %%a in ('date 90-01-01') do set "YY_1=%%a")<nul
(set "YY_2=" & for /f "tokens=*" %%a in ('date 01-90-01') do set "YY_2=%%a")<nul
(set "DD_1=" & for /f "tokens=*" %%a in ('date 20-01-01') do set "DD_1=%%a")<nul
(set "DD_2=" & for /f "tokens=*" %%a in ('date 01-20-01') do set "DD_2=%%a")<nul
if not "%YY_1%" == "%NOT%" (if "%DD_2%" == "%NOT%" ( set "SET_DATE_FORMAT=YY-MM-DD" ) else ( set "SET_DATE_FORMAT=YY-DD-MM" )
) else if not "%YY_2%" == "%NOT%" (if "%DD_1%" == "%NOT%" ( set "SET_DATE_FORMAT=MM-YY-DD" ) else ( set "SET_DATE_FORMAT=DD-YY-MM" )
) else (if "%DD_1%" == "%NOT%" ( set "SET_DATE_FORMAT=MM-DD-YY" ) else ( set "SET_DATE_FORMAT=DD-MM-YY" )
)
:: build DATE_FORMAT losing actual date
call ::setDateMMDDYY 02 01 03
call :dateTokenize TOKEN DATE
set "DATE_FORMAT=%DATE%" & for %%a in (%TOKEN%) do (
if "%%a" == "01" ( set "DATE_FORMAT=!DATE_FORMAT:01=DD!"
) else if "%%a" == "1" ( set "DATE_FORMAT=!DATE_FORMAT:1=D!"
) else if "%%a" == "02" ( set "DATE_FORMAT=!DATE_FORMAT:02=MM!"
) else if "%%a" == "2" ( set "DATE_FORMAT=!DATE_FORMAT:2=M!"
) else if "%%a" == "2003" ( set "DATE_FORMAT=!DATE_FORMAT:2003=YYYY!"
) else if "%%a" == "03" ( set "DATE_FORMAT=!DATE_FORMAT:03=YY!"
) else if "%%a" == "3" ( set "DATE_FORMAT=!DATE_FORMAT:3=Y!"
) else ( set "DATE_FORMAT=!DATE_FORMAT:%%a=DDDD!"
)
set /a "INDEX+=1"
)
:: restore current date
call :setDateString CURRENT_DATE
:: save DATE_FORMAT and SET_DATE_FORMAT
endlocal & set "DATE_FORMAT=%DATE_FORMAT%" & set "SET_DATE_FORMAT=%SET_DATE_FORMAT%"
goto:eof
:dateTokenize
:: %1 variable returning the tokens
:: %2 variable containing date string representation
setlocal enableDelayedExpansion
set "TOKEN=!%2!"
set "TOKEN=%TOKEN:,= %"
set "TOKEN=%TOKEN:-= %"
set "TOKEN=%TOKEN:.= %"
set "TOKEN=%TOKEN:/= %"
set "TOKEN=%TOKEN::= %"
set "TOKEN=%TOKEN:;= %"
set "TOKEN=%TOKEN:\= %"
endlocal & set "%1=%TOKEN%"
goto :eof
:setDateMMDDYY
:: SET_DATE_FORMAT must exist and be valid
:: %1 day to set
:: %2 month to set
:: %3 year to set
setlocal enableDelayedExpansion
set "DATE_STRING=%SET_DATE_FORMAT%"
set "DATE_STRING=!DATE_STRING:MM=%1!"
set "DATE_STRING=!DATE_STRING:DD=%2!"
set "DATE_STRING=!DATE_STRING:YY=%3!"
date %DATE_STRING%
endlocal
goto :eof
:setDateString
:: DATE_FORMAT and SET_DATE_FORMAT must exist and be valid
:: %1 variable storing the date string to set
setlocal enableDelayedExpansion
call :parseDateStringToMMDDYYYY MM DD YYYY %1
call :setDateMMDDYY %MM% %DD% %YYYY:~2,2%
endlocal
goto :eof
:parseDateStringToMMDDYYYY
:: DATE_FORMAT and SET_DATE_FORMAT must exist and be valid
:: %1 variable name for returning the month
:: %2 variable name for returning the day
:: %3 variable name for returning the year
:: %4 variable name containing the Date
setlocal enableDelayedExpansion
set "DATE_STRING=%4"
if not defined DATE_STRING set "DATE_STRING=DATE"
:: storing the indices of day, month and year in D, M, and Y
call :dateTokenize TOKEN DATE_FORMAT
set "Y=" & set "M=" & set "D=" & set "INDEX=0" & for %%a in (%TOKEN%) do (
if "%%a" == "DD" ( set "D=!INDEX!"
) else if "%%a" == "D" ( set "D=!INDEX!"
) else if "%%a" == "MM" ( set "M=!INDEX!"
) else if "%%a" == "M" ( set "M=!INDEX!"
) else if "%%a" == "YYYY" ( set "Y=!INDEX!"
) else if "%%a" == "YY" ( set "Y=!INDEX!"
) else if "%%a" == "Y" ( set "Y=!INDEX!"
)
set /a "INDEX+=1"
)
:: storing the values of day, month and year in D, M, and Y
call :dateTokenize TOKEN %DATE_STRING%
set "INDEX=0" & for %%a in (%TOKEN%) do (
if "!INDEX!" == "%D%" ( SET "D=%%a"
) else if "!INDEX!" == "%M%" ( SET "M=%%a"
) else if "!INDEX!" == "%Y%" ( SET "Y=%%a"
)
set /a "INDEX+=1"
)
if "%D:~1,1%" == "" set "D=0%D%"
if "%M:~1,1%" == "" set "M=0%M%"
if "%Y:~1,1%" == "" set "Y=200%Y%"
:: 1930 to 2029 is the default setting, maybe changed: then you have to change this, too.
if %Y% LSS 30 set "Y=20%Y%"
if %Y% LSS 100 set "Y=19%Y%"
endlocal & set "%1=%M%" & set "%2=%D%" & set "%3=%Y%"
goto:eof
