Excel 元旦の曜日

質問

Excel で、任意の年の元旦の曜日を表示させる数式は下記のとおりだという記事がありました。

(年 + ( 年 - 1 ) / 4 - ( 年 - 1 ) / 100 + ( 年 - 1 ) / 400 ) % 7

「年」のところはどう記入すればよいのか教えて下さい。よろしくお願いします。

回答No.7

Wendy02

こんにちは。

私の#5の回答は、不勉強なもので、間違えていました。
#6 のimogasiさんのご回答で気が付きました。

=MOD(年-1+INT((年-1)/4)-INT((年-1)/100)+INT((年-1)/400)+INT(177/5)+1,7)+1

でした。

それと、

[XL2002] WEEKDAY 関数で 1900 年 3 月 1 日より前の正しい曜日が返らない
http://support.microsoft.com/default.aspx?scid=kb;ja;JP106339

ということです。

ツェラーの公式をVBAに直してみました。たぶん良いと思います。
1900年のDate 関数は別として、上記の数式との矛盾は発生していません。

'標準モジュール

Function Zeller(ByVal Y As Integer, ByVal M As Integer, D As Integer) As Integer
　If M = 1 Or M = 2 Then
　 Y = Y - 1
　 M = M + 12
　End If
　 Zeller = (Y + Y \ 4 - Y \ 100 + Y \ 400 + (13 * M + 8) \ 5 + D) Mod 7
End Function

※数式は、　=Zeller(年,1 ,1 ) +1
としています。「年」の説明は、#5 の通りです。

ところで、ユリウス暦は、一旦、ユリウス暦の日付に変換する必要があるわけですね。ユリウス暦は、紀元前4713年１月１日 からということになりますが、それは、またいずれそういう質問もあるかもしれませんね。ヨーロッパでは、こういう計算は、歴史的に、古いようですね。

お礼

Wendy02さん　ありがとうございました。