Excel 元旦の曜日

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

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

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

No.1 ベストアンサー 回答者： maron--5 回答日時： 2007/07/29 11:43

◆ご提示の式は少し、分かりかねますが

◆こんな方法はいかがでしょうか？
　　　　A　　　　　B
1　　　2007　　　月

★A1に「年」を入力して
B1=DATE(A1,1,1)
★表示形式をユーザー定義で、　aaa　とします

この回答へのお礼

maron--5さん　ありがとうございました。
簡潔が最上、バッチリです。

お礼日時：2007/08/05 13:34

No.7 回答者： Wendy02 回答日時： 2007/07/29 18:44

こんにちは。

私の#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=k …

ということです。

ツェラーの公式を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さん　ありがとうございました。

お礼日時：2007/08/05 13:41

No.6 回答者： imogasi 回答日時： 2007/07/29 14:23

エクセルの質問になってますが、エクセルとは関係がありません。

何でもエクセルの質問のタイプです。
エクセルは計算道具にしか過ぎません。
（１）エクセルは１９００/1/1から９９９９/12/31目での日付を扱えます。エクセルは歴史的に主にビジネス計算向けなので、これでなんら不都合は無いはず。
10000/1/1はこの表示にはなるが、日付シリアル値に」なりませんので
日付の関数、数式、書式が使えません。
曜日は書式をaaaにするか、＝TEXT(A1,"aaa")で出ます。
--
質問の公式は
ツェラーの公式　で
（１）http://ja.wikipedia.org/wiki/%E3%83%84%E3%82%A7% …
（２）http://cl.is.kyushu-u.ac.jp/Literacy/PP/H14/adp/ …
（３）http://www.geocities.jp/wepon_bafu/friday13.html
他多数出てきます。
ゆっくり考えたこと無いが、年－１は公式に出てきてない。
またガウス記号が公式には出てきていると思うが、質問の式には出ない。書き写し違いが無いですか。[ ]を（）と見てしまっているとか。
年ー１は、１，２は前年の１３，１４月とするとあるので、そのことと関連するのかな。だとすると質問の公式は全的なものでない。
ーー
（３）が理屈も説明している。
エクセルにはガウス記号（”[ ]”はガウス記号といい、ある値について、それを超えない最大の整数値を表す際に用いられる。）は直接は使えない。正の場合はINT()関数で置き換える。
ーー
ModはMOD関数があり、書き方は＝MOD(数、割る数・除数）で、あまりが出ます。
--
公式をエクセルに載せ(計算す）るにはどうするかなら、もう一度公式を良く考え、改めて質問したらどうですか。

この回答へのお礼

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

お礼日時：2007/08/05 13:40

No.5 回答者： Wendy02 回答日時： 2007/07/29 13:58

こんにちは。

私もツェラーの公式に当てはめてみました。

曜日=MOD(年+年/4-年/100+年/400+(13*月+8)/5+日),7)

Excel関数で、1月1日は
その前の年の13月という計算をしますから、

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

+4　は、Excelの書式のための補正値です。（この方法が、正しいのかどうか分かりません）書式の曜日と合わせましたので、書式のユーザー定義の「aaa」や「ddd」 などに設定してください。

もちろん、[年]は、名前－定義で設定します。
適当なセルを指定して登録しておきます。

ただし、これは、1900年～2100年の200年間までしか確かめていません。過去に対しては、Excelはサポートされていません。この公式は、たぶん、グレゴレオ暦からだと思いますから、1582年10月15日以降、つまり、1583年からだと思います。

この回答へのお礼

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

お礼日時：2007/08/05 13:39

No.4 回答者： tommy-pie83 回答日時： 2007/07/29 12:17

どうしても この形式でないといけないのでしょうか？

WEEKDAY 関数を使えば 簡単に表示できますけれども。
たとえば A2のセルに下の式をかき、
=WEEKDAY(A1,1)
A1のセルに 2007/1/1 と書けば
A2のセルに 2 と答えが表示されます。
2は月曜日のことです。

これを踏まえて
A9のセルに
=WEEKDAY(CONCATENATE(A10,"/1/1"),1)
と言う式を書いておいて
A10に任意の年(西暦)を入れれば
A9のセルに 数値が入ります。
1でしたら 日曜日、2でしたら 月曜日…
ということになります。

なお CONCATENATEと言う関数は 複数の文字列を結合する関数だそうです。私も初めて知りました。

#1さんの方がわかりやすいですね。

この回答へのお礼

tommy-pie83さん　ありがとうございました。

お礼日時：2007/08/05 13:37

No.3 回答者： DIooggooID 回答日時： 2007/07/29 12:17

西暦 1900年　１月　１日は、日曜日です。

そこからどれだけ、ずれたかを計算しようとしています。

Windows 系の　Excel では、1900年　１月　１日を　シリアル値　１と決めているので、上式の年には、西暦を入れてください。

しかし、Mac系の Windows では、1904年　１月　１日を　シリアル値　０と決めているので、上式の年には、西暦+5 を入れる必要があります。

この回答へのお礼

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

お礼日時：2007/08/05 13:36

No.2 回答者： redowl 回答日時： 2007/07/29 12:17

ツェラーの公式で求めることを

http://suika.fam.cx/~wakaba/-temp/wiki/wiki?%A5% …
問いておられるのかと・・・

エクセルで算出させるなら
１月１日の曜日限定で

A1に　西暦　　（４桁）
B１に　
=MOD(SUM(A1,INT((A1-1)/4),-INT((A1-1)/100),INT((A1-1)/400)),7)

日曜なら０、月は１、・・・・

この回答へのお礼

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

お礼日時：2007/08/05 13:35