DosTips.com

Code: Select all

@echo off
call :getdate today 0
set end=%day%
call :getdate today -6
set start=%day%

echo Start "" "D:\Sample.exe" -Start Date %start% -End Date %end%
pause

goto :EOF
:getdate
:: Date foward & backward
@echo off
:: from code by Phil Robyn
setlocal
if [%1]==[] (
  echo to get todays date use
  echo call "%~n0" today 0
  echo.
  echo to get yesterdays date use
  echo call "%~n0" today -1
  echo.
  echo to get the date 25 days ago:
  echo call "%~n0" today -25
  echo.
  echo to get the date 1250 days in the future
  echo call "%~n0" today +1250
  goto :EOF)

set date1=%1
set qty=%2
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%/%result:~4,2%/%result:~6,2%
:: echo %%day%% is set to "%day%" (without the quotes)

Code: Select all

@echo off
setlocal EnableDelayedExpansion

rem Initialize the number of days per month
set month=0
for %%a in (31 28 31 30 31 30 31 31 30 31 30 31) do (
   set /A month+=1
   set DaysPerMonth[!month!]=%%a
)

rem If the auxiliary file does not exist
if not exist nextDates.txt (
   rem Set dates from 2013/01/01 up to today
   set StartDate=2013/01/01
   for /F "tokens=1-3 delims=/" %%a in ("%date%") do (
      rem Assumed date format: MM/DD/YYYY. Interchange %%a and %%b for DD/MM/YYYY
      set EndDate=%%c/%%a/%%b
   )
) else (
   rem Read next dates from the auxiliary file
   < nextDates.txt (
   set /P StartDate=
   set /P EndDate=
   )
)

rem Execute the desired process
Start D:\Sample.exe -Start Date %StartDate% -End Date %EndDate%

rem Advance the dates 7 days
set StartDate=%EndDate%
call :DateAdd EndDate= %StartDate% +7

rem And store they in the auxiliary file
echo %StartDate%> nextDates.txt
echo %EndDate%>>  nextDates.txt
goto :EOF


:DateAdd result= YYYY/MM/DD +days
for /F "tokens=1-3 delims=/" %%a in ("%2") do (
   set /A YYYY=%%a, MM=1%%b %% 100, DD=1%%c %% 100 %3
)
if %DD% gtr !DaysPerMonth[%MM%]! (
   set /A DD-=DaysPerMonth[%MM%], MM+=1
   if !MM! gtr 12 (
      set /A MM=1, YYYY+=1
   )
)
if %DD% lss 10 set DD=0%DD%
if %MM% lss 10 set MM=0%MM%
set %1=%YYYY%/%MM%/%DD%
exit /B