Solved

XP Date batch for previous day

Posted on 2008-10-03
6
1,139 Views
Last Modified: 2012-05-05
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.
0
Comment
Question by:nasteal
  • 3
  • 3
6 Comments
 
LVL 8

Expert Comment

by:devil_himself
ID: 22639814
do you want to subtract 1 day from the given input date or you want to find yesterdays date from the current system date.
0
 

Author Comment

by:nasteal
ID: 22640040
Well I want to create a file with the previous day's date.
0
 
LVL 8

Accepted Solution

by:
devil_himself earned 500 total points
ID: 22640183
0
How Do You Stack Up Against Your Peers?

With today’s modern enterprise so dependent on digital infrastructures, the impact of major incidents has increased dramatically. Grab the report now to gain insight into how your organization ranks against your peers and learn best-in-class strategies to resolve incidents.

 

Author Comment

by:nasteal
ID: 22642875
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.
0
 

Author Comment

by:nasteal
ID: 22642986
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

0
 
LVL 8

Assisted Solution

by:devil_himself
devil_himself earned 500 total points
ID: 22643002
change line 20

echo yesterday was %yy%%mm%%dd%

to

echo yesterday was %yy:~2%%mm%%dd%
0

Featured Post

Free Tool: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article was inspired by a question here at Experts Exchange (http://www.experts-exchange.com/Software/Photos_Graphics/Images_and_Photos/Q_28629170.html). The requirements stated in that question are (1) reduce the file size of a large number of…
How to remove superseded packages in windows w60 or w61 installation media (.wim) or online system to prevent unnecessary space. w60 means Windows Vista or Windows Server 2008. w61 means Windows 7 or Windows Server 2008 R2. There are various …
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

821 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question