Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36455 / 76732 ←次へ | 前へ→

【45458】うるう年の判定
質問  URA  - 06/12/25(月) 16:00 -

引用なし
パスワード
   かなり定番な質問なのですが、よろしければご質問にお答えください。
OS XP
Excel 2003


1900年から2006年までのうるう年を判定するプログラムを作成する。
うるう年は次のように判定する。西暦が4で割り切れかつ、100で割り切れない
年、または400で割り切れる年がうるう年である。

↓まではできたのですが、一気に表示することができなくて困っております。
Dim y As Integer
  For y = 1900 to 2006
  If (y mod 400) =0 Then

   ElseIf(y mod 100) =0 Then
   Else If(y mod 4) =0 Then
 
   MsgBox y
  End If
  Next

End Sub

1 hits

【45458】うるう年の判定 URA 06/12/25(月) 16:00 質問
【45459】Re:うるう年の判定 Blue 06/12/25(月) 16:09 質問
【45460】Re:うるう年の判定 URA 06/12/25(月) 16:12 回答
【45461】Re:うるう年の判定 Blue 06/12/25(月) 16:19 回答
【45462】Re:うるう年の判定 かみちゃん 06/12/25(月) 16:22 発言
【45463】Re:うるう年の判定 りん 06/12/25(月) 16:26 回答

36455 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free