DaysBetween und Mitternacht

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:

zusammenfalten · markieren

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.

DaysBetween und Mitternacht

DaysBetween und Mitternacht

Forumregeln