Uhrzeit Stunden und Minuten abrunden

[himitsu]

einfache Mathematik:

Delphi-Quellcode:

var D: TDateTime; F: Integer;

F := MinsPerDay div 15;  // Rundungsfaktor für 15 Minuten (oder / und Single, wenn keine ganze Zahl rauskommen würde)
D := Trunc(D * F) / F;

bzw.

Delphi-Quellcode:

var D: TDateTime;

D := Trunc(D * MinsPerDay / 15) * 15 / MinsPerDay;