如何得到本周的星期一和星期日分别是多少号 vb

[blackhero]

如何得到本周的星期一和星期日分别是多少yyyy-MM-dd

[singlepine]

public static void ConvertDateToWeek(DateTime date,out DateTime firstdate,out DateTime lastdate)
{
DateTime first=System.DateTime.Now;
DateTime last=System.DateTime.Now;
switch (date.DayOfWeek)
{
case System.DayOfWeek.Monday:
first=date;
last=date.AddDays(6);
break;
case System.DayOfWeek.Tuesday:
first=date.AddDays(-1);
last=date.AddDays(5);
break;
case System.DayOfWeek.Wednesday:
first=date.AddDays(-2);
last=date.AddDays(4);
break;
case System.DayOfWeek.Thursday:
first=date.AddDays(-3);
last=date.AddDays(3);
break;
case System.DayOfWeek.Friday:
first=date.AddDays(-4);
last=date.AddDays(2);
break;
case System.DayOfWeek.Saturday:
first=date.AddDays(-5);
last=date.AddDays(1);
break;
case System.DayOfWeek.Sunday:
first=date.AddDays(-6);
last=date.AddDays(0);
break;
}
firstdate=first;
lastdate=last;
}
//调用
DateTime firstdate=System.DateTime.Now;
DateTime lastdate=System.DateTime.Now;
DateTime date=System.DateTime.Now;
ConvertDateToWeek(date,out firstdate,out lastdate);

[singlepine]

Public Shared Sub ConvertDateToWeek(ByVal date As DateTime, ByRef firstdate As DateTime, ByRef lastdate As DateTime)
Dim first As DateTime = System.DateTime.Now
Dim last As DateTime = System.DateTime.Now
Select date.DayOfWeek
Case System.DayOfWeek.Monday
first = date
last = date.AddDays(6)
' break
Case System.DayOfWeek.Tuesday
first = date.AddDays(-1)
last = date.AddDays(5)
' break
Case System.DayOfWeek.Wednesday
first = date.AddDays(-2)
last = date.AddDays(4)
' break
Case System.DayOfWeek.Thursday
first = date.AddDays(-3)
last = date.AddDays(3)
' break
Case System.DayOfWeek.Friday
first = date.AddDays(-4)
last = date.AddDays(2)
' break
Case System.DayOfWeek.Saturday
first = date.AddDays(-5)
last = date.AddDays(1)
' break
Case System.DayOfWeek.Sunday
first = date.AddDays(-6)
last = date.AddDays(0)
' break
End Select
firstdate = first
lastdate = last
End Sub

'调用
Dim firstdate As DateTime = System.DateTime.Now
Dim lastdate As DateTime = System.DateTime.Now
Dim date As DateTime = System.DateTime.Now
ConvertDateToWeek(date, firstdate, lastdate)

[minghui000]

up