No.2ベストアンサー
- 回答日時:
またまたarthurです。
1月~12月までの各月の日数を12コの配列に入れ、
1月から入力してもらった月の1つ前の月までの日数を合計します。
例)9月と入力された場合
1月の日数(31日)+2月の日数(28日)+・・・+8月の日数(31日)
さらに入力された日にち分を加算します。
例)15日と入力された場合
1月~8月の合計日数+15日
その合計の値をさらに7(1週間=7日)で割ります。
7で割った余りの数字によって曜日を割り当てます。
1月1日(月)が最初なので、余りが1の時月曜日とすると、余りが2の時は・・・
と、まぁ、ヒントはここまでです^^;
後は自分の力でがんばってください。
この回答へのお礼
お礼日時:2001/01/24 20:31
ヒントありがとうございます。只今製作中です。しかしエラーが多くなかなか進みませんがarturさんのおかげで
ずいぶん進むことができました。
No.5
- 回答日時:
月と日だけではわかりませんので、年(西暦)も入力できるようにして
以下のURLを見てください。
EXCELで確認したところ完璧でした。
参考URL:http://www.top.or.jp/~cpop/sitiyo.htm
No.4
- 回答日時:
宿題の回答としては、
1.ある基準日(例えば1900/01/01)の曜日を調べておいて、その日から何日たっているかを閏年も考慮して計算して、7で割って計算する。
2.Zellerの公式を利用する。
の2つがあります。
演習問題としては、1が正しいアプローチのような気がしますが、Zellerの公式も紹介しておきます。
式は下記のようになります。intは、小数点以下切り捨てmodは剰余を求めます。
( [日] + int( ( [月] + 1 ) * 26 / 10 )
+ [年の下2桁] + int([年の下2桁]/4) + int([年の上2桁]/4) - 2*[年の上2桁] ) mod 7
※但し[月]が1月,2月の場合は「前年の13月、14月」として計算します。
むかし、むかし買ったPascalの自習書に乗っていました。
そうそう、Zellerの公式の結果は、土曜日が0になります。
No.1
- 回答日時:
あまり良い方法とは思っていませんが私は次のような方法を使っています。
これはWindowsでしか使えないのでご了承あれ。
SYSTEMTIME構造体の年、月、日その他もろもろを、代入ます。
それでSystemTimeToFileTime関数に渡してFILETIMEに変換します。
そのとき、曜日を指定してあっても無視されます。
得られたFILETIMEをFileTimeToSystemTime関数に渡して、再度SYSTEMTIMEに変換すれば、正しい曜日が入っていると言うわけです。
詳しくはSystemTimeToFileTime関数とFileTimeToSystemTime関数のヘルプを見ましょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
月の第一週とは
-
VBA。複数のChangeイベントをま...
-
エクセルで毎月第2週日の水曜日...
-
ユーザー定義の(aaa)
-
週2回のペースって だいたい何...
-
土曜日の26時って何曜日の何時...
-
今週とは何曜日から何曜日まで...
-
[Excel] ある日の曜日が当月の"...
-
毎○曜日って、使いますか?
-
よくある 『 第○(1・2・3・4・...
-
thunderbird 送信日時の曜日表示
-
第○曜日であるかを取得する関数
-
日本語問題 昨日は何曜日ですか...
-
今月は1日が日曜日で、31まであ...
-
apacheでPerl CGIが作動せず、5...
-
エクセルで相対パスの書き方を...
-
リストコントロールの列幅を固...
-
DBを10件毎に表示ページング...
-
perl5について
-
アンケートなどの1日1回の投...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の第一週とは
-
週2回のペースって だいたい何...
-
エクセルで毎月第2週日の水曜日...
-
エクセルで 自動的に◯や数字を...
-
よくある 『 第○(1・2・3・4・...
-
毎○曜日って、使いますか?
-
VBA。複数のChangeイベントをま...
-
[Excel] ある日の曜日が当月の"...
-
毎週同じ曜日にラブホに行くと...
-
今週とは何曜日から何曜日まで...
-
Excelで第一〇曜日を求める方法...
-
曜日を求めるプログラムはどう...
-
曜日のなぞ
-
土曜日の26時って何曜日の何時...
-
第○曜日であるかを取得する関数
-
日本語問題 昨日は何曜日ですか...
-
一年の第何週目であるかを判断...
-
日付から曜日を求めたい
-
指定曜日にMsgBox表示は可能で...
-
Excel関数で当月の第一日曜日の...
おすすめ情報