Zeit einbeziehen in Programm

[qwertzp]

Könnt ihr mir vielleicht helfen, wie man macht man es, dass die Ausgabe eines Programms in Abhängigkeit der aktuellen Zeit erfolgt?

[Lollo67]

Meinst Du das zum Beispiel?
Aktuelle Zeit ermitteln und Anzeigen mit TimeToStr(Now)
Beispiel in der StatusBar:
StatusBar1.Panels.Items[0].Text:=' Zeit: '+TimeToStr(Now);

Geht auch mit aktuellem Datum...
Beispiel:
StatusBar1.Panels.Items[0].Text:=' Datum: '+DateToStr(Now);

[qwertzp]

Ja etwa so: 12:00 Ausgabe: x 13:00 Ausgabe: y Also nur ein Beispiel, ich werde dann schon etwas sinnvolles ausgeben

[qwertzp]

So ich hab nochne Frage, der Wert den TimeTosStr(now) ausgibt, ist ein string, ich möchte aber die Differenz einer Zeit zur now-Zeit berechnen lassen, ist das überhaupt möglich?

[Euklid]

Du kannst Zeiten, die nicht als String abgespeichert sind, direkt voneinander abziehen.

[qwertzp]

Schon aber wie bekomme ich die aktuelle Zeit nicht als String?

[Euklid]

Durch eine Variable vom Typ TDateTime .

[pluto]

Es gibt auch noch FormatDateTime... Damit kannst du die Zeit Formatiert ausgeben... Das Funktioniert so ähnlich wie das Format, für Strings.

[qwertzp]

Kennt da jemand gerade ein Beispiel? Vielen Dank für die bereits geleistete Hilfe?

[pluto]

Ungetestet: Now-Now2
Wobei Now2 von TTime sein sollte. Intern ist TTime ein Double. Daher sollte das Funktionieren.

[Socke]

Ein paar Basics zur Zeit (wenn etwas nicht klar ist, empfehle ich ein Delphi/Object-Pascal Tutorial):
Zeit wird in TDateTime gespeichert; Das ist ein Fließkomma-Wert (Double), bei dem der Wert vor dem Komma die Tage seit dem 30.12.1899, der Wert nach dem Komma steht für die Tageszeit (bspw. 12:54 Uhr).

Zur Umwandlung gibt es einige Funktionen in der [url=http://lazarus-ccr.sourceforge.net/docs/rtl/dateutils/index-5.html]Unit dateutils[url]. Den aktuellen Wert (Datum und Zeit) erhältst du mit Now();
Da TDateTime ein Fließkomma-Wert ist, kannst du damit auch ganz einfach Rechnen.

Code: Alles auswählen

var d1, d2, d3: TDateTime;
begin
  d1 := Now; // Heute
  d2 := d1 + 1; // morgen, selbe Uhrzeit
  d1 := Trunc(Now); // heute, 00:00 Uhr
  d2 := d1 + 0.25; // heute, 00:15 Uhr; 0.25 entsprechen also 15 Minuten/einer Viertelstunde
  // natürlich geht auch:
  d1 := Today; // Heute, 00:00 Uhr; entspricht Trunc(Now)
  d2 := Tomorrow; // Morgen, 00:00 Uhr; entspricht Trunc(Now)+1
  d3 := d2 - d1; // Zeit zwischen d2 und d1; in diesem Falle genau 1  
end;

[qwertzp]

Vielen Dank, jetzt ist es mir klar!

[Hitman]

Code: Alles auswählen

d2 := d1 + 0.25; // heute, 00:15 Uhr; 0.25 entsprechen also 15 Minuten/einer Viertelstunde

Vorsicht, die Nachkommastelle ist der Bruchteil des jeweiligen Tages, nicht einer einzelnen Stunde. Also wäre das eher 6:00 Uhr "heute".

[qwertzp]

Ich hab eine Frage das Zeug brauch ich für Abfahrtszeiten für Busse, z.B. 06:34, kann man irgendwie machen, dass immer das nächste 6:34 gemeint ist?

[qwertzp]

Sorry hab wiedermal nichts überlegt, hat sich erledigt!