Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   TDateTime in Mikrosekunden umwandeln und ausgeben (https://www.delphipraxis.net/73588-tdatetime-mikrosekunden-umwandeln-und-ausgeben.html)

Alex_ITA01 20. Jul 2006 09:09


TDateTime in Mikrosekunden umwandeln und ausgeben
 
Hallo erstmal,
ich habe ein Problem mit Mikrosekunden.
Kann ich, einen TDateTime (=Double) so umwandeln, dass ich die Zeitangabe in Mikrosekunden als String bekomme. Also ich weiß, dass der Double die Mikrosekundenanteile auch enthält, nur wie convertiere ich die um?
Wäre nett wenn mir das jemand helfen könnte.
MFG Alex

d.H. am Ende soll folgendes herauskommen: 12:34:02`300`001
hh:mm:ss`ms `mys

ManuMF 20. Jul 2006 09:20

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Hallo,

schau dir mal Delphi-Referenz durchsuchenFormatDateTime an.

So wird's gemacht:
Delphi-Quellcode:
String := FormatDateTime('hh:nn:ss''''zzz', DateTime);
[edit]
Sorry, habe nur Millisekunden gelsenen. Aber ich wüsste nicht, dass es eine "schnellere" Einheit gibt als Millisekunden!
[/edit]

Alex_ITA01 20. Jul 2006 09:24

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Danke aber FormatDateTime kann nur bis zur Millisekunde formatieren.
Ich benötige aber Mikrosekunden.
Ich hoffe es gibt da noch eine Möglichkeit.
MFG Alex

ManuMF 20. Jul 2006 09:28

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Hallo,

wie ich schon sagte: Ich wüsste nicht, dass es in Delphi eine kleinere Einheit gibt als Millisekunden. Auch die Hilfe listet dazu nichts.

Bernhard Geyer 20. Jul 2006 09:39

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Selbst ist der Entwickler.

Da TDatetime = Double und der Nachkommaanteil die Uhrzeit codiert (0.5 = 12:00, 0.75 = 18:00) sollte es nicht so schwierig sein selbst für die Extraction der µs zu sorgen.

Alex_ITA01 20. Jul 2006 10:55

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Danke schön... Ich dachte, da gibts eine fertige Funktion für :-)
MFG Alex

Bernhard Geyer 20. Jul 2006 11:09

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Zitat:

Zitat von Alex_ITA01
Danke schön... Ich dachte, da gibts eine fertige Funktion für :-)

Kannst Sie ja danach als Beitrag für die Codelib vorstellen :-)
Dann gibt es eine fertige Funktion.

DP-Maintenance 20. Jul 2006 13:20

DP-Maintenance
 
Dieses Thema wurde von "sakura" von "Programmieren allgemein" nach "Sonstige Fragen zu Delphi" verschoben.
Delphi :)

Michael Habbe 20. Jul 2006 13:25

Re: TDateTime in Mikrosekunden umwandeln und ausgeben
 
Zitat:

Zitat von Alex_ITA01
ich habe ein Problem mit Mikrosekunden.
Kann ich, einen TDateTime (=Double) so umwandeln, dass ich die Zeitangabe in Mikrosekunden als String bekomme. Also ich weiß, dass der Double die Mikrosekundenanteile auch enthält, nur wie convertiere ich die um?

Mich würde mal interessieren, was Du im Mikrosekundenbereich für Anwendungen hast. Selbst bei der Formel 1 werden "nur" Tausendstel-Sekunden erfasst.

Wenn ich mir den TDateTime-Wert von z.B. "Now" anschaue, habe ich sechs Nachkommastellen, so ist 0,592704(d)*24(h)*60(min)*60(sec)*1000(msec) = 51209625(,6) Millisekunden.
Alle Funktionen zur Zeitermittlung werden in die Struktur von "TSystemTime" geschrieben, und da werden nur Millisekunden gespeichert.


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:19 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz