Kód: Vybrat vše
Sv1 = #1/1/2010#
Sv2 = #5/1/2010#
Sv3 = #5/8/2010#
a ted potřebuji proměnnou datum porovnat zda není svátek:
Kód: Vybrat vše
datum = Cells(1, 5)
If datum = Sv1 Or datum = Sv2 Or datum = Sv3 Then
Cells(1, 1) = "ano"
Else
Cells(1, 1) = "ne"
End If
Tři datumy není problém popsat pomocí operátoru "Or", ale až jich budou desítky, tak psát 150x "Or datum = Sv1" se mi nechce. Chtěl bych ten zápis nějak zjednodušit asi v tomto smyslu:
Pokud se proměnná "datum" rovná nějakému datumu z tého množiny stopadesáti datumů Sv1 až Sv150. Ale nepřišel jsem na to, jak to udělat. Napadlo mě dát ty datumy do pole Sv(1) až Sv(150), ale nevím jak dál. Lze toto nějak řešit?