Uhrzeit Stunden und Minuten abrunden

[Volker Z.]

Hallo,

Zitat:

hmm funktioniert irgendwie nicht..

Es funktionieren beide Varianten. Vielleicht war ich nicht ausführlich genug.

Delphi-Quellcode:

type
  TMinute = 0..59;
  
  TForm1 = class(TForm)
    Edit4: TEdit;
  private
    procedure SetMinQuaters (const Value : TMinute);
  public
    { Public-Deklarationen }
  end;

const
  ARRAY_MIN_QUATER : array [0..3] of string = ('00', '15', '30', '45');

procedure TForm1.SetMinQuaters (const Value : TMinute);
begin
  Edit4.Text := ARRAY_MIN_QUATER [Value div 15]
end;

Ein SetMinQuaters (53) liefert das gewünschte Ergebnis.

Gruß