掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
第３日曜日の翌日アラーム (ID:103319)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> プログラムの記述を教えてください。 それでは質問ではなく、作成依頼になってしまいますよ…。 [新規質問]のリンクから投稿しているのですから、質問の形態をとりましょう。 とりあえず、分からない点はどこでしょうか? また、VB のバージョンは何ですか? とりあえず、細かい説明を省いてコードだけ書くと、VB6/VBA であれば y = 2012 m = 7 dt = DateSerial(y, m, 23 - Weekday(DateSerial(y, m, 1), vbMonday)) MsgBox dt のような感じで算出できます。 > 毎月、第３日曜日の翌日 これは、16日〜22日のいずれかになるかと思います。 今年の 5,6,7,8,9,10,11 月のカレンダーを見てみましょう。 2012年10月は、1日が月曜日です。第3日曜日は21日で、その翌日は 2012/09/22 です。 2012年 5月は、1日が火曜日です。第3日曜日は20日で、その翌日は 2012/05/21 です。 2012年 8月は、1日が水曜日です。第3日曜日は19日で、その翌日は 2012/08/20 です。 2012年11月は、1日が木曜日です。第3日曜日は18日で、その翌日は 2012/11/19 です。 2012年 6月は、1日が金曜日です。第3日曜日は17日で、その翌日は 2012/06/18 です。 2012年 9月は、1日が土曜日です。第3日曜日は16日で、その翌日は 2012/09/17 です。 2012年 7月は、1日が日曜日です。第3日曜日は15日で、その翌日は 2012/09/16 です。 なのでまずは、該当年月の1日時点の曜日を調べるところから プログラミングを始めてみては如何でしょうか。 曜日の算出は、上記コードにも書いた「Weekday 関数」を使えますし、 VB.NET ならば、日付値の DayOfWeekプロパティを使ってもOKです。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.