Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

VB.NET Week Day Dates

Posted on 2013-01-26
3
Medium Priority
?
1,454 Views
Last Modified: 2013-01-27
Hello,

I am trying to get an array of dates for a given month.

For example, the user enters the month they want e.g. September 2012.

I then need to find the first and last date of that month. (Done that)

Then I need to get the dates for each week in that month.

So it will be formatted like the below.

3 September 2012 - 7 September 2012
10 September 2012 - 14 September 2012
17 September 2012 - 21 September 2012
21 September 2012 - 28 September 2012

I need the first date it gets to start on the first week day for that month so ignoring Saturday and Sunday.
I need it to finish on the very last date of that month but during the week.

Another example would be for August 2012

1 August 2012 - 3 August 2012
6 August 2012 - 10 August 2012
13 August 2012 - 17 August 2012
20 August 2012 - 24 August 2012
27 August 2012 - 31 August 2012


I have currently got a loop which is like the below.

   Do While blStop = False
            ' TextBox1.Text &= dtestart.ToLongDateString & vbNewLine
            If dtestart.Month <> dtestart.AddDays(x).Month Then
                '    MsgBox("Month has changed")
                arrDates(TheCounter) = dtestart & " - " & dtestart.AddDays(x - 1)
                TheCounter += 1
                ReDim Preserve arrDates(TheCounter)
                blStop = True
            Else
                If dtestart.AddDays(x).DayOfWeek = DayOfWeek.Friday Then
                    arrDates(TheCounter) = dtestart & " - " & dtestart.AddDays(x)
                    TheCounter += 1
                    ReDim Preserve arrDates(TheCounter)
                    dtestart = dtestart.AddDays(x + 3)
                    x = 0
                ElseIf dtestart.AddDays(x).DayOfWeek = DayOfWeek.Monday Then
                    ' dtestart = dtestart.AddDays(x)
                    x = 0
                ElseIf dtestart.AddDays(x).DayOfWeek = DayOfWeek.Saturday Or dtestart.AddDays(x).DayOfWeek = DayOfWeek.Sunday Then
                    x += 1
                End If
            End If
            x += 1
        Loop

Open in new window


Which does report correctly to an extent however it is also bringing in October dates where as I only want September.

The results I get from the above is

03 September 2012 - 07 September 2012
10 September 2012 - 14 September 2012
17 September 2012 - 21 September 2012
24 September 2012 - 28 September 2012
01 October 2012 - 05 October 2012
08 October 2012 - 12 October 2012
15 October 2012 - 19 October 2012
22 October 2012 - 26 October 2012
29 October 2012 - 31 October 2012


Any help in trying to solve this would be great please.

Thanks,
0
Comment
Question by:BoltonWanderer
3 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 1680 total points
ID: 38823213
Try this out:
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dtestart As DateTime = DateTimePicker1.Value
        Dim weeks As List(Of String) = GetWeeks(dtestart)

        For Each week As String In weeks
            Debug.Print(week)
        Next
    End Sub

    Private Function GetWeeks(ByVal dt As DateTime) As List(Of String)
        Dim weeks As New List(Of String)

        Dim stopDT As DateTime
        Dim curDT As New DateTime(dt.Year, dt.Month, 1)
        While curDT.DayOfWeek = DayOfWeek.Saturday Or curDT.DayOfWeek = DayOfWeek.Sunday
            curDT = curDT.AddDays(1)
        End While

        While curDT.Year = dt.Year AndAlso curDT.Month = dt.Month
            stopDT = curDT
            While stopDT.DayOfWeek <> DayOfWeek.Friday
                stopDT = stopDT.AddDays(1)
            End While
            While stopDT.Month <> curDT.Month
                stopDT = stopDT.AddDays(-1)
            End While

            weeks.Add(curDT.ToString("d MMMM yyyy") & " - " & stopDT.ToString("d MMMM yyyy"))

            curDT = curDT.AddDays(1)
            While curDT.DayOfWeek <> DayOfWeek.Monday
                curDT = curDT.AddDays(1)
            End While
        End While

        Return weeks
    End Function

Open in new window

0
 
LVL 37

Expert Comment

by:TommySzalapski
ID: 38823234
Your problem is this line
dtestart = dtestart.AddDays(x + 3)
If that changes destart to the next month it will continue.

Probably the easiest way to fix it would just be to check if dtestart and dtestart.AddDays(x + 3) were the same month first and stop the loop in that case.
0
 

Author Closing Comment

by:BoltonWanderer
ID: 38823987
Worked perfectky. Thank you.
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Nadia
Linear search (searching each index in an array one by one) works almost everywhere but it is not optimal in many cases. Let's assume, we have a book which has 42949672960 pages. We also have a table of contents. Now we want to read the content on p…
Calculating holidays and working days is a function that is often needed yet it is not one found within the Framework. This article presents one approach to building a working-day calculator for use in .NET.
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an anti-spam), the admin…
Suggested Courses

963 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question