Datum aus Kalenderwoche ermitteln Die Funktion ermittelt aus der übergebenen Kalenderwoche das Datum des Montags dieser Woche.
Autor:   Microsys Kramer	Bewertung:     [ Jetzt bewerten ]	Views:  44.999
www.access-paradies.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 27 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.1 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgende Funktion ermittelt aus der übergebenen Kalenderwoche das Datum des Montags dieser Woche.

Public Function Datum_KW(ByVal nKW As Integer, _
  ByVal nYear As Integer) As Date
 
  On Error GoTo Err_Datum_KW
 
  Dim d As Integer
  Dim vDate  As Date
 
  vDate = "01.01." & CStr(nYear)
  For d = 0 To 6
    If Format(vDate + d, "ww", vbMonday, vbFirstFourDays) = 1 Then
      Datum_KW = vDate + d + (nKW - 1) * 7 - 2
      Datum_KW = Datum_KW - (Weekday(Datum_KW, vbMonday) - 1)
    End If
  Next d
  Exit Function
 
Err_Datum_KW:
  MsgBox Err.Description
End Function

Beispiel für den Aufruf:

' Datum der 43. Kalenderwoche im Jahr 2003
Dim vDate As Date
vDate = Datum_KW(43, 2003)
MsgBox "Montag: " & vDate