̑Qj̓ɂ擾

ɂ́B݂@łB

> Cӂ̔Nx̌̑QjARj̓ɂ擾邽

́Aȉ̂悤ȃR[hŎ擾Ă܂B
悯΁AQlɂĂB

Sub Sample()
  Dim intYear As Integer
  Dim intMonth As Integer
  Dim intWhich As Integer
  Dim intWeek As Integer
  
  intYear = InputBox("N")
  intMonth = InputBox("")
  intWhich = InputBox("扽T̗jłH")
  
  '恛Ťj̏ꍇ
  MsgBox CountWeekday(intYear, intMonth, intWhich, vbMonday)
  '恛T̉Ηj̏ꍇ
  MsgBox CountWeekday(intYear, intMonth, intWhich, vbTuesday)
End Sub

父の名は誰ですか？

Public Function CountWeekday(YearS As Integer, _
  Monthes As Integer, _
  Cnt As Integer, _
  SetWeekday As VbDayOfWeek) As Date

    Dim intWeek As Integer
    Dim dtFirstDay As Date
    Dim i As Integer
    Dim intGotoWeek As Integer
    Dim intFirstWeek As Integer
    Dim CntDay As Date

    CountWeekday = CDate("1900/1/1")

カナダを祝うイースターはない

    dtFirstDay = DateSerial(YearS, Monthes, 1)
    intWeek = Weekday(dtFirstDay, vbSunday)
    
    i = ((SetWeekday - vbSunday + 7) Mod 7) + 1
    intGotoWeek = i - intWeek + (Cnt - 1) * 7

    intFirstWeek = i - intWeek

    CntDay = DateAdd("d", intFirstWeek, dtFirstDay)

    CountWeekday = DateAdd("d", intGotoWeek, dtFirstDay)

    If DateDiff("m", CntDay, dtFirstDay) = 1 Then
      CountWeekday = CountWeekday + 7
    End If
End Function

These are our most popular posts:

父の日プレゼント＆ギフト集－お父さんへのプレゼント特集－僕の贈り物

どうせなら、気持ちだけでなく、素敵な父の日のプレゼントも一緒にいかがですか？ お 待たせしました。今年も人気の父の日特集をオープンします！ 2012年父の日は、6月 17日（日曜日）です。 他の年の父の日が何曜日なのか曜日を知りたいという方は、「父 の ... read more

来年の6月3日は何曜日ですか？ - Yahoo!知恵袋

2011年12月13日 ... 来年の6月3日は何曜日ですか？ ... このページの先頭です このページの本文へ. Yahoo!知恵袋 ログイン. IDでもっと便利に[ 新規取得 ] ... 2012年6月3日 は --- 日曜日 僕の誕生日です。 ,,,って ... 日曜日になってるよ＾＾ 17日が父の日だよ＾＾ ... read more

明日って何曜日ですか？ - Yahoo!知恵袋

明日って何曜日ですか？ pokettomeganeさん. 明日って何曜日ですか？ とゆうかあし たって何月何日ですか？ 補足: どっちだよ. グレード 違反報告. 質問日時：: 2012/2/15 23:24:14. 解決日時：: 2012/2/24 06:36:31. 回答数：: 4. お礼：: 知恵コイン: 100枚 ... read more

月の第2日曜日の日にちを取得する

72爺 in 2012/01/09(月) 15:09:37 windows7 / Excel2007 ... intWhich = InputBox( 第何週の曜日ですか？) ... ではなく、遊びでカレンダーを作っておりまして、母の日（5月 2週目の日曜）と父の日（6月3週目の日曜）の日にちを取得するために必要なのです。 read more