home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol12n03.zip / GETODAY.BAT < prev    next >
DOS Batch File  |  1992-07-28  |  778b  |  30 lines
  1. @ECHO OFF
  2. REM GETODAY.BAT - gets today's date into the e-var Today
  3. REM   in the format YYMMDD.
  4. ECHO. | DATE > DATETMP$.BAT
  5. ECHO SET Today=%%4>CURRENT.BAT
  6. CALL DATETMP$
  7. DEL DATETMP$.BAT
  8. DEL CURRENT.BAT
  9. SET count=
  10.  
  11. REM Loop1 changes Today to -YYYYMMDD
  12. :Loop1
  13. SET old=%Today%
  14. FOR %%v IN (/%Today%) DO SET Today=%%v
  15. FOR %%v IN (/%old%) DO IF '%%v'=='-' GOTO skip
  16. FOR %%v IN (/%old%) DO IF '%%v%Today%'=='%old%' SET Today=%Today%%%v
  17. :skip
  18. REM ECHO The value of Today is "%Today%"
  19. SET count=%count%x
  20. IF NOT '%count%'=='xxxxx' GOTO Loop1
  21.  
  22. REM Loop2 reduces Today to YYMMDD
  23. :Loop2
  24. FOR %%v IN (/%Today%) DO SET Today=%%v
  25. REM ECHO The value of Today is "%Today%"
  26. SET count=%count%x
  27. IF NOT '%count%'=='xxxxxxxx' GOTO Loop2
  28.  
  29. FOR %%v IN (old count) DO SET %%v=
  30.