
No.1ベストアンサー
- 回答日時:
つまりは、プログラム言語的な言い方をすれば、うるう年の定義は「4で割り切れて100で割り切れない年はうるう年である。
または400で割り切れる年はうるう年である。」ということでいいすね?そうであれば仮に、A1セルに調べたい西暦年を数値でいれてあるとして、
Sub URUU()
y = Cells(1, 1).Value
If ((y Mod 4) = 0 And (y Mod 100) <> 0) Or (y Mod 400) = 0 Then
MsgBox y & "年はうるう年です"
Else
MsgBox y & "年の2月は28日までです"
End If
End Sub
でいいと思います。
うるう年の定義は自分では調べていませんので念のため。
No.3
- 回答日時:
No.2です。
>なぜ西暦の年数を長整数型に変換しているのでしょうか?
ああ、そうですね、DateSerial関数の引数には、整数型(Integer)とヘルプにありますね。
その場合は、
Dim tempYear As Integer
tempYear = CInt(Range("A1").Value)
また、VBAは自動的に型変換してくれるから、
tempYear = Range("A1").Value
でもいいかも知れませんね。
さらに、DateSerial関数の引数に指定した段階で型変換してますしね。
No.2
- 回答日時:
こんにちは。
maruru01です。質問の主旨とは違うかも知れません。
VBAでは、100~9999年の閏年はすべて組み込まれているので、それを利用する方法があります。
A1に西暦の年数を入力するとして、
Sub Macro()
Dim tempYear As Long
tempYear = CLng(Range("A1").Value)
If Day(DateSerial(tempYear, 2, 29)) = 29 Then
MsgBox tempYear & "は閏年です。"
Else
MsgBox tempYear & "は閏年ではありません。"
End If
End Sub
この回答へのお礼
お礼日時:2004/09/17 17:41
ありがとうございました。
VBAにうるう年が組み込まれているんですか、勉強になりました。
ところで CLng とは見たことが無かったので今調べましたら長整数型とのことでしたが、なぜ西暦の年数を長整数型に変換しているのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(資産運用・投資) 年利回りの計算方法について 5 2023/01/03 19:38
- 金融業・保険業 もうすぐ大学の金融論の試験なのですが問題が全然解けません...泣 どなたか分かる方いたら教えてもらえ 1 2023/07/21 22:03
- 医療費 後期高齢者医療負担について 4 2023/01/22 17:25
- その他(税金) 税務調査その後・・・ 13 2022/10/06 04:15
- マナー・文例 定時社員総会の年度標記について 2 2023/03/16 11:26
- 簿記検定・漢字検定・秘書検定 満期保有目的債券の償却原価法の計算について(簿記2級) 1 2022/06/18 15:40
- 高校 日商簿記3級の勉強中なのですが 精算表が完成せず困っています。 こちらの問題の回答を教えていただきた 2 2023/03/02 09:07
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- 確定申告 不動産投資の減価償却費の算出方法 5 2022/12/03 15:06
- 歴史学 1年に2回、歳(とし)をとる習慣の国または地域 3 2022/07/24 10:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
PowerPointのスライドの途中で...
-
パワーポイント「スライドショ...
-
パワーポイントの表
-
複数のExcelファイルを一つのフ...
-
音声マークを一括非表示にしたい。
-
PowerPointで、作成されたファ...
-
PowerPointでスライドマスタの...
-
Microsoft Office2016をOffice2...
-
エクセル・パワーポイントなど...
-
PowerPointのオプションの設定...
-
Vba 白黒印刷で網掛けが消える...
-
パワーポイントについて。背景...
-
プレゼン時のポインター
-
パワーポイントで資料を作る時 ...
-
パワーポイントモバイル 印刷時...
-
パワーポイントをメールで送信...
-
【パワーポイントのフォントが...
-
パワーポイント2019 図の透...
-
PowerPointのアニメーションで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報