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

x
?
Solved

Get months and year from a combobox and put in a list

Posted on 2013-10-23
3
Medium Priority
?
1,117 Views
Last Modified: 2013-10-28
I have a 2 comboboxes that contain a month, year.  I need to get a range of the months/years between the 2 combobox's.

combobox1=May,2013
combobox2=August,2013

So I would like a set a variable in a list that contains these dates in a date format.
Something like
Dim mydates As ArrayList
                    mydates.Add("May" & "2013")
                    mydates.Add("June" & "2013")
                    mydates.Add("July" & "2013")
                    mydates.Add("August" & "2013")

I just need these in a date format so I can use them late in a date function.  I'm not sure how to calculate the range to put into the list.
0
Comment
Question by:chadmanvb
3 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 2000 total points
ID: 39595097
Try something like this:
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If ComboBox1.SelectedIndex <> -1 AndAlso ComboBox2.SelectedIndex <> -1 Then
            Dim myDates As New List(Of String)

            Dim startDT As DateTime
            Dim stopDT As DateTime
            Dim English As New System.Globalization.CultureInfo("en-US")
            If DateTime.TryParseExact(ComboBox1.SelectedItem, "MMMM,yyyy", English, Globalization.DateTimeStyles.AllowWhiteSpaces, startDT) Then
                If DateTime.TryParseExact(ComboBox2.SelectedItem, "MMMM,yyyy", English, Globalization.DateTimeStyles.AllowWhiteSpaces, stopDT) Then
                    While startDT <= stopDT
                        myDates.Add(startDT.ToString("MMMM,yyyy", English))
                        startDT = startDT.AddMonths(1)
                    End While
                End If
            End If
            For Each dt As String In myDates
                Debug.Print(dt)
            Next
        End If
    End Sub

Open in new window

0
 
LVL 28

Expert Comment

by:Ark
ID: 39599560
Just simplified way if
a) both combos have same date set
b) dates are in continuous ascending order (month by month without skips)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim months = System.Globalization.CultureInfo.InvariantCulture.DateTimeFormat.MonthNames
        Dim years = "2012,2013,2014".Split(","c)
        For Each y In years
            For Each m In months.Where(Function(x) x <> "")
                ComboBox1.Items.Add(m & "," & y)
                ComboBox2.Items.Add(m & "," & y)
            Next
        Next
        ComboBox1.SelectedIndex = 0
        ComboBox2.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dtStart As Date
        Dim lstDates As New List(Of Date)
        If DateTime.TryParseExact(ComboBox1.Items(0), "MMMM,yyyy",
                                  Globalization.CultureInfo.InvariantCulture,
                                  Globalization.DateTimeStyles.None,
                                  dtStart) Then
            For i = ComboBox1.SelectedIndex To ComboBox2.SelectedIndex
                lstDates.Add(dtStart.AddMonths(i))
            Next
        End If
        MsgBox("You select: " & vbCrLf & String.Join(vbCrLf, (From x In lstDates Select x.ToString("MMMM,yyyy"))))
    End Sub

Open in new window

Actually, in this case (when a) and b) are true, or at least b) is true) you can store just combo indexes. When form is loaded, you can get baseDate=DateTime.ParseExact(combo1.items(0))
and then use in a date function like
For i=firstComboIndex to secondComboIndex
     YourDateFunction(baseDate.AddMonth(i))
Next

If combos have different date set, you can use

Dim baseDate = New Date(2010,1,1)
combo1Offset = 24 'months - assuming combo1 starts from Jan,2012
combo2Offset = 30 'months - assuming combo2 starts from Jul,2012

For i=firstComboIndex+combo1Offset to secondComboIndex + combo2Offset
     YourDateFunction(baseDate.AddMonth(i))
Next
0
 

Author Closing Comment

by:chadmanvb
ID: 39605517
Thanks!  That worked great.
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering 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

Navigation is an important part of web design from a usability perspective. But it is often a pain when it comes to a developer’s perspective. By navigation, it often means menuing. This is less theory and more practical of how to get a specific gro…
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.
The viewer will learn how to user default arguments when defining functions. This method of defining functions will be contrasted with the non-default-argument of defining functions.
The viewer will be introduced to the technique of using vectors in C++. The video will cover how to define a vector, store values in the vector and retrieve data from the values stored in the vector.
Suggested Courses

772 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