PC-HELP.CZ

Mám deklarované tyto tři datumy jako svátky (bude jich ale asi 150):

a ted potřebuji proměnnou datum porovnat zda není svátek:

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?

Vytvor si kolekci svatku a overuj, zde kolekce obsahuje pozadovane datum.
viz priloha

Děkuji - dobrý námět, o kolekcích jsem ještě neslyšel. Jsem takový samouk. Tak jsem ještě procházel net a zjistil jsem, co to ty kolekce jsou. Zápis jsem pochopil. Ale mám dvě otázky:
V tomto řádku, který přidává hodnoty do kolekce, je "ano". K čemu to tam je?

A pak mám druhý dotaz, neumím porovnat "Datum" zda obsahuje hodnotu z kolekce. Jediné co mě napadlo, je v cyklu For - Next, porovnat hodnoty Sv(i) s proměnnou "Datum". Jenže to už pak nepotřebuji kolekci , ale stačí mě pracovat s polem.

Takže pokud to je složité, to tady vysvětlovat amatérovi, (mě) tak to udělám tím polem přes FOR - NEXT a bude to vyřešené.

Pouziti kolekce jsem minil jako jedno z moznych reseni, samozrejme lze pouzit i pouhe prohledavani pole Array - Test1 nebo vyuzit prikaz Select Case - Test2 (navic i umozni pripadne vetveni programu na zaklade vyrazu):

Pro maly pocet prvku to je asi vyhodnejsi, pro onech uvazovanych 150 prvku uz bude pouziti kolekce rychlejsi.
Objekt Collection je tvoreny polozkami a klici k temto polozkam. V danem pripade, kdy je overovano datum, je klic datum a potrebna polozka muze byt cokoliv, takze jsem zvolil "ano". V modulu2 je vyznam polozky a klice jasnejsi.
PS.: Pokud je tech 150 svatku mineno za obdobi vice roku, existuje efektivnejsi reseni pro pevne a pohyblive svatky v roce, nez psat tech 150 svatku (vlozit do standardniho modulu):

No to je SUPER !!!!!! to poslední Makro . Děkuji moc.
Vydedukoval jsem z toho že ta dávka Sub Test3() se spouští a porovnává datum v hodnotě Dt. Ten Private Sub SetSv(rok As Integer) se automaticky spustí při spuštění Sub Test3() a naplní proměnnou Sv(). A ta Sub Function.. je mi jasná. Uvažuji správně?

Ano, je to tak (ta posledni procedura je funkce - Function, takze ne Sub Function).
no a zde je pro pripad potreby uzivatelska funkce (vlozit do standardniho modulu, ve kterem jsou procedury patrici k Sub Test3):

a potom z listu lze volat, priklad:

(ta posledni procedura je funkce - Function, takze ne Sub Function) jo jasně, to jsem to popletl...
Ta funkce také super - díky za ní
Ještě otázka:
Pokud v budoucnu přibude nějaký svátek (parlament něco schválí), tak jestli jsem to dobře pochopil, tak stačí do tohoto řádku dopsat další datum, a již nikde nic nemusím dalšího opravovat. Je to tak?

Ano, staci doplnit pridany svatek.
Nastane vsak problem s platnosti pro roky pred zmenou. Pri pouzit na predchozi roky bude nutne pole ArraySvatky nacitat podle roku, pouzit Selec Case, (napriklad takto v roce 2012):

No to je nádhera, takový luxus jsem si ani nepředstavoval... . Děkuji

// Označeno za vyřešené
// mike007