|
|||||||||
|
|||||||||
|
|||||||||
| |
|||
 |
|
|
|
|
|||||||||
|
|||||||||
|
|||||||||
| |
|||
|
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Display Modes |
Dev Articles Community Forums Sponsor:
|
|
|
|
#1
February 22nd, 2005, 09:38 PM
|
|||
|
|||
Week In Month
I have a problem , which I got a date and I need to know that this date is what week for that month ? Like week1 , week2 , week3....
HOw can I do it in vb.net ?? Thanks you !!
|
|
#2
February 23rd, 2005, 05:21 AM
|
|||
|
|||
|
DateTime has a property called DayOfYear which you could divide by 7.
Dont forget to consider the cases where the year does not begin neatly on the first day of the week
|
|
#5
March 10th, 2005, 05:16 AM
|
|||
|
|||
Below here the code for the solution... If anybody like can try for it ~~!!!
PublicFunction GetWeekOfMonth(ByVal xYear AsInteger, ByVal xMonth AsInteger, ByVal xDay AsInteger) AsInteger Try Dim xDate AsDate Dim xDate1 As DayOfWeek Dim xFirstdayOfMonth AsInteger Dim xWeek1DayRange AsString Dim xWeek2DayRange AsString Dim xWeek3DayRange AsString Dim xWeek4DayRange AsString Dim xWeek5DayRange AsString Dim xWeek1() AsString Dim xWeek2() AsString Dim xWeek3() AsString Dim xWeek4() AsString Dim xWeek5() AsString Dim xMaxDay() AsInteger = {0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31, 0} Dim xTotalDayOfMonth AsInteger xDate = DateSerial(xYear, xMonth, 1) xTotalDayOfMonth = xMaxDay(xMonth) If xMonth = 2 Then If ((xYear Mod 4 = 0 And xYear Mod 100 <> 0) Or xYear Mod 400 = 0) Then xTotalDayOfMonth = xTotalDayOfMonth + 1 EndIf EndIf xDate1 = xDate.DayOfWeek xFirstdayOfMonth = xDate1 xWeek1DayRange = 1 & "," & 7 - xFirstdayOfMonth xWeek2DayRange = 7 - xFirstdayOfMonth + 1 & "," & 7 - xFirstdayOfMonth + 1 + 6 xWeek3DayRange = 7 - xFirstdayOfMonth + 1 + 6 + 1 & "," & 7 - xFirstdayOfMonth + 1 + 6 + 6 + 1 xWeek4DayRange = 7 - xFirstdayOfMonth + 1 + 6 + 6 + 1 + 1 & "," & 7 - xFirstdayOfMonth + 1 + 6 + 6 + 6 + 1 + 1 xWeek5DayRange = 7 - xFirstdayOfMonth + 1 + 6 + 6 + 6 + 1 + 1 + 1 & "," & xTotalDayOfMonth xWeek1 = xWeek1DayRange.Split(",".ToCharArray) xWeek2 = xWeek2DayRange.Split(",".ToCharArray) xWeek3 = xWeek3DayRange.Split(",".ToCharArray) xWeek4 = xWeek4DayRange.Split(",".ToCharArray) xWeek5 = xWeek5DayRange.Split(",".ToCharArray) If xDay < xWeek1(1) Then GetWeekOfMonth = 1 Else If xDay > xWeek2(1) Then If xDay > xWeek3(1) Then If xDay > xWeek4(1) Then GetWeekOfMonth = 5 Else GetWeekOfMonth = 4 EndIf Else GetWeekOfMonth = 3 EndIf Else GetWeekOfMonth = 2 EndIf EndIf Catch errMsg As System.Exception mdlMsg.Msg("ClassSystem.GetWeekOfMonth : " & errMsg.Message, mdlMsg.MessageType.ErrorMsg) GetWeekOfMonth = 0 EndTry EndFunction
|
|
| Viewing: Dev Articles Community Forums > Programming > .NET Development > Week In Month |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
