Hallo
hab es hinbekommen das ich aus drei Comboboxen
das Datum im Label anzeigt.
Problem ist das Prüfen von Schaltjahr.
Mein Code
L.G. Willi
hab es hinbekommen das ich aus drei Comboboxen
das Datum im Label anzeigt.
Problem ist das Prüfen von Schaltjahr.
Mein Code
VB.NET-Quellcode
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- 'Combobox cbJahre füllen
- For y = 1900 To 2100
- cbJahre.Items.Add(y)
- Next y
- 'Combobox cbMonate füllen
- For m = 1 To 12
- cbMonate.Items.Add(MonthName(m)).ToString("MMMM")
- Next m
- 'Combobox cbTage füllen
- For d = 1 To 31
- cbTage.Items.Add(d)
- Next
- 'Text Select
- cbJahre.SelectedText = DateTime.Now.Year.ToString
- cbMonate.SelectedText = (MonthName(DateTime.Now.Month)).ToString
- cbTage.SelectedText = DateTime.Now.Day.ToString
- 'Datum anzeigen im Label
- labelanzeige()
- End Sub
- Private Sub cbJahre_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbJahre.SelectedValueChanged
- labelanzeige()
- End Sub
- Private Sub cbMonate_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbMonate.SelectedValueChanged
- If Date.IsLeapYear(CInt(cbJahre.SelectedText)) = False And CInt(cbMonate.SelectedText) = CInt("Februar") And CInt(cbTage.SelectedText) > CInt("28") Then
- MessageBox.Show(cbJahre.SelectedText & " ist kein Schaltjahr")
- Exit Sub
- Else
- labelanzeige()
- End If
- End Sub
- Private Sub cbTage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbTage.SelectedIndexChanged
- labelanzeige()
- End Sub
- Sub labelanzeige()
- jahr = CInt(cbJahre.Text)
- tage = CInt(cbTage.Text)
- Select Case cbMonate.Text
- Case "Januar"
- monat = 1
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "Februar"
- monat = 2
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "März"
- monat = 3
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "April"
- monat = 4
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "Mai"
- monat = 5
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "Juni"
- monat = 6
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "Juli"
- monat = 7
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "August"
- monat = 8
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "September"
- monat = 9
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "Oktober"
- monat = 10
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "November"
- monat = 11
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- Case "Dezember"
- monat = 12
- j = New DateTime(jahr, monat, tage)
- lblDatumAnzeige.Text = j.ToString(" dddd dd MMMM yyyy")
- End Select
- End Sub
L.G. Willi