Alle Kalenderwochen eines Jahres mit Start und Ende Datum

    • VB.NET

    Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von muecke3.16.

      Alle Kalenderwochen eines Jahres mit Start und Ende Datum

      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).

      VB.NET-Quellcode

      1. Public Class Form1
      3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      4. 'listview einstellen
      5. Me.ListView1.View = View.Details
      6. Me.ListView1.Columns.Add("KW")
      7. Me.ListView1.Columns.Add("Start")
      8. Me.ListView1.Columns.Add("Ende")
      9. Me.ListView1.Dock = DockStyle.Fill
      10. 'ersten tag der zweiten woche finden
      11. Dim tag As Integer = 1
      12. Do
      13. If GetKW(New Date(Now.Year, 1, tag)) = 2 Then
      14. 'tag -= 1
      15. Exit Do
      16. End If
      17. tag += 1
      18. Loop
      19. 'alle wochen in eine listbox eintragen
      20. Add2List(1, New Date(Now.Year, 1, 1), New Date(Now.Year, 1, tag - 1))
      21. Dim d_start As New Date(Now.Year, 1, tag)
      22. For i As Integer = 2 To 52
      23. Dim d_end As Date = d_start.AddDays(6)
      24. Add2List(i.ToString, d_start, d_end)
      25. d_start = d_start.AddDays(7)
      26. Next
      27. End Sub
      29. Private Function GetKW(ByVal d As Date) As Integer
      30. Return DatePart(DateInterval.WeekOfYear, d, FirstDayOfWeek.Monday)
      31. End Function
      33. Private Sub Add2List(ByVal kw As String, ByVal d1 As Date, ByVal d2 As Date)
      34. Dim li As ListViewItem = Me.ListView1.Items.Add(kw)
      35. li.SubItems.Add(d1.ToString)
      36. li.SubItems.Add(d2.ToString)
      37. End Sub
      38. End Class

      Gruss

      mikeb69

      Ich hätte noch eine Möglichkeit wie man die aktuelle KW herausfindet.
      folgendes in eine Klasse schreiben:

      VB.NET-Quellcode

      1. Public Class KW
      3. Public KW As String
      5. Public Sub New(ByVal newDate As Date)
      6. ausgabe(newDate)
      7. End Sub
      9. Public Function DateToWeek(ByVal dDate As Date) As String
      10. ' Startdatum der ersten Kalenderwoche des Jahres und Folgejahres berechnen
      11. Dim dThisYear As Date = CalendarWeek(1, dDate.Year)
      12. Dim dNextYear As Date = CalendarWeek(1, dDate.Year + 1)
      14. ' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört
      15. If dDate >= dNextYear Then
      16. ' Rückgabe: KW 1 des Folgejahres
      17. Return dDate.Year + 1 & "01"
      18. Else
      19. ' KW = Differenz zum ersten Tag der ersten Woche
      20. Return dDate.Year & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00")
      21. End If
      22. End Function
      24. Public Function CalendarWeek(ByVal nWeek As Integer, _
      25. ByVal nYear As Integer) As Date
      27. ' Wochentag des 4. Januar des Jahres ermitteln
      28. Dim dStart As New Date(nYear, 1, 4)
      29. Dim nDay As Integer = (dStart.DayOfWeek + 6) Mod 7 + 1
      31. ' Beginn der 1. KW des Jahres
      32. Dim dFirst As Date = dStart.AddDays(1 - nDay)
      34. ' Gesuchte KW ermitteln
      35. Return dFirst.AddDays((nWeek - 1) * 7)
      36. End Function
      38. Sub ausgabe(ByVal newDate As Date)
      40. 'Heutiges Datum
      41. Dim sKW As String = DateToWeek(CDate(newDate))
      43. 'sKW.Remove entfernt die letzten beiden Zeichen vorher:(200842) nachher:(2008)
      44. 'sKW.Substring zeigt nur die letzen beiden Zeichen an, die für die KW
      45. KW = sKW.Remove(4, 2) & " KW" & sKW.Substring(4, 2)
      47. End Sub
      48. End Class


      Beispielaufruf:

      VB.NET-Quellcode

      1. Public Wochentag As KW
      2. Wochentag = New KW(DateAdd(DateInterval.WeekOfYear, weekzaehler, Date.Now))
      3. lb2.Text = GetWochentag(Date.Now)

    Facebook