Thema: Delphi runden

Einzelnen Beitrag anzeigen

Benutzerbild von fkerber
fkerber
(CodeLib-Manager)

Registriert seit: 9. Jul 2003
Ort: Ensdorf
6.723 Beiträge
 
Delphi XE Professional
 
#2

Re: runden

  Alt 12. Nov 2005, 13:43
Hi!

Ich würds so machen:

Delphi-Quellcode:
if (minutes mod 15) > 7 then
 minutes:=(((minutes div 15) + 1) *15) else
 minutes:=((minutes div 15)*15);
Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat