DaysBetween und Mitternacht

[jaenicke]

Du solltest auch einmal genauer schauen was die Funktion macht. Es geht dir ja nicht um die Differenz zwischen den Daten, sprich ob es 24 Stunden oder weniger her ist (das machst du im Moment), sondern ob es der gestrige Tag ist, oder?

Wie wäre es so? (ungetestet)

Delphi-Quellcode:

var
  iT: Integer;
  lc: TDateTime;
  DayDiff: Double;
begin
  iT := 1381620390; // 12.10.2013 23:26:30
  lc := functions.UnixToDateTime(iT);

  if iT > 0 then
  begin
    DayDiff := Trunc(Now) - Trunc(lc);
    if DayDiff < 1 then
      Form10.Label6.Caption := 'Heute ' + DateTimeToStr(lc)
    else if DayDiff < 2 then
      Form10.Label6.Caption := 'Gestern ' + DateTimeToStr(lc)
    else
      Form10.Label6.Caption := DateTimeToStr(lc);
  end
  else
    Form10.Label6.Caption := '-';

[d7user1]

das funktioniert, danke!

aber ich würde es auch gerne verstehen.

"Now" gibt ja einen Timestamp zurück. trunc schneidet den NAchkommateil ab. Dasselbe wird mit meinem Timestamp gemacht. Wieso aber wird hier denn die Überschreitung ob Mitternacht oder nicht berücksichtigt? oder ich glaube es noch nicht gut zu verstehen.

[sx2008]

Ein Tag entspricht dem Betrag 1.0.
Mal angenommen es wäre irgendein Tag so kurz vor Mitternacht:

Code:

Datum = 31587.995

Und dann haben wir noch einen 2. Zeitpunkt am folgenden Tag kurz nach Mitternacht:

Code:

Datum2 = 31588.00795

Man sieht dass für die Betrachtung ob ein Zeitpunkt als "gestern" angesehen wird nur der Betrag vor dem Komma entscheidet.
Wenn also Trunc(Datum2)-Trunc(Datum) gleich 1 ist, dann war es "gestern".

[jaenicke]

Und um Rundungsfehler auszuschließen ist der Vergleich "< 1" usw. besser als "=0" oder "=1". (SameValue ginge natürlich auch zum Vergleich.)

[Furtbichler]

Das ist Overkill. Zudem kann bei der Differenz zweier Float-Zahlen statt 1 durchaus 1.00000001 herauskommen. '< 1' ist also auch nicht geeignet, Rundungsfehler zu kompensieren.

'Trunc' liefert bereits einen Integer-Wert: Die Differenz zweier 'Trunc'-Resultate ist ergo wieder ein Integer. Wozu diesen also in einen Double-Wert umwandeln?

Also wäre ein die Auswertung als Ganzzahl nicht nur logisch richtig, sondern auch einfacher zu verstehen. Die Anzahl der Tage zwischen zwei Daten ist -vom Verständnis her- eine ganze Zahl.

Delphi-Quellcode:

Var
  AnzahlTage : Integer;

Begin
  AnzahlTage := Trunc (Now) - Trunc(Datum);
  Case AnzahlTage Of
    +1 : Writeln('Das Datum war gestern');
     0 : Writeln('Das Datum ist Heute');
    -1 : Writeln('Das Datum ist morgen');
   else Writeln ('Das Datum ist irgendwann');
  end
...

[jaenicke]

Stimmt, das ist nun ein Int64. Ich meine das war nicht immer so. Da habe ich mich geirrt.

[Furtbichler]

"Trunc" lieferte schon immer einen Integer/Int64. "Int" macht das Gleiche, liefert aber einen Double/Extended.