Xor vs. If

Hallo allerseits,
ich versuche gerade ein paar Tips zur Vermeidung von Schleifen umzusetzen.
Am Nachfolgenden Beispiel habe ich einmal meine
bisherige Variante mit Schleifen
(Abfrage ob ein Datum ein Feiertag ist) verwendet. Dabei wurden bekannte Typ-Unverträglichkeiten ausgeklammert/vermieden.
In der zweiten Variante mit Xor bin ich etwas "brutaler" mit resume next
an die Sache herangegangen.
Verschachtelte If habe ich noch jede Menge. Wäre das Prinzip der 2. Variante
tatsächlich die bessere, schnellere Wahl ?
Über eine Meinung oder Anregung würde ich mich sehr freuen.
Gruß, Ingo
'Überprüfen ob Feiertag
For y = 1 To UBound(Arr_Feiertage, 1)
If Arr_Feiertage(y, 2) = "Ostersonntag" Then
If CDate(.Name) + i_tag - 1 = _
CDate(Ostersonntag(Year(.Name)) + Arr_Feiertage(y, 3)) Then
Feiertag = True
End If
End If
If Arr_Feiertage(y, 2) "Ostersonntag" Then
If CDate(.Name) + i_tag - 1 = _
CDate(Arr_Feiertage(y, 2) & Year(.Name)) Then
Feiertag = True
End If
End If
Next y
2. Variante
For y = 1 To UBound(Arr_Feiertage, 1)
On Error Resume Next
Feiertag = _
CDate(.Name) + i_tag - 1 = _
CDate(Ostersonntag(Year(.Name)) + Arr_Feiertage(y, 3)) Xor _
CDate(.Name) + i_tag - 1 = _
CDate(Arr_Feiertage(y, 2) & Year(.Name))
If Feiertag = True Then Exit For
Next y

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

datName = CDate(.Name) + i_tag - 1 datOstern = Ostersonntag(Year(.Name)) For y = 1 To UBound(Arr_Feiertage, 1) On Error Resume Next If datName = CDate(datOstern + Arr_Feiertage(y, 3)) Or _ datName = CDate(Arr_Feiertage(y, 2) & Year(.Name)) Then _ Feiertag = True: Exit For Next y

Hallo Ingo,
""warum eigentlich Xor und nicht Or?"
Weil ich damit auch ohne if das Ergebnis true oder false abfragen kann."
Das habe ich nicht verstanden. Or und Xor tun doch prinzipiell das Gleiche, mit dem kleinen Unterschied,
dass Xor ein False liefert, wenn die beiden verknüpften Aussagen wahr sind. Or liefert dann True.
Wenn du in einer Tabelle die Spalten A bis D wie hier ausfüllst und dann die Prozedur laufen lässt,
siehst du das:

	A	B	C	D	E	F	G	H
1	A	B	C	D	A>B	C>D	A>B Or C>D	A>B Xor C>D
2	22	1	22	1	FALSCH	FALSCH	FALSCH	FALSCH
3	22	1	1	22	FALSCH	WAHR	WAHR	WAHR
4	1	22	22	1	WAHR	FALSCH	WAHR	WAHR
5	1	22	1	22	WAHR	WAHR	WAHR	FALSCH

Hier die Prozedur:

Sub Or_Xor()
Dim zz As Long
For zz = 2 To 5
Cells(zz, 5) = Cells(zz, 1) < Cells(zz, 2)
Cells(zz, 6) = Cells(zz, 3) < Cells(zz, 4)
Cells(zz, 7) = Cells(zz, 1) < Cells(zz, 2) Or Cells(zz, 3) < Cells(zz, 4)
Cells(zz, 8) = Cells(zz, 1) < Cells(zz, 2) Xor Cells(zz, 3) < Cells(zz, 4)
Next zz
End Sub

Bezogen auf deinen Code stellt sich die Frage, ob ein Tag wirklich kein Feiertag sein soll, wenn
CDate(Ostersonntag(Year(.Name)) + Arr_Feiertage(y, 3))
und
CDate(.Name) + i_tag - 1 = CDate(Arr_Feiertage(y, 2) & Year(.Name))
beide wahr sind. (Bei Xor kommt dann False raus.)
Noch eine Bemerkung zu "If Feiertag = True Then Exit For":
Feiertag ist True oder False.
Damit steht da
"If True = True Then Exit For" oder "If False = True Then Exit For"
Das geht einfacher und kürzer mit "If Feiertag Then Exit For"
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread