Entwickler-Ecke

Sonstiges (Delphi) - Wie formatiert man ein Zeitformat


Erzengel - Mo 22.12.03 15:26
Titel: Wie formatiert man ein Zeitformat

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
 
procedure TForm1.Button1Click(Sender: TObject);


begin
    HH  := TimeToStr(time);
    MM  := TimeToStr(time);
    SS  := TimeToStr(time);

/////////////////////////////////////////////////////

    HH  := copy(HH, 1, 2);
    MM  := copy(MM, 4, 5);
    SS  := copy(SS, 7, 8);


Label1.Caption := HH + '_' + MM + '_' + SS;


Zusehen sein soll 14_21_59 (Std_Min_Sek)
Angezeit wird aber 14_21:59_59 (Std_Min_Sek)

Kennt sich da jemand aus. In der Delphi Hilfe findet man nichts darüber.


Udontknow - Mo 22.12.03 15:33
Hallo!

Du solltest dir die Parameternamen der Funktion Copy genauer anschauen. Der zweite Parameter gibt nämlich nicht das Ende des Strings an, den du haben willst, sondern die Länge.

Cu,
Udontknow


Andi1982 - Mo 22.12.03 15:36
Sorry Erzengel,
dann hab ichs in meinem Anderen Posting vorhin doch verwechselt, dann müsste es so gehen:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
 
procedure TForm1.Button1Click(Sender: TObject); 


begin 
    HH  := TimeToStr(time); 
    MM  := TimeToStr(time); 
    SS  := TimeToStr(time); 

///////////////////////////////////////////////////// 

    HH  := copy(HH, 1, 2); 
    MM  := copy(MM, 4, 2); 
    SS  := copy(SS, 7, 2); 


Label1.Caption := HH + '_' + MM + '_' + SS;


Hoffe jetzt geht es, sorry nochmal!


Chatfix - Mo 22.12.03 15:36
In der Delphi Hilfe hättest du mal unter COPY guggn müssen...


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
tmp  := TimeToStr(time);
/////////////////////////////////////////////////////

HH  := copy(tmp, 1, 2);
MM  := copy(tmp, 4, 2);
SS  := copy(tmp, 7, 2);

Label1.Caption := HH + '_' + MM + '_' + SS;


tmp hab ich gewählt damit immer von der sleben zeit ausgegangen wird...
bei copy is der 3. Wert wie weit kopiert werden soll (also immer 2)

EDIT: Too Late...


Erzengel - Mo 22.12.03 15:46
Kann mir das mal einer erklären???
Ich peil das nicht mir der länge.
und warum muß man immer eine 2 als zweite stelle nehmen.
Ich dachte 1,2,4,5,7,8 --> wären die Zhlen positionen.


Chatfix - Mo 22.12.03 15:48
Du willst ab der Position 1 zwei Zeichen haben, dann ab zeichen 5 wieder 2 Zeichen und ab Zeichen 7 wieder 2 zeichen...


Erzengel - Mo 22.12.03 15:57
Ahhhhhhhh danke für die Hilfe

Schöne Weihnachten

mfg Erzengel


Chatfix - Mo 22.12.03 16:22
Danke gleichfalls...


StefanH - Mo 22.12.03 17:34
also Leuts...

Delphi-Quelltext 
1:
 
s := FormatDateTime('hh_nn_ss',Time);


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!