• ベストアンサー
  • すぐに回答を!

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

  • 質問No.156530
  • 閲覧数65
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 38% (161/423)

大学の授業でこういう問題がありました。。
『ある年が閏年であれば366を、閏年でなければ365を表示する   
   4の倍数ではないか、または100の倍数であれば 平年
   4の倍数で、かつ100の倍数でなければ     閏年
   ただし、400の倍数であれば          閏年』
どういう風に作ればいいのか教えてください!
お願いします!  

質問者が選んだベストアンサー

  • 回答No.1
  • ベストアンサー

ベストアンサー率 31% (47/149)

年号に対して、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

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

お礼率 38% (161/423)

ありがとうございました!
確かにここはレポートの回答を求める場所じゃあないですね・・・。
これからは気をつけます。。。
本当にありがとうございました!
投稿日時:2001/10/24 10:29
結果を報告する
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ピックアップ

ページ先頭へ