@FriFra Notes beenden und den Cache löschen hat nichts gebracht
@WernerMo
Clientversion 8.5
Designerversion 8.5
Serverversion 8.5.1 de
Formel Kategorie
REM {Which day of the week was 1. Jan. Reference 1.jan 2002 was 2. day of the week};
REM {Then calculate, when Thursday then this is Week 1.} ;
REM {Else, regard the last year and calculate it's nr of weeks};
REM {Else calculate if it's in the last week of the year, and check it's number};
REM {Last take the Nr of Days from the first day of the first week, and divide by 7};
SearchDay := Dat;
@If( @IsTime (SearchDay) ; "" ; @Return ("") );
Day1Jan := @Date( @Year( Searchday) ; 1 ; 1 );
WSubst := 2 - @Weekday( @Date ( 2002;1;1) );
Day1JanLast := @Date( @Year( Searchday ) -1 ; 1 ; 1 );
wDay1JanLast := @Modulo ( wSubst + @Weekday (Day1JanLast ); 7 ) ;
WDay1Jan := @Modulo ( wSubst + @Weekday (Day1Jan);7 );
WNrLast := @Integer((@Integer(( Day1Jan - Day1JanLast)/86400)-1)/7) + 1;
W1 := @If( wDay1Jan *= 1:2:3:4 ; 1; wDay1JanLast *= 1:2:3:4 ; WNrLast ; WNrLast-1);
DayNr := wDay1Jan - 1 + @Integer ( ( SearchDay - Day1Jan ) / 86400 );
WNr := @If (DayNr<7; W1 ; @If( W1=1; @Integer(DayNr/7)+1; @Integer(DayNr/7)));
Day31Dec := @Date( @Year( Searchday) ; 12 ; 31 );
WDay31Dec := @Modulo ( wSubst + @Weekday( Day31Dec);7);
YearDays := @Integer ( ( Day31Dec - Day1Jan ) / 86400 ) - WDay31Dec + wDay1Jan;
WeekNr := @If( DayNr >= YearDays ; @If( WDay31Dec *= 4:5:6:7 ; WNr ; 1 ); WNr );
"Übersicht für KW "+ @Text(WeekNr)
Formel Select
Heute_DE := @TextToTime( "Heute" );
Heute_US := @TextToTime( "Today" );
Heute_FR := @TextToTime( "Aujourd'hui" );
_heute :=
@If(
Heute_DE > [01.01.1900]; Heute_DE;
Heute_US > [01.01.1900]; Heute_US;
Heute_FR
);
_weekstart := @Weekday(_heute)-2;
_von := @Adjust(@Date(_heute);0;0;-_weekstart;0;0;0);
_bis := @Adjust(@Date(_von);0;0;6;0;0;0);
SELECT Form = "Anmeldung" & (Dat >= _von & Dat <= _bis) & (@Contains(Abt; "QS":"FO":"Vertragswesen":"VW":"Justitiariat":"GF/Vorstand":"Mo":"Prüf":"HB":"ABR"))