３．指定した日付の曜日を求める及び第○□曜日の算出方法

１．指定した日付の曜日を求める ２．第○□曜日(第二月曜日等)の算出方法 ３． ４． ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．指定した日付の曜日を求める

Private Sub Command1_Click() 　　'Format$()関数を使用した方法 　　Debug.Print Format$(Now, "ddd")　　　　 '結果　 Fri 　　Debug.Print Format$(Now, "aaa")　　　　 '結果　 金 　　Debug.Print Format$(Now, "dddd")　　　　'結果　 Friday 　　Debug.Print Format$(Now, "aaaa")　　　　'結果　 金曜日 　　'従来のやり方 　　Dim youbi As Variant 　　'配列は 0 からなので空を 1 つセットしている 　　youbi = Array("", "日曜日", "月曜日", "火曜日", "水曜日", "木曜日", "金曜日", "土曜日") 　　Debug.Print youbi(DatePart("w", Now))　 '結果　 金曜日 　　'又は過去の経過日数を7で割った余りを求めて曜日をだす。 End Sub

２．第○□曜日(第二月曜日等)の算出方法

Private Sub Command1_Click() 　　Debug.Print ((9 - Weekday("2013/07")) Mod 7) + 1　　'　1 第一月曜日 　　Debug.Print ((9 - Weekday("2013/07")) Mod 7) + 8　　'　8 第二月曜日 　　Debug.Print ((9 - Weekday("2013/07")) Mod 7) + 15　 ' 15 第三月曜日 End Sub 1月の第2月曜日 ：成人の日 7月の第3月曜日 ：海の日 9月の第3月曜日 ：敬老の日 10月の第2月曜日：体育の日 上記のような祭日を求めるのに便利かと思います。設定値を変更すれば、月曜日以外でも取得できます。 1月の第2月曜日 ：成人の日 7月の第3月曜日 ：海の日 9月の第3月曜日 ：敬老の日 10月の第2月曜日：体育の日

３．

４．

５．

６．