Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Abfrage
Autor: Junior Proggi
Datum: 17.06.02 08:55
Private Sub przZeit() Dim lDays As Long Dim iDay As Integer Dim iMonth As Integer Dim iYear As Integer iDay = Val(left$(tfSoll_Abgabetermin.Text, 2)) iMonth = Val(Mid$(tfSoll_Abgabetermin.Text, 4, 2)) iYear = Val(Right$(tfSoll_Abgabetermin.Text, 4)) lDays = DateDiff("d", DateSerial(iYear, iMonth, iDay), Date) If lDays >= -1 Then tfSoll_Abgabetermin.BackColor = vbRed ElseIf lDays >= -3 Then tfSoll_Abgabetermin.BackColor = vbYellow Else tfSoll_Abgabetermin.BackColor = vbGreen End If End Sub Mit dieser Prozedur frag ich in der Form ab ob der Abgabetermin in naher Zukunft liegt und färbe das jeweilige Textfeld. Übrigens danke Dieter ! Leider funktioniert seit ein paar Tagen diese Prozedur nicht mehr richtig, da sämtliche Textfelder grün gefärbt werden obwohl der Abgabetermin schon verstrichen ist. Wo hab ich den wieder einen Fehler gemacht ? Gruß JP

Abfrage	52	Junior Proggi	17.06.02 08:55
Re: Abfrage	177	Dieter	17.06.02 09:07
Re: Abfrage	22	Junior Proggi	17.06.02 09:10
Re: Abfrage	181	Dieter	17.06.02 09:13
Änderung...	183	Dieter	17.06.02 09:14
oh..danke	27	Junior Proggi	17.06.02 09:23

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