title image


Smiley Re: Berechnung der KW
Zum Bleistift so:



actDate :=@now;

FirstOfYear := @Date(@Year(actDate); 1; 1);

FirstDayNum := @Weekday(FirstOfYear);

ISOFirstDayNum := @If(FirstDayNum = 1; 7; FirstDayNum - 1);

IsFirstWeek := 7 - ISOFirstDayNum > 2;

ISOFirstDay := @If(IsFirstWeek;@Adjust(FirstOfYear; 0; 0; 1 - ISOFirstDayNum; 0; 0; 0); @Adjust(FirstOfYear; 0; 0; 8 - ISOFirstDayNum; 0; 0; 0));

NumWeeks := (actDate - ISOFirstDay)/60/60/24/7;

WeekAdjust := 1 - (NumWeeks - @Integer(NumWeeks));

ISOWeekNum := NumWeeks + WeekAdjust;

Pad:=@If(ISOWeekNum<10;"0";"");

"Wir befinden uns im Jahres des Herrn "+@text(@year(actDate))+" in der KW "+Pad+@Text(ISOWeekNum)+", das Leben ist schön und wir können das aktuelle Datum als Kalenderwoche anzeigen"

jo@chim
IBM Certified Advanced Application Developer - Lotus Notes and Domino 7


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: