Dir Anzahl der Wochen wird für jede Runde exakt ermittelt. Die erste Runde geht vom 01.01.01 bis zum 31.12.99 und hat somit ein Jahr also 52 oder 53 Wochen weniger als die folgenden Runden, die jeweils vom 01.01.x00 bis zum 31.12.x99 laufen. Die 21. Runde geht vom 01.01.2000 bis zum 24.12.2011.
Die Preise ermitteln sich aus der Gebühr von 0,75 Taler pro Tippreihe + Scheingebühr. Diese kostet für einen Einzeltippschein für angefangene 4 Wochen jeweils einen Taler plus. Beim Systemschein ist es wie unten dargestellt.
Oder für Delphianer:
Delphi-Quellcode:
if Typ = 'S' then
begin
case numMarks of
7 : einsatz := spiele7*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
8 : einsatz := spiele8*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
9 : einsatz := spiele9*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
10 : einsatz := spiele10*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
11 : einsatz := spiele11*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
12 : einsatz := spiele12*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
13 : einsatz := spiele13*anzWochen+grundGebuehrPro16Wochen*((anzWochen-1) div 16+1);
end;
end
else begin
anzWochen := anzWochen * DM.DSAbruf.RecordCount;
einsatz := anzWochen*betragProReihe;
if (anzWochen mod 4 > 0) then begin
einsatz := einsatz + betragPro4WochenProTippschein;
end;
einsatz := einsatz + betragPro4WochenProTippschein * (anzWochen div 4) ;
end;
mit
Delphi-Quellcode:
const
betragProReihe = 0.75;
betragPro4WochenProTippschein = 1.00;
spiele7 = 5.25;
spiele8 = 21.00;
spiele9 = 63.00;
spiele10 = 157.50;
spiele11 = 346.50;
spiele12 = 693.00;
spiele13 = 1287.00;
grundGebuehrPro16Wochen = 2;
Wenn man Ziehungen hochlädt wird die Gesamtgebühr für die neu hochgeladenen Runden angezeigt. Abgebucht wird nur jeweils die nächste Runde, aber erst bei Auswertung der Ziehung. Man kann sich sein Konto mit allen Buchungen anzeigen lassen.
Zitat
Baum-Darstellung
