Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Kalenderwoche und Datum

Forumthread: Kalenderwoche und Datum

Kalenderwoche und Datum
03.07.2004 23:56:08
Roland
Hallo zusammen,
ich möchte in einer Textbox die Kalenderwoche (z.B. 37) eingeben und dann den zugehörigen Montag (als 1. Tag der Woche) und den nächsten Sonntag in einer Labelbox angezeigt bekommen!
Wer kann mir bei der Formel oder VBA-Code helfen?
Besten Dank
Roland
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche und Datum
04.07.2004 01:01:36
Roland
Hallo Klaus-Dieter,
ich habe die richtige Info nach deinem Rat gefunden!
Besten Dank für die schnelle Hilfe!
Roland
AW: Montag der Kalenderwoche x
FP
Hallo Roland,
diese Funktion gibt Dir das Datum des Montags der gesuchten KW zurück:

Function KW2Montag(Optional KW As Byte, Optional Jahr As Integer) As Date
KW = IIf(KW * -(KW < 54) > 0, KW, 1)
Jahr = IIf(Jahr < 1901, Year(Date), Jahr)
KW2Montag = DateSerial(Jahr, 1, KW * 7) - 3 - DateSerial(Jahr, 1, 2) Mod 7
End Function

Wird weder die KW noch das Jahr übergeben, ermittelt die Funktion den Montag der KW 1 des aktuellen Jahres.
Den Sonntag erhältst Du dann, indem Du 6 Tage zum derart ermittelten Datum addierst.
Servus aus dem Salzkammergut
Franz
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige