VBScript/mjd - Sample is best!

実行環境	Microsoft Windows XP Home Edition (SP3)

デフォルトではWScriptで実行される。

cscript //H:CScript

でデフォルトがCScriptに設定され

mjd

だけで実行されるようになる。

mjd.vbs

Option Explicit
Dim date, y, m, d, mjd
date = #2012/01/01#
y = Year(date)
m = Month(date)
d = Day(date)
If m < 3 Then
	y = y - 1
	m = m + 12
End If
mjd = Int(365.25 * y) + Int(y / 400) - Int(y / 100) + Int(30.59 * (m - 2)) + d - 678912
WScript.Echo date & vbCrLf & "MJD=" & mjd
'pause
'WScript.StdIn.ReadLine
 

出力

C:\projects\[[VBScript]]>cscript mjd.vbs
Microsoft (R) Windows Script Host Version 5.7
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

2012/01/01
MJD=55927