Datum vergleich und ergänzen

[chicky]

GUten Morgen,

Ich habe zwei Datumsangaben: z.B. 13.07.2009 12:40:00 Uhr und 15.07.2009 13:50:00 Uhr. W
ie kann ich die fehlenden Werte (alle 10 Minuten) dazwischen „auffüllen“/erhalten? Jemand eine Idee?

[mkinzler]

Es wurde deinem Alter Ego doch schon erklärt, das das keinen Sinn macht!

[chicky]

Ich wollte ja nicht wissen, ob es Sinn macht, sondern wie es gemacht werden könnte?

[himitsu]

du rechnest der ersten String "13.07.2009 12:40:00" in einen Wert um, mit dem man rechnen kann (z.B. TDateTime oder eines der anderen Formate)

machst das Selbe mit dem anderem Wert

und nun rechnest du solange 10 Minuten dazu, wie der (letze Wert - 10 Minuten)
kleiner ist, als dein aktuell Errechneter.

[anse]

Ich versteh nicht ganz was du machen willst, aber evtl. suchst du das hier aus der unit DateUtils:

Delphi-Quellcode:

uses DateUtils;
...
var
  zeit: TDateTime
begin
  zeit := StrToDateTime(Now);
  IncMinute(zeit, 10)
  ...

[chicky]

@ anse: Das sieht gut aus. Wie verhält sich incMinute, z.b bei 12:50:00? wird es zu 12:60:00 oder zu 13:00:00?

[Bernhard Geyer]

Zitat von chicky:

@ anse: Das sieht gut aus. Wie verhält sich incMinute, z.b bei 12:50:00? wird es zu 12:60:00 oder zu 13:00:00?

Probier es doch aus. Aber da TDataTime ein Double-Wert ist kann kein fehlerhaftes Datumswert codiert werden.

Übrigens: 10 minuten kann du ach mit
MyWert := MyWert + 1 / 24 / 6; erhalten.

[chicky]

Zitat:

Übrigens: 10 minuten kann du ach mit
MyWert := MyWert + 1 / 24 / 6; erhalten.

Habe ich auch schon gefunden gehabt.Danke

[chicky]

Ist incMinute eigentlich "Schaltjahr fest"?

[himitsu]

Zitat von chicky:

Ist incMinute eigentlich "Schaltjahr fest"?

ja, da schließlich TDateTime die Schaltjahre beachtet und ein ein Tageszähler ist.