Woche

Forumthread: 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

Re: Woche

13.03.2003 21:16:18

Forum
Re: Woche

13.03.2003 21:20:11

M@x
Re: Woche

13.03.2003 21:28:56

cldk
Re: Woche

13.03.2003 21:36:19

Charly
Re: Woche

13.03.2003 22:42:17

Sigi E.
Na ja ...

13.03.2003 23:51:10

Charly
Hier als Funktion

14.03.2003 01:08:00

Jörg Gradert
Re: Na ja ...

14.03.2003 22:47:56

Sigi E.

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

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: Woche

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

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread