Ewige Abiturbestenliste

[Hauke Hayen]

Im Rahmen einiger Spielereien ist bei mir eine "Ewige Bestenliste Abitur " entstanden (natürlich nur für AbiturientInnen, die in der entsprechenden Datenbank erfasst sind )
Hier ist eine simple Version, die sicherlich noch aufgehübscht werden kann, aber technisch scheint sie zu funktionieren. Falls nicht, bitte Rückmeldung, wie gesagt, sie ist so "nebenbei" entstanden.
Sie sortiert nach Note und dann nach Punktzahl.
Ich meine, es wurde hier im Forum mal nach so etwas gefragt.
Und ja, die ganzen 1,0er sind alle jüngeren Datums, da hat sich also tatsächlich etwas verändert.....

[M. Knapheide]

Hallo Herr Hayen,

der Report ist sehr interessant! Vielen Dank dafür!
Gäbe es bitte vielleicht eine Möglichkeit, das 'tatsächliche' Abiturjahr bzw. die Jahreszahl des Abiturjahrgangs auszugeben? Etwas weniger geübte Leser*innen verstehen u.U. nicht (sofort), dass im Report die Jahreszahl dargestellt wird, die am Beginn von Schuljahresbezeichnungen stehen (z.B. "Sj. 2020/21).

[W.Maßmann]

Hallo Herr Knapheide,
ändern Sie DBText6OnGetText:

if Schueler_Abiturbestenliste['Jahr']<2010 then
Text := inttostr(Schueler_Abiturbestenliste['Jahr']+1)+' (*)'
else
Text := inttostr(strtoint(Schueler_Abiturbestenliste['Jahr'])+1);

[Uli Dierkes]

Ich habe die Programmierung etwas vereinfacht, damit funktioniert es auch:
if Schueler_Abiturbestenliste['Jahr'] < 2010
then Text := IntToStr(Schueler_Abiturbestenliste['Jahr'] + 1) + ' (*)'
else Text := Schueler_Abiturbestenliste['Jahr'] + 1 ;

Auch der (*)-Erklärtext musste noch an die geänderte Abiturjahr-Programmierung angepasst werden.

Dazu habe ich am Layout ein wenig gefeilt.

Abitur_Bestenliste_ewig__DI.rtm

(38.65 KiB) 82-mal heruntergeladen

[Hauke Hayen]

Ich hoffe, ich habe das Änderungsjahr von 840 auf 900 Punkte richtig recherchiert. Danke für die schnelleren Antworten an die beiden Kollegen.