No.1ベストアンサー
- 回答日時:
こんにちわ。
流れとしましては、入力したい年月(Y年M月とします。)の1日が何曜日か求める。VBにも関数があると思いますが、関数がなければ自分で定義しなければなりません。
この場合、西暦1年1月1日(現実的には1900年1月1日で十分?)からY年M月1日までの経過日数を算出し、7で割った余りが0の時が日曜日です。
この際、閏年を考慮する必要があり、西暦年が4で割り切れる年は閏年。ただし、100で割り切れる年は平年。しかし、400で割り切れる年は閏年、というルールがあります。
後は、配列に順次日数分格納すれば、とりあえず、その月のカレンダーはできると思います。
この他、元号の扱いや国民の祝日なども考慮しなければなりませんし、春・秋分の日も前年11月にしかわかりません。また、旧暦などが入ってくるともっと複雑になります。
とりあえず、何か質問がありましたら、補足要求してください。
参考URL:http://koyomi.vis.ne.jp/mainindex.htm
この回答へのお礼
お礼日時:2002/02/24 23:20
coco1さんありがとうございます。
参考書なども買ってみたのですが、分からないことだらけです(;´Д`)
できるところまでがんばってみます。
ので、また何かあったらお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
日付と曜日から、1週間前(7...
-
SQL Serverにおける小数部の0...
-
VB.NETで DataRow()を利用して...
-
利用者側のMACアドレスを取得し...
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
テキストボックスのvalueとtext...
-
VBAでActiveDirectoryのユーザ...
-
特定のセルが空白だったら、そ...
-
VBA 配列に格納した値の平均の...
-
値を返さないコード パス
-
Excelのセルの色指定をVBAから...
-
【Excel VBA】指定行以降をクリ...
-
iframe内で表示されてるサイト...
-
指定した条件で行セルを非表示...
-
Application.Matchで特定行の検索
-
データ数をカウントしたいのですが
-
EXCELで変数をペーストしたい
-
VBA:小数点以下の数字を取得で...
-
Listviewのデータを上から順番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL Serverにおける小数部の0...
-
16進数を10進数に変換する方法...
-
日付と曜日から、1週間前(7...
-
Request.QueryStringの型について
-
C言語のうるう年に関するプログ...
-
エクセルのカレンダー
-
西暦を入力して、うるう年かど...
-
和暦から西暦変換(C#)
-
ユリウス日から和暦(江戸時代...
-
うるう年を求めるプログラム
-
西暦→和暦
-
テキストボックスのvalueとtext...
-
VB.NETで DataRow()を利用して...
-
i=cells(Rows.Count, 1)とi=cel...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
特定のセルが空白だったら、そ...
-
count(*)で取得した値をJAVAの...
-
Accessのクエリで、replace関数...
-
VBAでActiveDirectoryのユーザ...
おすすめ情報