Aktuelle Woche ermitteln

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von wincnc.

    Hallo

    Es gibt eine einfache Art, die ist aber nicht immer genau.

    VB.NET-Quellcode

    1. MsgBox(DatePart(DateInterval.WeekOfYear, Now, FirstDayOfWeek.Monday, FirstWeekOfYear.FirstFourDays))


    Manchmal kommt es auch vor, dass die 1. Kw noch im alten Jahr beginnt.
    Damit funktioniert es.

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim sKW As String = DateToWeek(Now)
    4. MsgBox(sKW.Substring(4, 2))
    5. End Sub
    7. Public Function DateToWeek(ByVal dDate As Date) As String
    8. ' Startdatum der ersten Kalenderwoche des Jahres und Folgejahres berechnen
    9. Dim dThisYear As Date = CalendarWeek(1, dDate.Year)
    10. Dim dNextYear As Date = CalendarWeek(1, dDate.Year + 1)
    12. ' Prüfen, ob Datum zur ersten Woche des Folgejahres gehört
    13. If dDate >= dNextYear Then
    14. ' Rückgabe: KW 1 des Folgejahres
    15. Return dDate.Year + 1 & "01"
    16. Else
    17. ' KW = Differenz zum ersten Tag der ersten Woche
    18. Return dDate.Year & Format$(dDate.Subtract(dThisYear).Days \ 7 + 1, "00")
    19. End If
    20. End Function
    22. Public Function CalendarWeek(ByVal nWeek As Integer, _
    23. ByVal nYear As Integer) As Date
    25. ' Wochentag des 4. Januar des Jahres ermitteln
    26. Dim dStart As New Date(nYear, 1, 4)
    27. Dim nDay As Integer = (dStart.DayOfWeek + 6) Mod 7 + 1
    29. ' Beginn der 1. KW des Jahres
    30. Dim dFirst As Date = dStart.AddDays(1 - nDay)
    32. ' Gesuchte KW ermitteln
    33. Return dFirst.AddDays((nWeek - 1) * 7)
    34. End Function
    35. End Class

    Vielen Dank!

    Ich habe auch eine kleine Funktion gebaut.
    Und sie getestet. Einen Fehlerfall konnte ich noch nicht entdecken:

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Errechnet die aktuelle Kalenderwoche
    3. ''' </summary>
    4. Public Function GetCurrentWeekOfYear() As Int32
    5. Dim Days As Int16 = 1
    6. For m As Int32 = 1 To Date.Now.Month
    7. Days += Date.DaysInMonth(Date.Now.Year, m)
    8. Next
    9. Days -= (Date.DaysInMonth(Date.Now.Year, Date.Now.Month) - Date.Now.Day)
    10. Return Convert.ToInt32(Math.Ceiling(Days / 7))
    11. End Function