「VBScript/mjd」の編集履歴（バックアップ）一覧に戻る

VBScript/mjd - (2013/01/07 (月) 17:43:18) のソース

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

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

 cscript //H:CScript

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

 mjd

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

mjd.vbs
#highlight(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