hi,
ich glaube eine direkte funktion gibt es dafür nicht aber du könntest mal
folgendes ausprobieren:
Delphi-Quellcode:
function abrunden(value:Double):Double ;
begin
Result := Int(value) + Floor( Frac( value ) *10 ) / 10 ;
end;
procedure ... (Sender: TObject);
var
...
begin
...
Note := ((17/3)-(Gesamt/180));
LNote.Caption := Format('%.2f',[abrunden(Note)]);
end;
kurze erklärung:
Frac(value) = nachkommaanteil deiner note // z.b. 0.99444
Frac( value ) * 10 // 9.9444
Floor(...) = abrunden nach unten auf nächsten integer wert // 9.0
wieder zurück teilen (/10) // 0.9
Int(value) = ganzzahliger Teil // 2
vllt. bringt es dich weiter
cya