Die Zeit-Programmierung :-)

[thiagojonas]

Also ich habe eine Schöne StringGrid.
Ich lasse bei der ersten Spalte die aktuelle Zeit anzeigen. In der zweiten Spalte ebenfalls.
In der dritten Spalte möchte ich gerne die Gesamtzeit anzeigen lasse.
Doch wie mache ich das?

Delphi-Quellcode:

FormatDateTime('hh:mm',now);   // So hole ich immer die aktuelle Zeit in die Zellen

calculate_dg.Cells[2,Index] := calculate_dg.Cells[1,Index] - calculate_dg.Cells[0,Index] // So geht das leider nicht mit der Zeitberechnung :-(

Danke für Eure Hilfe :love:

[DeddyH]

:?: Du hast in 2 Spalten die aktuelle Zeit und willst in der 3. die Differenz anzeigen? Und in einem StringGrid stehen Strings ;), die musst Du erstmal konvertieren.

[SimStar001]

wie wärs mit:

Delphi-Quellcode:

 GesamtZeit := strtotime(Zeit1 {Zelle 1}) - strtotime(Zeit2 {Zelle 2});
{in Zelle einfügen} ... FormatDateTime('hh:mm',Gesamtzeit);

[DeddyH]

Bei Deinem FormatDateTime fehlt das Format ;)

[thiagojonas]

So habe es jetzt so probiert, aber gehen tut das auch nicht.

Delphi-Quellcode:

var Gesamtzeit:string;

GesamtZeit := strtotime(calculate_dg.Cells[7,Index]) - strtotime(calculate_dg.Cells[6,Index]);
   calculate_dg.Cells[8,Index] := FormatDateTime('hh:mm',Gesamtzeit);

[SimStar001]

Was passiert denn genau bzw was funktioniert nicht so wie du es möchtest?

[thiagojonas]

Es kommt eine Fehlermeldung vom Compiler!

Imkoplatible Typen String und Extended.

[SimStar001]

Delphi-Quellcode:

var Gesamtzeit:string;

Gesamtzeit ist ja auch ein extended bzw. vom Typ TTime und kein string. probier das mal:

Delphi-Quellcode:

var Gesamtzeit : extended

oder

Delphi-Quellcode:

 var Gesamtzeit : TTime

[thiagojonas]

Super, DAnke :hello: :dancer2: :love: