datum splitten - in stunden, minuten, sekunden

[danku]

über eine tscrollbar kann man die werte in eine tedit max/minimieren.
edZeit.Text := IntToStr(sbzeit.Position); diese zahl dann in dem tedit entspricht den "puffer"-minuten.

in 3 weiteren tedits (hours,min,sec) wird die aktuelle zeit wiedergegebn und in abhängigkeit mit dem 1. editfeld werden die minuten durch puffer-minuten dazugerechnet.

versuchte das mit den funktionen hourof, minuteof und secondof aber es gibt keine regung.

Delphi-Quellcode:

edende.text:=timetostr(HourOf(now));
edende2.text := timetostr(MinuteOf(now));
edende3.text:=timetostr(SecondOf(Now));

wieso steht in allen 3edits '00'?

[Luckie]

Geht:

Delphi-Quellcode:

uses
  DateUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(HourOf(now)));
end;

HourOf gibt einen Integer zurück und keinen Wert vom Typ TTime. Die Hilfe ist schon manchmal recht lehrreich.

[Klaus01]

Da hourof ein Word zurückliefert würde
ich die Funktion function WordToStr(const Value: Word): WordStr;
veruchen um daraus eine String zu bekommen.

[edit] wenn man keine Indy Komponenten hat, kann man den Vorschlag vergessen [/edit]

Grüße
Klaus

[danku]

das ist ja blöd.
dachte da muss timetostr hin weil es ja ein time-wert ist.
IntToStr

[marabu]

Hallo Daniel,

die Funktion TimeToStr() erwartet einen TDateTime-Wert als Argument und liefert die String-Repräsentation des gebrochenen Anteils. Der Ganzzahlige Anteil sind die Tage seit dem Referenzdatum. In deinem Code bildest du mit der Funktion HourOf() den Stundenanteil der aktuellen Zeit - eine Ganzzahl. Der gebrochene Anteil ist dann 0.

Delphi-Quellcode:

edEnde.Text := Format('%.2d', [HourOf(Now)]);
// ...

Grüße vom marabu

[danku]

Zitat von Klaus01:

Da hourof ein Word zurückliefert würde
ich die Funktion function WordToStr(const Value: Word): WordStr;
veruchen um daraus eine String zu bekommen.

[edit] wenn man keine Indy Komponenten hat, kann man den Vorschlag vergessen [/edit]

Grüße
Klaus

was bitte hat das damit zutun?

[Klaus01]

weil man für WordToStr diese Unit benötigt: IdTrivialFTPBase

Grüße
Klaus

[r_kerber]

Such mal in der OH nach DecodeDate und DecodeTime

[danku]

kenn ich. hours of etc. gefällt mir aber stylistisch besser.