Anmeldezeit berechnen

[Micha]

Ich weiß, es gibt schon einen Beitrag von ffomoon zu diesem Thema (hier) . Aber mein Problem stellt sich ein bisschen anders dar.

Ich möchte in einem Label die Zeit ausgegeben, wie lange der User schon im Programm angemeldet ist.

Ich möchte also drei Labels:
1. Label = aktuelle Uhrzeit
2. Label = Uhrzeit der Anmeldung
3. Label = Differenz der beiden

Aktuelle Uhrzeit weiß ich, die ist auch mit einem Timer verbunden siehe Beitrag.
- Wie kann ich aber die Uhrzeit der Anmeldung herausfinden?
- Kann ich die Differenz dann folgendermaßen berechnen? Denn eigentlich bräucht ich ja das strtotime gar nicht, weils ja schon ne Uhrzeit ist.

Delphi-Quellcode:

Label3.Caption := TimetoStr(StrtoTime(Label1.Caption)-StrtoTime(Label2.Caption));

[Sharky]

[quote=Micha]Ich weiß, es gibt schon einen Beitrag von ffomoon zu diesem Thema [URL=....Ich möchte in einem Label die Zeit ausgegeben, wie lange der User schon im Programm angemeldet ist.

Ich möchte also drei Labels:
1. Label = aktuelle Uhrzeit
2. Label = Uhrzeit der Anmeldung
3. Label = Differenz der beiden
...[/quote]

Speichere doch einfach in einer Variablen die Uhrzeit an der sich der Anwender angemeldet hat:

Delphi-Quellcode:

var
 anmeldezeit : TDateTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
 anmeldezeit := now;
end;

Die Differenz kannst Du ganz normal berechnen. Wenn Du D6 oder höher hast gibt es IMHO die Funktion MinutesBetween um die anzahl der Minuten zwichen zwei TDateTimes zu berechnen.

[Micha]

Sorry, aber ich raffs noch nicht ganz.

Bis jetzt wird die aktuelle Uhrzeit in der Statusbar angezeigt.

Delphi-Quellcode:

procedure Tfrm_main.FormCreate(Sender: TObject);
var 
anmeldezeit : TDateTime;
begin
  anmeldezeit := now;
  lbl_differenz.Caption := anmeldezeit - statusbar.Panels[2].Text;
end;

Ich weiß ja, dass der obenstehende Quelltext deswegen nicht hinhaut, weil das eine ein Datum ist und das andere ein String.

Kann mir bitte nochmal wer helfen!

[Phoenix]

Du darfst die Anmeldezeit nicht in einer lokalen Variable im OnCreate - Ereignis speichern. Die ist nämlich futsch, sobald die Funktion ausgeführt ist. Speichere die Anmeldezeit am besten in einer member-Variable des Formulares.

Achtung Pseudocode!

Delphi-Quellcode:

   myForm = class(TForm)
   private
      anmeldezeit: TDateTime;
   protected
      // protected declarations
[...]

myForm.OnCreate(Sender: Tobject);
begin
   anmeldezeit := now;
end;

myForm.OnTimer(Sender: TObject);
var
   DiffTime: TDateTime;
begin
   // Deine bisherige Methode

   DiffTime := now - anmeldezeit;
   // Difftime ins Panel schreiben
end;

[Micha]

Optimal. DANKE.