Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Phänomen /Datum2
Autor: Quincy
Datum: 16.11.03 11:04
Gerne Guido Private v (1 To 9) As Integer ' Nummer des Feiertages Private b(1 To 9) As Integer 'Wochentag Private t1, t2 As Integer ' Nummer für Urlaubsanfang u. Ende Private Sub Berechnung() If b1 <> 1 And b1 <> 7 Then ' Wenn der Feiertag weder Samstag noch Sonntag ist If CInt(v1) >= CInt(t1) And CInt(v1) <= CInt(t2) Then Text2 = CStr(CInt(Text2)) + 1 End If If b2 <> 1 And b2 <> 7 Then If CInt(v2) >= CInt(t1) And CInt(v2) <= CInt(t2) Then Text2 = CStr(CInt(Text2)) + 1 End If If b3 <> 1 And b3 <> 7 Then If CInt(v3) >= CInt(t1) And CInt(v3) <= CInt(t2) Then Text2 = CStr(CInt(Text2)) + 1 End If usw. End Sub Es muss halt sichergestellt sein, dass die Vergleichsvariablen vom gleichen Datentyp sind. Gruss Horst

Phänomen /Datum2	487	Quincy	14.11.03 10:32
Re: Phänomen /Datum2	339	Brogi	14.11.03 11:07
Re: Phänomen /Datum2	292	Quincy	14.11.03 11:11
Re: Phänomen /Datum2	332	Brogi	14.11.03 11:19
Re: Phänomen /Datum2	276	Quincy	14.11.03 11:33
Re: Phänomen /Datum2	280	Quincy	14.11.03 16:54
Re: Phänomen /Datum2	300	GuidoE	16.11.03 02:42
Re: Phänomen /Datum2	334	Quincy	16.11.03 11:04

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