閏年自動判定

質問

プログラム初心者です。
VbScript(ASP)で以下のプログラムを書く場合の書き方を教えてください。

閏年を自動的に判定し、以下の処理をしたいです。

前年同月の集計結果を表示したいです。

その判別は以下の通りです。

(1)もし当年が閏年で無く、前年が閏年の場合
　2/28日に集計すると前年分は2/29（までの）のものを表示

(2)もし当年が閏年の場合、2/29に集計すると
　前年分は2/28（までの）のものを集計

宜しくお願いします。

回答No.2

notnot · ベストアンサー

＞閏年の判定はその年（西暦）が4で割り切れるかどうかです（1601～2399年は）

1901～2099年の間違いですね。1900年、2100年等は閏年じゃ無いので。

あるいは、3/1の1日前が29日なら閏年なので、

if Day(DateAdd("d",-1,DateValue(年 & "/3/1"))=29 then
閏年
end if

お礼

ありがとうございます。

回答No.1

jaham

閏年の判定はその年（西暦）が4で割り切れるかどうかです（1601～2399年は）

あとのロジックは自分で考えること（ここに初心者と熟練者で大きな違いが出ます）