DaysBetween und Mitternacht

[d7user1]

hallo, leider habe ich noch ein weiteres problem. das ist mein letztes. ich habe zwei Zeitstempeln. nun möchte ich diese vergleichen und in einem Label ausgeben ob der unterschied null tage ergibt, einen oder mehr. also es soll ausgegebene werden "Heute", "Gestern", oder wenn der unterschied größer als "Gestern" ist, das datum. leider klappt das nicht so ganz.

meine versuche:

Delphi-Quellcode:

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

  if iT > 0 then
   begin
    if (Int(DaySpan(lc, Now)) = 0) then
     Form10.Label6.Caption := 'Heute ' + DateTimeToStr(lc)
    else if (Int(DaySpan(lc, Now)) = 1) then
     Form10.Label6.Caption := 'Gestern ' + DateTimeToStr(lc)
    else
     Form10.Label6.Caption := DateTimeToStr(lc);
   end
  else
   Form10.Label6.Caption := '-';
end;

eigentlich müsste "Gestern" angezeigt werden und das datum. es wird aber noch immer "Heute" angezeigt.

[Der schöne Günther]

Er hat auch Recht. 1381620390 ist ‎13‎.‎10‎.‎2013‎ ‎01‎:‎26‎:‎30 und nicht wie dein Kommentar behauptet 12.10.2013 23:26:30.

[Uwe Raabe]

Zitat von Der schöne Günther:

Er hat auch Recht. 1381620390 ist ‎13‎.‎10‎.‎2013‎ ‎01‎:‎26‎:‎30 und nicht wie dein Kommentar behauptet 12.10.2013 23:26:30.

Das kommt ganz darauf an, was functions.UnixToDateTime so alles macht.

[d7user1]

bedeutet das dass ich jetzt die verschiebung der zeittone negieren muss?
bei mir ist es +1, also -1? damit es statt
- 12.10.2013 23:26:30
dann
- 13.10.2013 00:26:30 uhr ist?


UnixToDateTime teilt nur den übergebenen timestamp durch 86400 und addiert am ende 25569 (UnixStartDate).

[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".