Uhrzeit Stunden und Minuten abrunden

[Meflin]

Zitat:

Code:

  function MinutesRounded (const Value : Integer) : Word;
  begin
    if Value < 5 then
      Result := 0
    else
      Result := 5 * (Value div 5)
  end;

Sollte 4..0 div 5 nicht immer 0 ergeben und das komplette if-else damit überflüssig sein ?

[himitsu]

Zitat von Meflin:

Sollte 4..0 div x nicht immer 0 ergeben

Vielleicht eine falsche Matheregel?

0 durch irgendwas ist erlaubt, aber bei irgendwas durch 0 knallt es natürlich.

[klaus9]

Hallo

vielen Dank habe es jetzt fast fertig mit dem Code vom volker

Jetzt liegt nur ein Problem vor wenn wir 11.05uhr haben Minus 15minuteb zeigt er mir
Bei Std 11an statt 10 und bei min 00 statt 50

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
* h, m, s, z : Word;
*
* function MinutesRounded (const Value : Integer) : Word;
* begin
*** if Value < 5 then
***** Result := 0
*** else
***** Result := 5 * (Value div 5)
* end;
*
* function FormatTime (const Hour, Minute : Word) : string;
* begin
*** Result := Format ('%.2d', [Minute])
* end;
* function FormatTimeh (const Hour, Minute : Word) : string;
* begin
*** Result := Format ('%.2d', [Hour])
* end;
*
begin
* DecodeTime (Now, h, m, s, z);
* Edit2.Text := FormatTimeh (h, m);
* Edit1.Text := FormatTimeh (h, m);
* Edit4.Text := FormatTime (h, MinutesRounded (m));
* Edit3.Text := FormatTime (h, MinutesRounded (m - 15));
end;

[himitsu]

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.
Also mußt du hier natürlich auch wieder auf die 24 Stunden achten.

[klaus9]

Irgendwie klappt es nicht