24.01.2016, 13:04
Hallo zusammen, und einen schönen Sonntag
Seit 2008 Funktioniert meine Private Zeit Erfassung mit Datum und Kalender Woche ohne Probleme
aber seit diesem Jahr stimmt das Datum und die Kalender Woche nicht mehr Überein am Schaltjahr kann es
ja eigentlich nicht liegen denn 2012 war ja auch eines und da hatte ich das Phänomen nicht genau gesagt
mein Code für die KW liefert mir immer das Datum von einer Woche zuvor
Seit 2008 Funktioniert meine Private Zeit Erfassung mit Datum und Kalender Woche ohne Probleme
aber seit diesem Jahr stimmt das Datum und die Kalender Woche nicht mehr Überein am Schaltjahr kann es
ja eigentlich nicht liegen denn 2012 war ja auch eines und da hatte ich das Phänomen nicht genau gesagt
mein Code für die KW liefert mir immer das Datum von einer Woche zuvor
Code:
Public Sub Kalenderwoche_Ermitteln()
On Error GoTo Fehler
AktuellesDatum = Date
If IsEmpty(AktuellesDatum) Then Exit Sub
If Not IsDate(AktuellesDatum) Then
MsgBox "Ungültiges Datum"
Exit Sub
End If
Cells(1, 2) = "Die Aktuelle Kalenderwoche für den " & AktuellesDatum & " ist die Nr.: " & DIN_KW(AktuellesDatum)
ActiveSheet.Cells(8, 8) = DIN_KW(AktuellesDatum)
Sheets("Stammblatt").Range("KWZelle") = DIN_KW(AktuellesDatum)
Sheets("Stammblatt").Range("Q1") = DIN_KW(AktuellesDatum)
Exit Sub
Fehler:
MsgBox Err.Description
End Sub
Public Function DIN_KW(DasDatum As Date) As Byte
KW = 5 + DasDatum - Weekday(DasDatum, 2)
DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function