Uhrzeit - Wie lange ist mein Programm schon offen..

[IceBube]

Hallo!

Kommen wir mal zur ersten Frage...

Hier mal die wichtigsten Sachen --> zur Uhrzeit

Delphi-Quellcode:

//Aktuelle Uhrzeit auslesen
Time(); {Typ : TTime};

//Variable
StartZeit : TTime; {}

//TTime in String konvertieren
Editfeld1.text := TimeToStr(Time());

//2 verschiedene Zeiten
Zeit1 := Time(); //Hier mal die alte Uhrzeit
Zeit2 := Time(); //Hier die Neue Uhrzeit

//Differenz zwischen den 2 Zeitpunkten berechnen
var Differenz : string
Differenz := TimeToStr(Zeit1 - Zeit2); //Ausgabeformat = '01:00:00';

//Uhrzeit spalten in Stunden, Minuten, Sekunden, Millisekunden
var std,min,sek,ms : word;
DecodeTime(Time(),std,min,sek,ms);

//Andersrum
EncodeTime(std,min,sek,ms);

Zur zweiten Frage....
Grafisch darstellen, kannst du zum Beispiel mit Canvas, bitte benütz jedoch die Forum Suche dafür...

Oder vielleicht mit einem Diagramm (welches in Delphi auch enthalten ist?

Zur dritten und letzten Frage...
Gar nicht so schwer, einfach beim Starten deines Programmes die Zeit abfragen und in eine Variable speichern (z.b.: "FormonCreate"), beim schließen (z.b.: FormonClose) die Zeit widerum auslesen, die Differenz berechnen und schon hast du die Zeit

Edit:
Willst schon im Programm die Zeit anzeigen, so nimmst du dir einen Timer her und ziehst immer die aktuelle Uhrzeit von der alten ab....

Hoffe das war dir eine Hilfe...

lg