frage zu timetostr/TDateTime [beantwortet]

[happyaura]

Hallo,
um mir anzeigen zu lassen, wie lange ein rechner schon läuft, habe ich GetTickCount gefunden.
Showmessage('rechner läuft seit '+ TimeToStr(GetTickCount/1000/3600/24)); wie verhält sich diese ausgabe nach beispielsweise 25 std. steht dann dort 25:00:00 oder 01:00:00 oder mit welcher ausgabe ist zu rechnen?
wie kann ich mir ausgeben lassen, wieviel tage der Rechner schon läuft?
vielen Dank,
Martin

[Amateurprofi]

Zitat von happyaura:

Hallo,
wie kann ich mir ausgeben lassen, wieviel tage der Rechner schon läuft?
Martin

Indem du den Wert, den GetTickCount liefert durch 86400000 (ms/Tag) teilst......

[marabu]

Guten Morgen.

Beim Arbeiten mit TDateTime muss stets geprüft werden, ob gerade ein Zeitpunkt oder ein Zeitintervall vorliegt. TimeToStr() arbeitet nur mit Zeitintervallen kleiner 1 Tag. Bei größeren Zeitintervallen hilft eine Funktion wie diese:

Delphi-Quellcode:

function DateTimeToStr2(dt: TDateTime; daySep: string): string;
begin
  Result := Format('%d%s%s', [Trunc(dt), daySep, TimeToStr(dt)])
end;

Soviel zur Darstellung. GetTickCount() ist für Zeiträume bis knapp 50 Tage ausgelegt. Seit NT4 bzw XP gibt es SystemUpTime (als performance counter) oder auch system tool.

Ostergrüße vom marabu

[happyaura]

Besten Dank für eure Antworten, dann kann ich ja die Ostertage weiter zum proggen nutzen

beste Ostergrüße
H@ppy