title image


Smiley Re: Kalenderwoche errechnen
Hallo,



probier es mal damit:



Datum := @Date(@TextToTime("01.01.2006"));

Wochenstart := @Adjust(Datum; 0;0; -@Weekday(Datum)+@If(@Weekday(Datum)=1;-5;2); 0;0;0);

ErsterJanuar := @Date(@Year(Wochenstart); 1; 1);

ErsterWochentag := @Weekday(ErsterJanuar);

MinutenProTag := 60 * 60 * 24;

TagImJahr := (Wochenstart - ErsterJanuar) / MinutenProTag;

Kalenderwoche := 1 + @Round(TagImJahr / 7);

KW := @If((ErsterWochenTag *= 2:3:4) & (Kalenderwoche = 53); 1; Kalenderwoche);



Grüße

Thinner

Das Gewissen verhindert nicht die Sünde. Es verdirbt nur die Freude daran.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: