Einzelnen Beitrag anzeigen

d7user1
(Gast)

n/a Beiträge
 
#1

DaysBetween und Mitternacht

  Alt 13. Okt 2013, 18:00
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.
  Mit Zitat antworten Zitat