|
Excel-Version: 2000
Datums-Berechnung von Willy vom 30.04.2002 - 08:58:31
Re: Datums-Berechnung von Rolf, Lgh. vom 30.04.2002 - 10:17:10
vielleicht so von Rolf, Lgh. vom 30.04.2002 - 11:12:09
Re: vielleicht so von Willy vom 01.05.2002 - 08:27:21
Hallo
Ich suche eine Formel oder Funktion, die mir das Datum des Montags der Woche 1 berechnet. In A1 gebe ich die Jahreszahl z.B. 2004 ein, in der Zelle B2 soll das Datum des Montags der Woche 1 erscheinen.
Vielen Dank
|
Hallo Willy, vielleicht hilft Dir oder anderen das weiter:  von Rolf, Lgh. an Willy | | | A | B | C | D | E | F | | 1 | 2004 | | | | | | | 2 | 25.12.2003 | | 52 | =ISOWeek(A2) | Donnerstag | =TEXT(A2;"TTTT") | | 3 | 26.12.2003 | | 52 | usw. | Freitag | usw. | | 4 | 27.12.2003 | | 52 | | Samstag | | | 5 | 28.12.2003 | | 52 | | Sonntag | | | 6 | 29.12.2003 | | 1 | | Montag | | | 7 | 30.12.2003 | usw. | 1 | | Dienstag | | | 8 | 31.12.2003 | =A9-1 | 1 | | Mittwoch | | | 9 | 01.01.2004 | =DATUM($A$1;1;1) | 1 | | Donnerstag | | | 10 | 02.01.2004 | =A9+1 | 1 | | Freitag | | | 11 | 03.01.2004 | usw. | 1 | | Samstag | | | 12 | 04.01.2004 | | 1 | | Sonntag | | | 13 | 05.01.2004 | | 2 | | Montag | | | 14 | 06.01.2004 | | 2 | | Dienstag | | | 15 | 07.01.2004 | | 2 | | Mittwoch | |
Option Explicit'StandardModule: basMain Function ISOWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - _
Weekday(dat)) Mod 7 - 3), 1, 1)
ISOWeek = (dat - dbl - 3 + _
(Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function
Gruß Rolf
vielleicht so
von: Rolf, Lgh.
Geschrieben am: 30.04.2002 - 11:12:09
Option Explicit'StandardModule: basMain Function ISOWeek(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - _
Weekday(dat)) Mod 7 - 3), 1, 1)
ISOWeek = (dat - dbl - 3 + _
(Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function Function Montag_der_Woche_Eins(Jahr As Integer) As Date
Dim strWochentag As String
Dim intWoche As Integer
Dim datDatum As Date
datDatum = "01.01." & Jahr
strWochentag = Format(datDatum, "dddd")
intWoche = ISOWeek(datDatum)
If intWoche > 1 Then GoTo Später
Do Until intWoche = 1 And strWochentag = "Montag"
datDatum = datDatum - 1
strWochentag = Format(datDatum, "dddd")
intWoche = ISOWeek(datDatum)
Loop
Später:
Do Until intWoche = 1 And strWochentag = "Montag"
datDatum = datDatum + 1
strWochentag = Format(datDatum, "dddd")
intWoche = ISOWeek(datDatum)
Loop
Montag_der_Woche_Eins = datDatum
End Function
Hallo Rolf
Vielen Dank für die beiden Funktionen. Es funktioniert ausgezeichnet; genau wie gewünscht.
Willy.
|
Das Archiv des Excel-Forums