プログラミングの問題でちょっと・・・。

大学の授業でこういう問題がありました。。
『ある年が閏年であれば３６６を、閏年でなければ３６５を表示する　　　
　　　４の倍数ではないか、または１００の倍数であれば　平年
　　　４の倍数で、かつ１００の倍数でなければ　　　　　閏年
　　　ただし、４００の倍数であれば　　　　　　　　　　閏年』
どういう風に作ればいいのか教えてください！
お願いします！　　

No.1 ベストアンサー 回答者： zerosix 回答日時： 2001/10/24 10:25

年号に対して、2/29を付け加えて、それが日付として存在するか

isdate関数で調べればうるう年として存在するか分かります。

Private Sub Command1_Click()
Dim strDate As String

strDate = Text1.Text + "/2/29"
If IsDate(strDate) = True Then
MsgBox "うるう年"
Else
MsgBox "うるう年じゃない"
End If

End Sub

しかし、ここはレポートの回答を求める場所ではないですよ。

この回答へのお礼

ありがとうございました！
確かにここはレポートの回答を求める場所じゃあないですね・・・。
これからは気をつけます。。。
本当にありがとうございました！

お礼日時：2001/10/24 10:29