asked on

XP Date batch for previous day

I currently have a batch file which gets the date and subtracts one day for file creation and directory creation but ran into the problem with the 1st day of month (1 - 1 = 0 of course) and its truncating the 01 of the day so instead of 03 for today's date it puts 3. Can someone help me with something that may work better, currently I'm using a set to grab portions of the date.

devil_himself

do you want to subtract 1 day from the given input date or you want to find yesterdays date from the current system date.

nasteal

ASKER

Well I want to create a file with the previous day's date.

ASKER CERTIFIED SOLUTION

devil_himself

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

nasteal

ASKER

What I have now is:

set YYMM=%date:~12,4%%date:~4,2%
set DD=%date:~7,2%
set /a PDD = %DD% - 1

Which gives me the problem described above.

nasteal

ASKER

That code will work however it sets

YYYYMMDD

I am unfamiliar with tokens in the for, but I need YYMMDD and not sure how to strip off the 20 portion, I tried at the last line of code "if %yy% LSS 100 set yy=20%yy%", however removing it the date still shows 2008. Thanks for pointing out that bit of code, I just need to figure out the portion to remove the "20"

@echo off 
setlocal 
call :get_date 
:: Strip leading zeros from possible octals and decrement the day 
set /a mm=1%mm%-100, dd=1%dd%-101 
if %dd% NEQ 0 goto :add_zeros 
:: Today is the 1st of the month - decrement the month 
:: and set leap year check (ignoring centuries) 
set /a mm-=1,ly=yy%%4 
:: If today is 1 Jan, set date to 31st Dec 
if %mm% EQU 0 (set /a dd=31, mm=12, yy-=1) else ( 
  rem Calculate days in last month (by Frank Westlake) 
  set /a "dd=5546>>mm&1,dd+=30" 
  rem Special case for February 
  if %mm% EQU 2 if %ly% EQU 0 (set dd=29) else (set dd=28) 
) 
:add_zeros 
if %dd% LSS 10 set dd=0%dd% 
if %mm% LSS 10 set mm=0%mm% 
echo yesterday was %yy%%mm%%dd% 
goto :eof 
 
 
:: ------------------------------------------------------------------ 
:Get_Date 
:: ------------------------------------------------------------------ 
:: Generic date parser 
:: Sets %dd% (01-31), %mm% (01-12) & %yy% (4 digit) 
 
 
if "%date%A" LSS "A" (set toks=1-3) else (set toks=2-4) 
for /f "skip=1 tokens=2-4 delims=(-)" %%a in ('echo:^|date') do ( 
  for /f "tokens=%toks% delims=.-/ " %%d in ('date/t') do ( 
    set %%a=%%d 
    set %%b=%%e 
    set %%c=%%f 
    set toks= 
  ) 
) 
if %yy% LSS 100 set yy=20%yy% 
goto :eof

Open in new window

SOLUTION

devil_himself

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial