Forum: Programmieren allgemein
by himitsu,
9. Okt 2013
Wobei es dann aber falsch rechnet, denn aus 01 müßte ja 45 werden und nicht 00 :zwinker:
Forum: Programmieren allgemein
by himitsu,
9. Okt 2013
Tja, wenn du Minuten und Stunden getrennt verwaltest, dann mußt du bei der Subtraktion der 15 Minuten natürlich auch die Stunden anpassen, wenn es einen "überlauf" gibt.
Eine Stunde abziehen, wenn es weniger als 15 Minuten sind.
Edit3.Text := FormatTime (h - IfThen(m < 15, -1, 0), MinutesRounded (m - 15));
Aber, jetzt natürlich nicht vergessen, daß aus 0:05 Uhr jetzt -1 uhr würde. :stupid:...
Forum: Programmieren allgemein
by himitsu,
9. Okt 2013
Vielleicht eine falsche Matheregel?
0 durch irgendwas ist erlaubt, aber bei irgendwas durch 0 knallt es natürlich.
Forum: Programmieren allgemein
by himitsu,
7. Okt 2013
einfache Mathematik:
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.
var D: TDateTime;