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