Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Woche

Woche
13.03.2003 21:12:41
cldk
Hallo,
welche Funktion kann aus einem Datum die aktuelle Woche berechnen.
z.b. Heute 13.03.03 ist die 11te Woche. Der 20.03.03 ist in der 12ten Woche.

Danke

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Woche
13.03.2003 21:16:18
Forum

m Register
Warum muß es so eine komplizierte Formel sein Erklärung von WF
Die Funktion KALENDERWOCHE rechnet falsch oder sagen wir es gnädiger: nach amerikanischem Standard. Der 01.01.2000 z.B. ist laut DIN die 52. KW des Jahres 1999; - in den USA die erste im Jahre 2000. Das hab ich mir irgendwann mal kopiert:
Erst 1976 wurde der Wochenbeginn auf Montag festgelegt. Die erste Woche des Jahres ist definiert als die Woche, in die mindestens 4 Tage fallen. Beides = DIN 1355 (1974) Entspricht der internationalen Norm ISO 8601 (1988); -übernommen von der EU als EN 28601 (1992) und in Deutschland als DIN EN 28601 (1993) umgesetzt.
=KÜRZEN((G6-WOCHENTAG(G6;2)-DATUM(JAHR(G6+4-WOCHENTAG(G6;2));1;-10))/7)&". KW"
von WF

Anzeige
Re: Woche
13.03.2003 21:20:11
M@x

hi,
'=Kalenderwoche(A1;2)
näheres zur Funktion schau in der Hilfe nach

Gruss

M@x

Re: Woche
13.03.2003 21:28:56
cldk

Danke,
ich muss den add-in manager starten um diese funktion auszuführen können. Da kann ich lange suchen.
Danke
cldk

Re: Woche
13.03.2003 21:36:19
Charly

... wie Hajo schreibt, die Funktion rechnet nach amerikan. Standard.
Also für Deutschland unbrauchbar.
MfG Charly

Re: Woche
13.03.2003 22:42:17
Sigi E.

Hallo Charly,

für 2003 und 2004 stimmt die Funktion Kalenderwoche() mit Aus-
nahme der Tage 29.,30. u. 31. Dez. 2003 mit der deutschen DIN-
Norm überein!

Gruß
Sigi

Na ja ...
13.03.2003 23:51:10
Charly

Sigi, so kann man das natürlich auch sehen.
Die Funktion rechnet fast immer rihtig, aber überprüfen Sie bitte das Ergebnis!
Oder wie meinst du das?
MfG Charly

Anzeige
Hier als Funktion
14.03.2003 01:08:00
Jörg Gradert

Hallo,
leider nicht auf meinem Mist gewachsen:

Function din_kw(datum As Date) As Integer
Dim i, j, k As Integer
i = datum - DateSerial(Year(datum), 1, 1)
k = WeekDay(DateSerial(Year(datum), 1, 1), vbMonday)
j = Int((i - (8 - k)) / 7) + 1
If k <= 4 Then j = j + 1
If j = 0 Then
j = din_kw(DateSerial(Year(datum) - 1, 12, 31))
ElseIf j = 53 And WeekDay(DateSerial(Year(datum), 12, 31), vbMonday) <= 3 Then
j = 1
End If
din_kw = j
End Function

Gruß Jörg


Re: Na ja ...
14.03.2003 22:47:56
Sigi E.

Hallo Charly,

ich wollte damit nur zum Ausdruck bringen, dass diese Funktion
manchmal durchaus 'brauchbar' sein kann, sofern man die Unter-
schiede zwischen DIN-Norm u. US-Norm kennt.

Gruß
Sigi

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige