[春分の日／秋分の日を算出する]

春分の日／秋分の日を、天文学的に算出します。
サンプルの式は、２０００年から２０９９年に対応しています。
参考ＵＲＬ：http://koyomi.vis.ne.jp/

【ソースコード】

[tips0049.vbs]
Option Explicit

Dim dtmNowDate  ' 現在時刻
Dim lngYear     ' 年
Dim lngVernal   ' 春分の日
Dim lngAutumnal ' 秋分の日

dtmNowDate = Date()
lngYear = Year(dtmNowDate)

lngVernal = Int(20.69115 + 0.2421904 * (lngYear - 2000) - Int((lngYear - 2000) / 4))
lngAutumnal = Int(23.09 + 0.2421904 * (lngYear - 2000) - Int((lngYear - 2000) / 4))

WScript.Echo lngYear & "年の"
WScript.Echo "　春分の日は " & lngVernal & "日です。"
WScript.Echo "　秋分の日は " & lngAutumnal & "日です。"

【実行結果】

C:\> cscript //NoLogo tips0049.vbs
2004年の
　春分の日は 20日です。
　秋分の日は 23日です。