Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

wieder ich
Autor: Junior Proggi
Datum: 10.07.02 13:44
Private Sub przZeit() Dim lDays As Long Dim iDay As Integer Dim iMonth As Integer Dim iYear As Integer iDay = Val(left$(dyS!Soll_Abgabetermin, 2)) iMonth = Val(Mid$(dyS!Soll_Abgabetermin, 4, 2)) iYear = Val(Mid$(dyS!Soll_Abgabetermin, 7, 4)) lDays = DateDiff("d", DateSerial(iYear, iMonth, iDay), Date) If lDays >= -1 Then lvw_SetColor ListView1, vbRed, 0 ElseIf lDays >= -3 Then lvw_SetColor ListView1, vbYellow, 0 Else lvw_SetColor ListView1, vbBlack, 0 End If End Sub Irgendwie färbt er mir alles Gelb, warum ? Gruß der nervende JP

Listview einfärben	50	Junior Proggi	10.07.02 11:54
Re: Listview einfärben	340	Dieter	10.07.02 11:59
Re: Listview einfärben	34	Junior Proggi	10.07.02 12:01
Und wo sind die Parameter?	342	Dieter	10.07.02 12:06
ups .. danke (oT)	30	Junior Proggi	10.07.02 13:04
noch ne kleine Frage	151	Junior Proggi	10.07.02 13:14
Re: noch ne kleine Frage	327	Dieter	10.07.02 13:21
Danke Dieter ! (oT)	40	Junior Proggi	10.07.02 13:24
wieder ich	31	Junior Proggi	10.07.02 13:44
Re: wieder ich	351	Dieter	10.07.02 13:54
Problem..	46	Junior Proggi	10.07.02 14:36
So schwer ist das doch nicht	362	Dieter	10.07.02 14:52
Ich streng mich jetzt mal an (oT)	32	Junior Proggi	10.07.02 14:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen