Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Sekunden umrechnen in Uhrzeit (https://www.delphipraxis.net/24752-sekunden-umrechnen-uhrzeit.html)

Aenogym 25. Jun 2004 14:59


Sekunden umrechnen in Uhrzeit
 
hi,

ich möchte gern eine sekunden-angabe (integer) in eine art uhrzeit-angabe umwandlen kann?

also wenn mein integer "30" ist, dann möchte ich einen string haben, der "00:00:00:30" anzeigt (0 tage, 0 stunden, 0 minuten, 30 sekunden). und wenn der integer halt "432000" lautet, soll der string "05:00:00:00" lauten (5 tage).

wisst ihr, wie ich das umrechnen könnte?

edit: ich mache eine CLX-application. deswegen steht mir die unit "windows" nicht zur verfügung (darin ist zB TSystemTime definiert).

Aenogym

Stevie 25. Jun 2004 15:06

Re: Sekunden umrechnen in Uhrzeit
 
Guck dir mal die Unit DateUtils an, dort dürften die Funktionen IncSoundSo interessant sein.

Aenogym 25. Jun 2004 15:10

Re: Sekunden umrechnen in Uhrzeit
 
ahaaaaa :)

dake schön!
ABER: die funktion heißt "incSecond" ;) (nicht incsoundso :gruebel: )

Aenogym

Luckie 25. Jun 2004 15:24

Re: Sekunden umrechnen in Uhrzeit
 
Zitat:

Zitat von Aenogym
ABER: die funktion heißt "incSecond" ;) (nicht incsoundso :gruebel: )

Jungs, ich lach mich schlapp. Stevie wollte mit IncSounso ausdrücken, dass die gesuchte Funktion Inc-irgendwas heißt, er wußte eben nicht genau wie.

supermuckl 25. Jun 2004 15:27

Re: Sekunden umrechnen in Uhrzeit
 
ROFL dachte auch grad.. meingott was ist den IncSound ?? :D
hart =)

S2B 25. Jun 2004 15:43

Re: Sekunden umrechnen in Uhrzeit
 
Ich bin auch drauf reingefallen! :wall: :lol:

Stevie 28. Jun 2004 07:20

Re: Sekunden umrechnen in Uhrzeit
 
Zitat:

Zitat von Luckie
Jungs, ich lach mich schlapp.

Ich schließ mich an!!! :spin2:

Jelly 28. Jun 2004 08:51

Re: Sekunden umrechnen in Uhrzeit
 
Hallo,

probiers ma hiermit:
Delphi-Quellcode:
function SecToClock (sec : integer) : string ;
var
 DT : TDatetime ;
begin
     DT := Sec/60/60/24 ;
     Result := format ('%d:%s',[trunc(DT),formatDatetime('hh:nn:ss',DT)]) ;
end ;
Vorsicht, ist aber nicht getestet...

Gruß,
Tom


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