Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 3. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#18

AW: Uhrzeit Stunden und Minuten abrunden

  Alt 9. Okt 2013, 22:25
Hallo,

Zitat:
Würde halt gerne in den Edit Feldern nur die Stunden und nur die Minuten anzeigen lassen..
Und wo liegt dann Dein Problem? Wenn die Funktion FormatTime zwei Parameter (Stunde und Minute) nimmt und als Ergebnis sowas wie 22:26 zurückgibt, dann sollte es doch eigentlich nicht so schwer sein die Funktion so umzuschreiben, dass nur ein Parameter (entweder Stunde oder Minute) übergeben wird und der Rückgabewert der entsprechend formatierten Zeichenfolge entspricht.
Also:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

  function FormatTime (const Value : Word) : string;
  begin
    Result := Format ('%.2d', [Value])
  end;

begin
  Edit1.Text := FormatTime (h);
  Edit2.Text := FormatTime (m)
end;
Schau Dir bei Gelegenheit in der OH die Erläuterungen zu Format und all den anderen im Thread aufgeworfenen Themen an.

Gruß
Volker Zeller
  Mit Zitat antworten Zitat