質問: 大学の授業でこういう問題がありました。。 『ある年が閏年であれば366を、閏年でなければ365を表示する 4の倍数ではないか、または100の倍数であれば 平年 4の倍数で、かつ100の倍数でなければ 閏年 ただし、400の倍数であれば 閏年』 どういう風に作ればいいのか教えてください! お願いします!
回答: 年号に対して、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 しかし、ここはレポートの回答を求める場所ではないですよ。