Kalenderwoche eingeben, Datum ausgeben

Hallo Leute,
wir haben hier ein Problem mit einigen Excel-Auswertungen. Man kann die KW angeben und er spuckt automatisch Anfangs- und Enddatum der Woche aus.
Das lief bis jetzt ganz gut. Nur dieses Jahr gab es mit der Funktion Probleme weil der 1. und 2. Januar auf Wochenende fielen. Ergo lieferte die Funktion für die KW1/2005 Datum 27.12.2004 bis 02.01.2005 zurück.
Aufgrund Zeitmangels habe ich dann im WWW nach dem Problem gesucht und einige Lösungsansätze gefunden (auch hier). Doch leider konnte mich keine Funktion bis jetzt zufrieden stellen.
Das was bisher funktioniert - also meine derzeitige Lösung - macht spätestens beim nächsten Schaltjahr Probleme (2009) bzw. in der 1. KW 2004. Eine andere verwendete Lösung bringt mir ein für einige KWs in 2004 falsche Daten.
Ihr seid die letzte Hoffnung. Hat einer eine gescheite Funktion die alle WorstCase Szenarios abfängt? Wäre echt klasse (auch für das Archiv - denk ich mal).
Gruß und danke,
Fritz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fritz,
hier ein wenig Code.
Hatte bisher keine Sorgen damit.
Hoffe es hilft dir.
Gruß Holger.
'Description: Die Kalenderwoche eines Datums ermitteln
'Parameters: [datCheckDate]
'Return: Integer
'* DT03 ****************************************************
Public


Function GetGermanCalendarWeek( _
Optional ByVal datCheckDate As Date) As Integer
Dim datLastDay As Date
Dim intWeek As Integer
If datCheckDate = 0 Then datCheckDate = Date
'nach DIN1355...
intWeek = DatePart("ww", datCheckDate, vbMonday, _
vbFirstFourDays)
If intWeek = 53 And Month(datCheckDate) = 12 Then
datLastDay = CDate("12/31/" & DatePart("yyyy", datCheckDate))
If Weekday(datLastDay, vbMonday) >= 4 Then
GetGermanCalendarWeek = intWeek
Else
GetGermanCalendarWeek = 1
End If
Else
GetGermanCalendarWeek = intWeek
End If
End Function

'Description: Die Anzahl der Kalenderwochen eines Jahres ermitteln
'Parameters: intYear
'Functions: GetGermanCalendarWeek
'Return: Integer
'* DT04 ****************************************************
Public


Function CountGermanCalendarWeeks( _
ByVal intYear As Integer) As Integer
If DatePart("w", DateSerial(intYear, 1, 1), _
vbMonday) = 4 Or DatePart("w", DateSerial(intYear, _
12, 31), vbMonday) = 4 Then
CountGermanCalendarWeeks = 53
Else
CountGermanCalendarWeeks = 52
End If
End Function

'Description: Den ersten Tag einer bestimmten Kalenderwoche ermitteln
'Parameters: intWeek, intYear
'Functions: CountGermanCalendarWeeks
'Return: Date
'* DT05 ****************************************************
Public


Function GetFirstDayOfGermanCalendarWeek( _
ByVal intWeek As Integer, _
ByVal intYear As Integer) As Date
Dim datStartDate As Date
If intWeek <= CountGermanCalendarWeeks(intYear) Then
datStartDate = DateAdd("d", _
DateSerial(intYear, 1, 4), -DatePart _
("w", DateSerial(intYear, 1, 4), vbMonday) + 1)
GetFirstDayOfGermanCalendarWeek = DateAdd("ww", _
intWeek - 1, datStartDate)
End If
End Function

Beliebteste Forumthreads (12 Monate)

Kalenderwoche eingeben, Datum ausgeben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kalenderwoche eingeben, Datum ausgeben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread