C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 104 を表示中)
■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で作成しています
>
> 4つのボタンを作成してそれぞれをクリックしたら 先週の日曜 先週の月曜 今週の日曜 今週の月曜 の日付(例 2011/09/12)をメッセージボックスに表示させる方法をどなたかご教授していただけませんでしょうか?
> ちなみに曜日は火曜から始まるものとして設定したいです。
> 例 2011年9月13日に先週の日曜ボタンをクリックしたら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の行)
返信 編集キー/


管理者用

- Child Tree -