Solved

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

Posted on 2013-10-23
3
1,012 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 86

Accepted Solution

by:
Mike Tomlinson earned 500 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

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
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.
This tutorial will introduce the viewer to VisualVM for the Java platform application. This video explains an example program and covers the Overview, Monitor, and Heap Dump tabs.
The goal of the video will be to teach the user the difference and consequence of passing data by value vs passing data by reference in C++. An example of passing data by value as well as an example of passing data by reference will be be given. Bot…

630 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