date - CMD：残り数

Question

私はただ理解したい、

バッチファイル（CMD）は、どの日付から何日残っているかをどのように教えてくれますか... ???

そのような：

set setdate=24/07/2009
echo The date is now: %date%
echo Your set date is: %setdate%
echo You're %days% days left from %setdate%

ありがとう！

Answer 1

...オーケー、質問者は私にすべての作業を任せたいので、スクリプトは次のとおりです。

@echo off & setlocal
set now=%date%
set then=2010-08-01

:: split into year, month, day
set nY=%now:~0,4%&set nM=%now:~5,2%&set nD=%now:~8,2%
set tY=%then:~0,4%&set tM=%then:~5,2%&set tD=%then:~8,2%

:: remove leading zero
if "%nM:~,1%"=="0" set nM=%nM:~1%
if "%tM:~,1%"=="0" set tM=%tM:~1%
if "%nD:~,1%"=="0" set nD=%nD:~1%
if "%tD:~,1%"=="0" set tD=%tD:~1%

set mdays=31 28 31 30 31 30 31 31 30 31 30 31
set n=0
set t=0
call :days n %nM% %mdays%
call :days t %tM% %mdays%

set /a d=(t+tD)-(n+nD) + ((tY-nY) * 365)

goto :skip
:days
set var=%1
set M=%2
set i=0
shift & shift
:days_loop
set /a i=i+1    
if %i% geq %M% goto :EOF
set /a %var%=%var%+%1
shift & goto :days_loop
:skip

echo The difference between %now% and %then% is %d% days.

比較のために、Python での同じこと:

import datetime
now = datetime.datetime.now()
then = datetime.datetime(
    # Do NOT use leading zeros here.
    year = 2010,
    month = 8,
    day = 1,
)
diff = then - now

Answer 2

の単純な数学機能でそれを達成することは可能かもしれませんcmd.exeが、それはマシンの地域設定に依存します（DD / MM / YYYYの日付形式を使用すると、私のYYYY-MM-DDで壊れます） 、そしてそれは多くのコードを必要とします。

そのためには、Perl、PHP、Pythonなどのスクリプト言語を使用する方がはるかに簡単でしょう。

Answer 3

VBScript での簡単なソリューションを次に示します。

Dim dt:    dt    = DateValue(WScript.Arguments.Unnamed(0))
Dim dtNow: dtNow = Now
Dim diff:  diff  = DateDiff("d", dtNow, dt)

WScript.Echo "The date is now:  " & FormatDateTime(dtNow, vbShortDate)
WScript.Echo "Your set date is: " & FormatDateTime(dt, vbShortDate)
WScript.Echo "You're " & diff & " days left from " & FormatDateTime(dt, vbShortDate)

このスクリプトをバッチ ファイルから呼び出して、次のようにターゲットの日付を指定できます。

cscript filename.vbs 12/25/2009 //nologo