Zeit runden?

[Chemiker]

Hallo,

kann man das nicht so lösen?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  zeit : Extended;
begin
  zeit := StrToTime(Edit1.Text);
  zeit := Round(zeit*ZEIT_5MINUTEN)/ZEIT_5MINUTEN; // ZEIT_5MINUTEN = 12 * 24
  Label1.Caption := FormatDateTime('t', zeit);
end;

Bis bald Chemiker