うるう年の求め方を教えてください。

うるう年の求め方を教えてください。

No.2 ベストアンサー 回答者： neko-tama 回答日時： 2003/10/14 11:34

4で割れる年をうるう年とする。

ただし，100で割れる年は平年にする。
ただし，400で割れる年はうるう年とする。
例：1700年，1800年，1900年は平年。
2000年はうるう年です 。

No.5 回答者： yoin 回答日時： 2003/10/22 01:37

つい最近、Ｃ＋＋の試験で出ました。

ＮＯ．２さんの回答に一票です。

No.4 回答者： he-goshite- 回答日時： 2003/10/15 13:11

平成11年度秋期の「初級シスアド」の午後問６に次のような問題がでていました。

設問１
指定された年がうるう年ならば１，平年であれば０となるような計算式を，セルＢ５に入力した。計算式の＿＿＿に入れる適切な字句を，回答群の中から選べ。解答は重複して選んでもよい。
IF（剰余（＿a＿ ，4) ＿b＿ 0，0，
　IF（剰余（＿c＿ ，100）＿d＿ 0，1，
　　IF（剰余（＿e＿ ，400）＿f＿ 0，1，0）））
a,c,e に関する解答群
　（略）
b,d,f に冠する解答群
　（略）

で，解答は
a,c,e には指定年の数値（たとえば今年なら 2003）が入力されているセルアドレスが入り，
b,d,f には 順に ≠，≠，＝ が入ります。
Excelが手元にあれば試してみてください。
蛇足ですが，この計算法によるうるう年の決め方を「グレゴリオ暦」といっています。

No.3 回答者： noname#27115 回答日時： 2003/10/14 13:31

すでにロジックについては回答がついているんで、簡単に・・・

Dim Ly(2) As Integer'余りを入れる変数を3つ用意します。

Ly(0) = tY Mod 4'4で割った時の余り
Ly(1) = tY Mod 100'100で割った時の余り
Ly(2) = tY Mod 400'400で割った時の余り

If (Ly(0) = 0 And Ly(1) <> 0) Or Ly(2) = 0 Then

'ここに閏年の処理を書きましょう。

End If

No.1 回答者： himekou43-e 回答日時： 2003/10/14 11:32

一般的には、４００年の間で９７回、つまり

(1)西暦で、４の倍数の年
(2)４００で割れない年は、閏年にしない
です。
したがって西暦１９００年は、閏年ではなかったはずです。

計算式のお尋ねだったのでしょうか？