Einzelnen Beitrag anzeigen

Benutzerbild von jaenicke
jaenicke

Registriert seit: 10. Jun 2003
Ort: Berlin
9.648 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: DaysBetween und Mitternacht

  Alt 13. Okt 2013, 19:45
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 := '-';
Sebastian Jänicke
AppCentral
  Mit Zitat antworten Zitat