home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   alt.msdos.batch.nt      Fun with Windows NT batch files      68,980 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 67,514 of 68,980   
   adam_l@poczta.onet.pl to All   
   Re: Batch Script Yesterday date file for   
   21 Mar 20 11:30:28   
   
   Hi!   
   Try:   
      
      
   REM  ******* Begin ******   
   @ECHO OFF   
      
   REM Get short dormat date from registry   
   REM Short date format MUST include strings 'dd' , 'MM' and 'yyyy' in any order   
   !!!   
   FOR /F "tokens=2,*" %%a in ('reg query "HKCU\Control Panel\International" /v   
   sShortDate') DO SET DATE_FORMAT=%%b   
      
   ECHO Short date format = %DATE_FORMAT%   ( %DATE% )   
      
   CALL :GET_DAY   
   CALL :GET_MONTH   
   CALL :GET_YEAR   
      
   SET MYDATE=%YEAR%%MONTH%%DAY%   
      
   ECHO My date in YYYYMMDD = %MYDATE%   
   GOTO :EOF   
      
      
   REM Functions   
   :GET_DAY   
   SET DF=%DATE_FORMAT%   
   SET D=%DATE%   
   :LOOP_DD   
   IF "%DF:~0,2%"=="dd" (   
     SET DAY=%D:~0,2%   
     GOTO :EOF   
     )   
   SET DF=%DF:~1%   
   SET D=%D:~1%   
   IF "%DF%"=="" SET DAY=ERROR & GOTO :EOF   
   GOTO LOOP_DD   
      
   :GET_MONTH   
   SET DF=%DATE_FORMAT%   
   SET D=%DATE%   
   :LOOP_MONTH   
   IF "%DF:~0,2%"=="MM" (   
     SET MONTH=%D:~0,2%   
     GOTO :EOF   
     )   
   SET DF=%DF:~1%   
   SET D=%D:~1%   
   IF "%DF%"=="" SET MONTH=ERROR & GOTO :EOF   
   GOTO LOOP_MONTH   
      
   :GET_YEAR   
   SET DF=%DATE_FORMAT%   
   SET D=%DATE%   
   :LOOP_YEAR   
   IF "%DF:~0,4%"=="yyyy" (   
     SET YEAR=%D:~0,4%   
     GOTO :EOF   
     )   
   SET DF=%DF:~1%   
   SET D=%D:~1%   
   IF "%DF%"=="" SET YEAR=ERROR & GOTO :EOF   
   GOTO LOOP_YEAR   
      
   REM **** End ******   
      
      
   Adam   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca