- 60 名前：30,44,46,58 mailto:sage [2009/07/19(日) 12:44:02 ]
- >59
うるう年を考えなくていいなら、12個の要素の配列に月末日を持っておいて
生成しようとする「月」毎に判定したらいいのでは？
dim 末日 as variant
〜
末日 = Array(31,28,31,30,31,30,31,31,30,31,30,31) '始めに設定しておく
〜
if 出力日 > 末日(月 - 1) then 出力日 = 末日(月 - 1) 'ループ処理の中
〜
うるう年を考慮するなら、うるう年判定して 末日(2 - 1) = 29 を追加するだけ
※要素数は１２でも、要素番号(添え字)は０から始まる option base無指定のとき
