also dei verschiedenen tarife wollte ich in der rechnung ungefähr so machen:
nur eine überlegung da fehlen noch ein paar sachen:
Delphi-Quellcode:
function TGaskosten.erdgaspreisberechnen(a: real): real;
begin
if a<151 then
begin
a:= a*0.344;
a:= a + (a*0.19);
a:= a + 210;
result:= a;
end
else
if a> 400 then
a:= a*0.255;
a:= a + (a* 0.19);
a:= a + 210;
if a> 1999 then
a:= a - 210;
end;
erklärung: die verschiedenen tarife : bis 150 cbm gas: 0.344 euro pro cbm
und über 400 cbm kostet es 0.255 euro
zusatz: ab 2000 fällt die grundgebühr in höhe von 210 euro weg. und die mehwertsteuer wird bei allen berechnet