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
 
#8

Re: runden

  Alt 12. Nov 2005, 14:07
Hi!

Nein, es müsste dann so aussehen:
Delphi-Quellcode:
if (timem mod 15) > 0 then
timem:=(((timem div 15) + 1) *15);
Abrunden:
timem:=(((timem div 15) *15);

Ciao Frederic
Frederic Kerber
  Mit Zitat antworten Zitat