Datum -> Kalenderwoche -> Jahreszahl

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Datum -> Kalenderwoche -> Jahreszahl
von: Franz W.
Geschrieben am: 30.11.2003 14:54:45

Hallo Fachleute,

ich bin (mit meinem Halbwissen) grade überfordert und bitte Euch um Eure Hilfe:

- Ich habe: ein Datum
- Ich suche: die Jahreszahl der Woche, zu der diese Datum gehört

Beispiel:
Datum: 29.12.2003. Liegt zwar im Jahr 2003. Das Datum liegt aber in der 1. Woche des Jahres 2004. Was ich also suche ist die "2004".

Dazu habe ich in A12 die Kalenderwoche und möchte mmir daraus jetzt die Jahreszahl ziehen, scheitere aber dauernd bei der Dimensionierung und bekomme immer "Typen unverträglich". Meine Versuche:

Dim jZahl as Date
jZahl = Year("A12")

Dim jZahl as String
jZahl = Format(Year("A12"), "0000")

Und wie soll ich die Zelle "A12" formatieren??

.
.
.

Könnt Ihr mir da bitte helfen? Vielen Dank schon mal im Voraus

Grüße
Franz

Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: PeterW
Geschrieben am: 30.11.2003 15:20:56

Hallo Franz,

geht vielleicht einfacher aber ich würde das auf Anhieb mit einer Plausibilitätsprüfung machen: wenn die KW eines Datums im Dezember kleiner als 50 ist so handelt es sich um eine Kalenderwoche das Jahres des Datums + 1.

Gruß
Peter


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: Franz w.
Geschrieben am: 30.11.2003 15:29:03

Hallo Peter,

ja, vielen Dank, Dein Tipp hilft weiter. In die Richtung hab ich inzwischen auch schon gedacht, allerdings etwas komplizierter als Du.

Danke und beste Grüße
Franz


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: PeterW
Geschrieben am: 30.11.2003 15:34:15

Hallo Franz,

kleiner 50 stimmt natürlich als Bedingung nicht, nimm mal lieber die 40 als Vergleichswert. ;-)

Gruß
Peter


Bild


Betrifft: Danke (und siehe FP) o.T.
von: Franz W.
Geschrieben am: 30.11.2003 15:39:27




Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: Werner
Geschrieben am: 30.11.2003 15:29:09

Hallo Franz,

ev. so?

Dim Datum1, Jahr1
Datum1 = [A12]
Jahr1 = Year(Datum1)
MsgBox Jahr1

Gruss Werner


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: Franz W.
Geschrieben am: 30.11.2003 16:33:21

Hallo Werner,

vielen Dank für Deine Antwort. Hab Deinen Vorschlag mal probiert - und bekomme "1899?!?

In A15 steht das Datum
in A12 die Kalenderwoche

Grüße
Franz


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: Gert Seler
Geschrieben am: 01.12.2003 03:23:34

Hallo Franz,
die Berechnung der DIN-Kalenderwoche ist in Excel nicht möglich.
Excel gibt für den 29.12.2003 die falsche Kalenderwoche aus.
Probier es mit der Funktion KALENDERWOCHE:
Im Anschluß ein VBA_Text zur Berechnung der DIN_KW :


Function DIN_Kalenderwoche(dat As Date) As Integer
Dim a As Integer
a = Int((dat - DateSerial(Year(dat), 1, 1) + _
    ((Weekday(DazeSerial(Year(dat), 1, 1)) + 1) Mod 7) - 3) / 7) + 1
If a = 0 Then
    a = DIN_Kalenderwoche(DateSerial(Year(Date) - 1, 12, 31))
ElseIf a = 53 And _
    (Weekday(DateSerial(Year(dat), 12, 31)) - 1) Mod 7 <= 3 Then
    a = 1
End If
DIN_Kalenderwoche = a
    
End Function


mfg
Gert


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: Franz W.
Geschrieben am: 01.12.2003 06:48:31

Hallo Gert,

dass die Funktion "KALENDERWOCHE" falsch (d.h. amerikanisch) rechnet, ist hier im Forum allgemein bekannt. Darum verwenden wir zur Berechnung der DIN-Kalenderwoche die Formel:

=KÜRZEN((A15-DATUM(JAHR(A15+4-WOCHENTAG(A15;2));1;-9+WOCHENTAG(A15;3)))/7)

Aber auch danke für Deine Funktion! Hab sie mal ausprobiert, aber sie ergibt #WERT! Mach ich was falsch??

Grüße
Franz


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: FP
Geschrieben am: 30.11.2003 15:28:47

Hallo Franz,

mit Formel geht das so:

Excel Jeanie HTML
Formeln der Tabelle
B2 : =KÜRZEN((A2-DATUM(JAHR(A2+4-WOCHENTAG(A2;2));1;-9+WOCHENTAG(A2;3)))/7)
C2 : =JAHR(A2)+(B2=1)*(MONAT(A2)=12)
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download   Servus aus dem Salzkammergut Franz

Bild


Betrifft: Oh! Super!!
von: Franz W.
Geschrieben am: 30.11.2003 15:38:54

Hallo Franz,

toll, klappt mit dieser Formel. Gibt's eigentlich für Euch Formelprofis irgendwas, was Ihr nicht ausrechnet?????

Vielen Dank und Grüße
Franz


Bild


Betrifft: AW: Datum -> Kalenderwoche -> Jahreszahl
von: FP
Geschrieben am: 30.11.2003 15:36:00

Hallo Franz,

auch wenn IMHO der 29.12.2003 zum Jahr 2003 gehört - mit Formel geht das so:

Excel Jeanie HTML
Formeln der Tabelle
B2 : =KÜRZEN((A2-DATUM(JAHR(A2+4-WOCHENTAG(A2;2));1;-9+WOCHENTAG(A2;3)))/7)
C2 : =JAHR(A2)+(B2=1)*(MONAT(A2)>1)
D2 : =TEXT(A2;"TTT")
B3 : =KÜRZEN((A3-DATUM(JAHR(A3+4-WOCHENTAG(A3;2));1;-9+WOCHENTAG(A3;3)))/7)
C3 : =JAHR(A3)+(B3=1)*(MONAT(A3)>1)
D3 : =TEXT(A3;"TTT")
B4 : =KÜRZEN((A4-DATUM(JAHR(A4+4-WOCHENTAG(A4;2));1;-9+WOCHENTAG(A4;3)))/7)
C4 : =JAHR(A4)+(B4=1)*(MONAT(A4)>1)
D4 : =TEXT(A4;"TTT")
B5 : =KÜRZEN((A5-DATUM(JAHR(A5+4-WOCHENTAG(A5;2));1;-9+WOCHENTAG(A5;3)))/7)
C5 : =JAHR(A5)+(B5=1)*(MONAT(A5)>1)
D5 : =TEXT(A5;"TTT")
B6 : =KÜRZEN((A6-DATUM(JAHR(A6+4-WOCHENTAG(A6;2));1;-9+WOCHENTAG(A6;3)))/7)
C6 : =JAHR(A6)+(B6=1)*(MONAT(A6)>1)
D6 : =TEXT(A6;"TTT")
B7 : =KÜRZEN((A7-DATUM(JAHR(A7+4-WOCHENTAG(A7;2));1;-9+WOCHENTAG(A7;3)))/7)
C7 : =JAHR(A7)+(B7=1)*(MONAT(A7)>1)
D7 : =TEXT(A7;"TTT")
Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  
Servus aus dem Salzkammergut Franz

Bild

Beiträge aus den Excel-Beispielen zum Thema " Datum -> Kalenderwoche -> Jahreszahl"