Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36450 / 76732

←次へ　｜　前へ→


	【45463】Re:うるう年の判定

りん

- 06/12/25(月) 16:26 -


	引用なし

	パスワード

URA さん、こんにちわ。

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

邪道かもしれませんが、うるう年かどうか知りたいだけならこんな感じ。

Sub test()
　 Dim yy As Integer, msg As String
　 For yy = 1900 To 2006
　　　Select Case Day(DateSerial(yy, 3, 1) - 1) '３月１日の前日
　　　　 Case 28
　　　　　　msg = "通常"
　　　　 Case 29
　　　　　　msg = "うるう年"
　　　End Select
　　　MsgBox msg, vbInformation, yy & "年は"
　 Next
End Sub

条件で分岐するならば。
>西暦が４で割り切れかつ、１００で割り切れない年、
>または４００で割り切れる年がうるう年である。
　 tf = False
　 If (YY Mod 4 = 0) Then '４で割れる
　　　'４００で割れるか１００で割れない
　　　If (YY Mod 400 = 0) Or (YY Mod 100 <> 0) Then
　　　　 tf = True
　　　End If
　 End If
　 '
　 If tf = True Then
　　　MsgBox "うるう年"
　 Else
　　　MsgBox "通常"
　 End If

こんな分岐ですかね。

1 hits

▼

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