Hintergrundfarbe Zeile ListView Inhalt-Abhängig

[Micha]

Hallo zusammen,

ich habe eine ListView mit 3 Spalten (siehe Anlage).
Der Inhalt der 1. (Datumswert) und 2. Spalte (Name) wird aus einer Datenbank ausgelesen.
In der 3. Spalte die Anzahl der Tage, die zwischem dem Wert der 1. Spalte und dem heutigem Datum liegen.

Nun möchte ich die Einträge rot markieren, die in der Spalte "Tage vergangen" (3. Spalte) einen Wert haben der größer als 21 Tage ist, gelbe Markierung bei > 14 Tage, grün = bis 14 Tage.
Eintragungen in der Zukunft sollen blau markiert sein.

Hier erstmal mein Code für das Berechnen der Tage (3. Spalte):

Delphi-Quellcode:

if datetostr(now) > listitem.Caption then
 begin
  ListItem.SubItems.Add('+ ' + IntToStr(DaysBetween(strtodate(DateToStr(Now)), StrToDate(ListItem.Caption))));
 end
 else
  ListItem.SubItems.Add('- ' + IntToStr(DaysBetween(strtodate(DateToStr(Now)), StrToDate(ListItem.Caption))));

Ich hoff es war verständlich.

Kann mir wer helfen?

[kiar]

was ist daysbetween? bei d5 ist das nicht dabei :(

raik

[mirage228]

Wenn ich mit nicht Irre heisst die Unit DateUtils...

mfG
mirage228

[mirage228]

EDIT: Sorry, falscher Button, Beitrag kann weg...

[Micha]

Zitat:

Die Funktion gibt die Anzahl ganzer Tage zwischen den beiden angegebenen TDateTime-Werten zurück.

[kiar]

@micha, das habe ich mir gedacht :mrgreen:

das war aber nicht meine frage :shock:

raik

[Micha]

Hä? Das war nicht deine Frage:

Zitat:

was ist daysbetween?

und das war die Antwort?! *garNichtsMehrCheck*

[kiar]

sorry :oops:

falsch ausgedrückt, in d5 ist die funktion nicht dabei, welche version hast du?

[Markus K.]

Hallo kiar,
du musst DateUtil bei uses hinzufügen. Dann müsste er die Funktion erkennen.

Tschüß Markus

[kiar]

schreibt doch einfach mal eure version auf d5 kennt weder DAteUtil noch DaysBetween!