Hallo,
aus gegebenem Anlass hier ein kleines Codeschnippsel wie man alle Kalenderwochen mit ihren jeweiligen Start und Ende Datums (?) ermittelt.
Hierfür benötigt ihr ein ListView (ListView1).
Gruss
mikeb69
aus gegebenem Anlass hier ein kleines Codeschnippsel wie man alle Kalenderwochen mit ihren jeweiligen Start und Ende Datums (?) ermittelt.
Hierfür benötigt ihr ein ListView (ListView1).
VB.NET-Quellcode
- Public Class Form1
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'listview einstellen
- Me.ListView1.View = View.Details
- Me.ListView1.Columns.Add("KW")
- Me.ListView1.Columns.Add("Start")
- Me.ListView1.Columns.Add("Ende")
- Me.ListView1.Dock = DockStyle.Fill
- 'ersten tag der zweiten woche finden
- Dim tag As Integer = 1
- Do
- If GetKW(New Date(Now.Year, 1, tag)) = 2 Then
- 'tag -= 1
- Exit Do
- End If
- tag += 1
- Loop
- 'alle wochen in eine listbox eintragen
- Add2List(1, New Date(Now.Year, 1, 1), New Date(Now.Year, 1, tag - 1))
- Dim d_start As New Date(Now.Year, 1, tag)
- For i As Integer = 2 To 52
- Dim d_end As Date = d_start.AddDays(6)
- Add2List(i.ToString, d_start, d_end)
- d_start = d_start.AddDays(7)
- Next
- End Sub
- Private Function GetKW(ByVal d As Date) As Integer
- Return DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday)
- End Function
- Private Sub Add2List(ByVal kw As String, ByVal d1 As Date, ByVal d2 As Date)
- Dim li As ListViewItem = Me.ListView1.Items.Add(kw)
- li.SubItems.Add(d1.ToString)
- li.SubItems.Add(d2.ToString)
- End Sub
- End Class
Gruss
mikeb69