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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【マクロ】表への繰り返し転記について 1 2022/11/19 16:30
- Excel(エクセル) 下記エクセルの式がなぜこうなるのか理由が知りたいです。 6 2022/08/20 00:43
- Visual Basic(VBA) VBA 複数のブックに同じ列を表示させる方法 2 2022/07/20 23:49
- JavaScript 【GAS】WEBアプリでハイパーリンクを挿入したい 1 2023/03/12 19:20
- その他(プログラミング・Web制作) 【フローチャートの書き方について】 勤務年数と勤務場所を入力し,給与額を表示するフローチャートを作成 2 2022/10/04 12:11
- その他(ビジネススキル・経営ノウハウ) エクセル 表計算について 5 2022/11/02 14:38
- Access(アクセス) Access DTPickerの初期表示月を変えたい 1 2022/08/02 08:55
- Excel(エクセル) エクセルの日付表示を変換するやり方をご存じの方は教えて下さい。 7 2022/12/28 15:43
- 占い 四柱推命で使う筋入り日時について質問です。 初学者で、現在、緒方泰州『泰山流 四柱推命学入門』を読ん 1 2023/03/21 15:18
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA レジストリの値の読み方に...
-
VBAの計算で@が出てしまう件
-
2つのマクロでチェックボックス...
-
VBAで各列の"+"と"o"の合計数を...
-
Excel マクロについての相談
-
Vba SelStart、SelLen教えてく...
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
Excel VBA 定義されたプロージ...
-
現在のブックを閉じないで、マ...
-
VBA 複数条件の分岐処理の上手...
-
Excelのマクロについて教えてく...
-
VBAの質問になります メッセー...
-
Excelのマクロでワードのテキス...
-
ファイル名の日付について教え...
-
FileCopy時のエラー
-
【VBA】マクロの入ったファイル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
SQL Serverにおける小数部の0...
-
16進数を10進数に変換する方法...
-
36進数
-
Request.QueryStringの型について
-
C言語のうるう年に関するプログ...
-
日付と曜日から、1週間前(7...
-
うるう年を求めるプログラム
-
閏年のフローチャートについて
-
和暦から西暦変換(C#)
-
swiftで年号を
-
閏年が何個含まれるか求めるプ...
-
ユリウス日から和暦(江戸時代...
-
和暦→西暦(有効範囲を考慮)
-
プログラミング
-
エクセルのカレンダー
-
ExcelVBAを使って、値...
-
VBAでActiveDirectoryのユーザ...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
VB.NETで DataRow()を利用して...
おすすめ情報