minuten, stunden, sekunden einzeln auslesen

rensle · Hält's aus hier Beiträge: 9

also... für die erstellung einer analogen uhr in opengl benötige ich die einzelnen werte für stunden, minuten und sekunden..... soweit ich weiß kann man diese nicht einzeln auslesen, also hab ich mir erst einmal in ein label die komplette zeit rein kopiert.... jetzt weiß ich aber nicht sorecht wie ich den string zerpflücken soll.... pls help!!!!

Lannes · Verfasst: Di 27.02.07 20:39

Hallo,

wie sieht denn die Zeit aus?

01:15:44
1 15m 44s
Es ist Viertel nach 8°°
0,24678
?

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

rensle · Hält's aus hier Beiträge: 9

01:15:44 <------ so sieht sie aus

matze · Verfasst: Di 27.02.07 21:28

Wenn du die Zeit als TDateTime oder TTime hast, dann kommst du an die einzelnen Bestandteile mittels HourOf(), MinuteOf() und SecondOf() aus der Unit DateUtils ran.

_________________
In the beginning was the word.
And the word was content-type: text/plain.

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TObject);
var
 Uhrzeit:TTime;
begin
  Uhrzeit:=StrToTime('12:56:00');
  ShowMessage(FormatDateTime('nn', Uhrzeit)); //hh:nn:ss
end;

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Lannes · Verfasst: Di 27.02.07 21:39

Hallo,

oder StrToTime >> DecodeTime

ps.: was meinst Du mit "soweit ich weiß kann man diese nicht einzeln auslesen", wie bekommst Du den die Zeit übergeben?

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

rensle · Hält's aus hier Beiträge: 9

label1.caption:= FormatDateTime('nn', time);

das war des rätsels lösung^^ danke leutz^^

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme