Problem bei Zeitberechnung

[PierreB]

Moin,

ich hab da mal ein kleines Problem:
Ich möchte einem Label eine Zeit zuweisen. Das heißt, ich hab zwei Werte: Die aktuelle Zeit

Delphi-Quellcode:

TimeToStr(now)

und dann ein Integerwert

Delphi-Quellcode:

2,5 Stunden (02:30:00)

Wie kann ich diese zweieinhalb Stunden jetzt zur aktuellen Zeit hinzuaddieren ?

Thx

[Money Making Machinist]

timetostr(Now + 2.5*(1.0/24.0));

Ich glaub das müsste so hinkommen.

[shmia]

Delphi-Quellcode:

var
   zeit : TDateTime;
begin
   zeit := Now;  // Jetzt

   // einen TAG draufaddieren
   zeit := zeit + 1.0;   // ein TAG entspricht 1.0 "DateTime-Einheiten"

   // 2.5 Stunden draufaddieren
   // ein Tag hat 24 Stunden
   // 
   zeit := zeit + 2.5 / 24.0;
end;

[toms]

Delphi-Quellcode:

const
  Minutes = 150 // 2.5 h;
var 
  NewDateTime: TDateTime;
begin
  NewDateTime := Now + Minutes/1440; // 1440 minutes pro Tag
  Caption := DateTimeToStr(Now)+ ' + ' + IntToStr(Minutes) + ' min = ' + DateTimeToStr(NewDateTime);
end;

[PierreB]

Zitat:

Zitat von shmia

Delphi-Quellcode:

var
   zeit : TDateTime;
begin
   zeit := Now;  // Jetzt

   // einen TAG draufaddieren
   zeit := zeit + 1.0;   // ein TAG entspricht 1.0 "DateTime-Einheiten"

   // 2.5 Stunden draufaddieren
   // ein Tag hat 24 Stunden
   // 
   zeit := zeit + 2.5 / 24.0;
end;

Hm, dass gibt mir nur das Datum + 1 Tag zurück.

Zitat:

timetostr(Now + 2.5*(1.0/24.0));

Ich glaub das müsste so hinkommen.

Vielen Dank, so gehts. :-)

[barf00s]

da gibts auch ne schicke unit namens "DateUtils" die ne ganze menge solcher "utilities" bereithält :)

[Money Making Machinist]

Zitat:

Zitat von PierreB

Zitat:

timetostr(Now + 2.5*(1.0/24.0));

Ich glaub das müsste so hinkommen.

Vielen Dank, so gehts. :-)

Keine Ursache. :-D