FirstDayOfWeek

[Thammarat charoenchai.]

Hi, I'm wonder VB have som function to get First day of the week?

like I'm have

dim d1 as datetime=12/5/2007

d2 = firstweekday(d1 ) '=7/5/2007

thank you very much

[Newbie Coder]

Re: FirstDayOfWeek

Here's the solution for you:

Private Function GetPreviousMond ay(ByVal dt As DateTime) As String
Dim intWeekday As DayOfWeek = dt.DayOfWeek
Dim intSubtract As Integer = 0
Select Case intWeekday
Case 0 ' Sunday
intSubtract = -6
Case 1 ' Monday
intSubtract = 0
Case 2 ' Tuesday
intSubtract = -1
Case 3 ' Wednesday
intSubtract = -2
Case 4 ' Thursday
intSubtract = -3
Case 5 ' Friday
intSubtract = -4
Case 6 ' Saturday
intSubtract = -5
Case Else
Return "Unable to get day of the week"
End Select
Return dt.AddDays(intS ubtract).ToStri ng("MM/dd/yyyy")
End Function

Usage:

MessageBox.Show (GetPreviousMon day(#5/4/2007#))

I hope this helps,

--
Newbie Coder
(It's just a name)





"Thammarat charoenchai." <apatiu@gmail.c omwrote in message
news:%23SFZy0El HHA.4516@TK2MSF TNGP03.phx.gbl. ..

Hi, I'm wonder VB have som function to get First day of the week?
>
like I'm have
>
dim d1 as datetime=12/5/2007
>
d2 = firstweekday(d1 ) '=7/5/2007
>
thank you very much

[Charlie Brown]

Re: FirstDayOfWeek

Shorter version, same as N. Coders, but less code.

Private Function GetStartOfWeek( selectedDate as datetime) as DateTime
Select Case SelectedDate.Da yOfWeek
Case DayOfWeek.Sunda y
return selecteddate.ad ddays(-6)
Case Else
Return selectedDate.Ad dDays(1 - selectedDate.Da yOfWeek)
End Function

[Thammarat charoenchai.]

Re: FirstDayOfWeek

Thanks you very much. That's mean vb not have build in function for this .

i already coding.

Thanks again. :D