| ■61951 / ) |
Re[1]: 今週と先週の日曜日と月曜日の日付を取得したい |
□投稿者/ shu (985回)-(2011/09/13(Tue) 12:36:06)
|
2011/09/13(Tue) 12:59:28 編集(投稿者)
2011/09/13(Tue) 12:36:41 編集(投稿者)
<pre><pre>■No61946 (赤いガチャピン さん) に返信
> Win7でVB2010で作成しています
>
> ４つのボタンを作成してそれぞれをクリックしたら 先週の日曜 先週の月曜 今週の日曜 今週の月曜 の日付（例 2011/09/12)をメッセージボックスに表示させる方法をどなたかご教授していただけませんでしょうか？
> ちなみに曜日は火曜から始まるものとして設定したいです。
> 例 ２０１１年９月１３日に先週の日曜ボタンをクリックしたら2011/09/11 今週の月曜ボタンをクリックしたら2011/09/19
> よろしくお願いいたします。
Dim TodayDay = Date.Today
Dim TodayWeek = TodayDay.DayOfWeek - DayOfWeek.Tuesday
If TodayWeek < 0 Then
TodayWeek += 7
End If
Dim CurTuesday = TodayDay.AddDays(-TodayWeek)
Dim PrevSunday = CurTuesday.AddDays(-2)
Dim PrevMonday = CurTuesday.AddDays(-1)
Dim CurSunday = CurTuesday.AddDays(5)
Dim CurMonday = CurTuesday.AddDays(6)
こんなんでどうでしょう？
# 余分なコードがあったので削りました。(Dim TodayDay = Date.Todayの行)
|
|
