Achtung immer rechtzeitig den Maintenance Vertrag verlängern!

[Mavarik]

Zitat von Uwe Raabe:

Lehrgeld?

Delphi-Quellcode:

  Function CheckLeehrgeldZuViel:boolean;
   var
     LMonatlich : Real;
   begin
     LMonatlich := OriginalSumme / 12;
     if (Lehrgeld > (LMonatlich * Verzugsmonate)) or (Lehrgeld > OriginalSumme / 2)
       then Result := true
       else Result := false;
   end;

begin
  if CheckLehrgeldZuViel
    then Result := 'Version auslassen'
    else Result := 'Kaufe Version für: '+currtostr(OriginalSumme + Lehrgeld);
end;

Mavarik