Entwickler-Ecke

Delphi Language (Object-Pascal) / CLX - Uhrzeit auf einen hundertstel genau anzeigen


fisch - Mo 24.11.03 19:56
Titel: Uhrzeit auf einen hundertstel genau anzeigen
hallo,
ich hole mir die Uhrzeit so:

Quelltext
1:
2:
3:
 
var zeit:string;
zeit:=formatdatetime('hh:nn:ss',time);

kann man so auch auf einen hundertstel genau die Zeit anzeigen?
fisch


MSCH - Mo 24.11.03 20:14
Titel: Re: Uhrzeit auf einen hundertstel genau anzeigen
jeap, siehe Onlinehilfe:

fisch hat folgendes geschrieben:
hallo,
ich hole mir die Uhrzeit so:

Quelltext
1:
2:
3:
 
var zeit:string;
zeit:=formatdatetime('hh:nn:ss:zz',time);

kann man so auch auf einen hundertstel genau die Zeit anzeigen?
fisch


grez
msch


fisch - Mo 24.11.03 21:11

hallo,
also bei mir heißt es dann statt: 20:10:47:23 20:10:47:zz. :?:
fisch


Klabautermann - Di 25.11.03 11:42

Hallo,

setze noch ein z dazu (dann ist die ausgabe mit führenden Nullen) oder lasse eines weg (keine führenden Nullen). Dann sollte es klappen.

Gruß
Klabautermann


fisch - Di 25.11.03 15:55

hallo,
nein, es ist immer noch ein z statt einer Zahl. :(
fisch


Klabautermann - Di 25.11.03 16:20

Hi,

ich sehe gerade auch mit 2 z geht es bei mir. Gab es den Parameter zu Delphi 3 Zeiten noch nicht?
Gucke am besten mal unter FormatDateTime in der Delphi Hilfe nach.

Gruß
Klabautermann


fisch - Di 25.11.03 16:53

hallo,
ich hab nachgeschaut und nichts gefunden :(
gib es vielleicht noch andere möglichkeiten als formatdatetime?
fisch


smiegel - Mi 26.11.03 09:07

Hallo,


Delphi-Quelltext
1:
2:
3:
4:
5:
6:
function FormatZeitmitMilisekunden(const aZeit:TDateTime);
var std, min, sek, ms:Word;
begin
  DecodeTime(aZeit, std, min, sek, ms);
  Result:=Format('%0.2d:%0.2d:%0.2d:%0.2d', [std, min, sek, ms]); 
end// FormatZeitmitMilisekunden


Anwenden kannst Du die Funktion wie folgt:

Delphi-Quelltext
1:
  Label1.Caption:=FormatZeitmitMilisekunden(Time);                    


fisch - Mi 26.11.03 14:12

hallo,
ich hab deine function so verändert:

Quelltext
1:
 function FormatZeitmitMilisekunden(const aZeit:TDateTime):string;                    

funktioniert prächtig! :D danke!
fisch