サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ 第○□曜日の算出方法(VB6.0) ( No.0 ) 　[親スレッドへ] 日時： 2007/07/16 14:12 名前： 花ちゃん *********************************************************************************** * カテゴリー：[日付・時刻][][]                                                    * * キーワード：第二月曜日,カレンダ,祝日の求め方,祭日,,                             * *********************************************************************************** 投稿時間：2002/10/22(Tue) 15:31 投稿者名：MIKAN タイトル：Re: 第○曜日の算出方法について教えて下さい ----------------------------------------------------------------------------- > 曜日の算出で、例えば第２月曜日とかを求める方法でループとか無しで算出ってできますか？ 例えば、こんなんでどうでしょう。曜日は、日曜が１です。（WeekDay関数と同じ） Function intNWeekDay(intYear As Integer, intMonth As Integer, intN As Integer, intWeekDay As Integer) As Integer     Dim dteFirst As Date     Dim intDay As Integer     dteFirst = DateSerial(intYear, intMonth, 1)     intDay = ((7 + intWeekDay - Weekday(dteFirst)) Mod 7) + (intN - 1) * 7 + 1     If Month(DateSerial(intYear, intMonth, intDay)) = intMonth Then         intNWeekDay = intDay     Else         intNWeekDay = -1     End If      End Function

　[スレッド一覧へ]　[親スレッドへ]