Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi ZeitVariable formatiert ausgeben (https://www.delphipraxis.net/60852-zeitvariable-formatiert-ausgeben.html)

jesus 13. Jan 2006 07:43


ZeitVariable formatiert ausgeben
 
Hallo,

ich hba eine Variable vom Typ TTime in der ich Zeitdauern aufsummiere. Das klappt soweit ganz gut, aber wie macht man das, dass man diese Variable Formatiert ausgibt, so dass für eine Summer von sagen wir 30 Stunden 25 Minuten und 10 Sekunden folgendes ausgegeben wird:

30:25:10

Ich mach das mit FormatDatetime und der Formatangabe hh:mm:ss, aber auf diesem Wege wird ja nur im 24-Stunden-Format ausgegeben, also kommt nur 05:25:10 raus ...

Es muss doch eigentlich ganz einfach sein ... ich seh's nur nicht ...

grüße jesus

Sharky 13. Jan 2006 07:53

Re: ZeitVariable formatiert ausgeben
 
Hai jesus,

in einem TTime wird ja nur die Uhrzeit gespeichert (auch wenn es intern der selbe Typ wie TDate und TDateTime ist).

Was Du als 30 Stunden, 25 Minuten und 10 Sekunden einträgst ist also in wirklichkeit
1 Tag, 6 Stunden, 25 Minuten und 10 Sekunden.

Am einfachsten wäre es also wenn Du aus einem TDateTime die Anzahl der Tage ermittelst, diese mit 24 multiplizierst und dann dazu noch die Stunden aus dem Zeitanteil addierst.

Surrounder 13. Jan 2006 07:59

Re: ZeitVariable formatiert ausgeben
 
schau dir mal FormatDateTime an, vielleicht hilft dir das

jesus 13. Jan 2006 08:21

Re: ZeitVariable formatiert ausgeben
 
Danke ... ich hab's jetzt so gemacht:

var gesamt: TDatetime;

gesamt:=Strtodatetime('01.01.1970 00:00:00');

dann alles draufsummieren und anschließend die Ausgabe mit

format('%4s',[floattostr(daysbetween(strtodatetime('01.01.1970 00:00:00'), gesamt)*24 + hourof(gesamt))])+ FormatDateTime(':nn:ss', gesamt)

Das schient mir aber ein wenig umständlich ... da muss es doch schon was geben, dacht ich ...

Grüße jesus


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:00 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