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 := '-';