Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9088 / 9994

←次へ　｜　前へ→


	【4054】Re:2ヶ月後までの指定した曜日を取得する方法

morik - 04/12/22(水) 10:40 -


	引用なし

	パスワード

▼MJ さん：

何度も質問してすみません。
やはりソースの書き方がわからず、いろんなところを調べた結果以下のサイトより曜日を返す方法を見つけました。

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/jpdnofftalk/htm/office04062000.asp

しかし、この方法だと一つの曜日しか返されず、今回のように火曜と水曜を返す方法が思い浮かびません。

先ほどのサイトのソースから二つの曜日を返すことは可能なのでしょうか？
よろしくお願い致します。

Function ListDays(fld As Control, id As Variant, Row As Variant, col As Variant, code As Variant) As Variant

　 Dim intOffset As Integer
　 Dim varRetVal As Variant
　
　 Select Case code
　　　Case acLBInitialize
　　　　 varRetVal = True
　　　Case acLBOpen
　　　　 varRetVal = Timer
　　　Case acLBGetRowCount
　　　　 varRetVal = 8
　　　Case acLBGetColumnCount
　　　　 varRetVal = 1
　　　Case acLBGetColumnWidth
　　　　 varRetVal = -1
　　　Case acLBGetValue
　　　　intOffset = Abs((10 - WeekDay(Now)) Mod 7)
　　　　 varRetVal = Format(Now() + intOffset + 7 _
　　　　　　* Row, "YYYYMMDD")
　　　Case acLBGetFormat
　　　Case acLBEnd
　 End Select
　 ListDays = varRetVal
End Function

401 hits

▼

【4044】2ヶ月後までの指定した曜日を取得する方法 morik 04/12/20(月) 16:41