Hallo Bernhard,
hab nommel drübergeschaut und die Formel ein wenig gekürzt/verbessert.
Mein Name ist Samuel Menigat. (Sam der farbige Pianospieler aus Casablanca.. ROFLCOPTER)
kwdays := ((kalenderwoche-1)*7);
fdate := @Date(jahr; 1; 1);
fday := @Weekday(fdate);
date := @If(fday=1; @Adjust(fdate; 0; 0; kwdays+1; 0; 0; 0); fday=2; @Adjust(fdate; 0; 0; kwdays; 0; 0; 0); fday=3; @Adjust(fdate; 0; 0; kwdays -1; 0; 0; 0);
fday=4; @Adjust(fdate; 0; 0; kwdays-2; 0; 0; 0); fday=5; @Adjust(fdate; 0; 0; kwdays-3; 0; 0; 0); fday=6; @Adjust(fdate; 0; 0; kwdays+3; 0; 0; 0);
fday=7; @Adjust(fdate; 0; 0; kwdays+2; 0; 0; 0); "");
Ich hoffe sie ist jetzt zu diener Zufriedenheit abgeändert... (Wenn man eigene @-Funktionen schreiben könnte währ das ding um die hälfte kürzer, aber Mann kann sichs ja nicht raussuchen :-:)
Hallo Samuel,
ich meinte eher sowas:
_FirstDayOfYear := @Date (Year; 1; 1);
WeekNoMonday := @Adjust (_FirstDayOfYear; 0; 0; @Subset (@Subset (1 : 0 : -1 : -2 : -3 : 3 : 2; @Weekday (_FirstDayOfYear)); -1) + ((WeekNo -1) * 7); 0; 0; 0);
@Prompt ([Ok]; "Ergebnis"; @Text (WeekNoMonday))
Der Charme liegt in dem Verzicht auf die dauernde Vergleicherei mit @If und @Weekday. Das ginge sogar noch kürzer, aber dafür funktioniert das obige Konstrukt auch noch mit R5 (und R2 ;D).
Was meinst Du? Du hast ja den Algorithmus ins Spiel gebracht.
Bernhard