@echo off cls title %~nx0 echo *********************************** echo *** VBSをDummy出力して時刻計算を行う echo *** %~nx0 Ver1.0 2010.09.29 By ツールボックス echo *********************************** echo\ REM *** (Dummy出力名を指定) set temp=tmp.vbs if exist %temp% echo %temp% が既存のため処理を中止しました!& goto LABEL_EXIT REM *** 現在(日付・時刻) set now=%date% %time:~0,8% echo %now%(現在)を基準に、相対値・単位より当該日時を求める。 :LABEL_diff echo\ echo 相対値を指定して下さい(数値のみ有効) set /p diff=">" set Cdiff="%diff%" set Cdiff=%Cdiff:0=% set Cdiff=%Cdiff:1=% set Cdiff=%Cdiff:2=% set Cdiff=%Cdiff:3=% set Cdiff=%Cdiff:4=% set Cdiff=%Cdiff:5=% set Cdiff=%Cdiff:6=% set Cdiff=%Cdiff:7=% set Cdiff=%Cdiff:8=% set Cdiff=%Cdiff:9=% if NOT %Cdiff%=="" goto LABEL_diff :LABEL_unit echo\ echo 単位(年・月・日・時・分・秒)を指定して下さい echo yyyy/m/ d/ h/ n/ s set /p unit=">" if "%unit%"=="yyyy" set unitC=年 if "%unit%"=="m" set unitC=ヶ月 if "%unit%"=="d" set unitC=日 if "%unit%"=="h" set unitC=時間 if "%unit%"=="n" set unitC=分 if "%unit%"=="s" set unitC=秒 if "%unitC%"=="" goto LABEL_unit :LABEL_main echo\ echo %now%(現在)を基準として echo WScript.Echo DateAdd("%unit%",-%diff%,CDate("%now%")) > %temp% echo WScript.Echo DateAdd("%unit%",+%diff%,CDate("%now%")) >> %temp% REM 遅延環境変数の展開 setlocal enabledelayedexpansion REM VBS出力を取得 set /a count=0 for /f "tokens=*" %%A in ('cscript //nologo %temp%') do ( REM 前・後の文言設定 set /a count=!count!+1 set direC=前& if !count!==2 set direC=後 REM VBS出力の桁落ち対応 REM 「時」が一桁の場合に十の位をSPACEで埋めてくれないため set Answer=%%A set Answer=!Answer: 0:= 0:! set Answer=!Answer: 1:= 1:! set Answer=!Answer: 2:= 2:! set Answer=!Answer: 3:= 3:! set Answer=!Answer: 4:= 4:! set Answer=!Answer: 5:= 5:! set Answer=!Answer: 6:= 6:! set Answer=!Answer: 7:= 7:! set Answer=!Answer: 8:= 8:! set Answer=!Answer: 9:= 9:! echo !Answer! は %diff%%unitC%!direC! だよ。 ) del %temp% :LABEL_EXIT echo\ set /p dummy=< Hit Enter Key To Finish! > exit