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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.