OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

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

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

お礼率 38% (161/423)

大学の授業でこういう問題がありました。。
『ある年が閏年であれば366を、閏年でなければ365を表示する   
   4の倍数ではないか、または100の倍数であれば 平年
   4の倍数で、かつ100の倍数でなければ     閏年
   ただし、400の倍数であれば          閏年』
どういう風に作ればいいのか教えてください!
お願いします!  
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル10

ベストアンサー率 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:37
-PR-
-PR-
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ