Visual Basic - Kdo má svátek ?

Nejprve nadeklarujte proměnnou.

Dim strSvatek As String 'deklarace proměnné pro svtátek

Potom si do nějaké procedury vložte následující sled podmínek, které nastavují hodnotu proměnné strSvatek podle data.

'Leden
If (Month(Date) = 1) And Day(Date) = 1 Then strSvatek = ""
If (Month(Date) = 1) And Day(Date) = 2 Then strSvatek = "Karina"
If (Month(Date) = 1) And Day(Date) = 3 Then strSvatek = "Radmila"
If (Month(Date) = 1) And Day(Date) = 4 Then strSvatek = "Diana"
If (Month(Date) = 1) And Day(Date) = 5 Then strSvatek = "Dalimil"
If (Month(Date) = 1) And Day(Date) = 6 Then strSvatek = ""
If (Month(Date) = 1) And Day(Date) = 7 Then strSvatek = "Vilma"
If (Month(Date) = 1) And Day(Date) = 8 Then strSvatek = "Čestmír"
If (Month(Date) = 1) And Day(Date) = 9 Then strSvatek = "Vladan"
If (Month(Date) = 1) And Day(Date) = 10 Then strSvatek = "Břetislav"
If (Month(Date) = 1) And Day(Date) = 11 Then strSvatek = "Bohdana"
If (Month(Date) = 1) And Day(Date) = 12 Then strSvatek = "Pravoslav"
If (Month(Date) = 1) And Day(Date) = 13 Then strSvatek = "Edita"
If (Month(Date) = 1) And Day(Date) = 14 Then strSvatek = "Radovan"
If (Month(Date) = 1) And Day(Date) = 15 Then strSvatek = "Alice"
If (Month(Date) = 1) And Day(Date) = 16 Then strSvatek = "Ctirad"
If (Month(Date) = 1) And Day(Date) = 17 Then strSvatek = "Drahoslav"
If (Month(Date) = 1) And Day(Date) = 18 Then strSvatek = "Vladislav"
If (Month(Date) = 1) And Day(Date) = 19 Then strSvatek = "Doubravka"
If (Month(Date) = 1) And Day(Date) = 20 Then strSvatek = "Ilona"
If (Month(Date) = 1) And Day(Date) = 21 Then strSvatek = "Běla"
If (Month(Date) = 1) And Day(Date) = 22 Then strSvatek = "Slavomír"
If (Month(Date) = 1) And Day(Date) = 23 Then strSvatek = "Zdeněk"
If (Month(Date) = 1) And Day(Date) = 24 Then strSvatek = "Milena"
If (Month(Date) = 1) And Day(Date) = 25 Then strSvatek = "Miloš"
If (Month(Date) = 1) And Day(Date) = 26 Then strSvatek = "Zora"
If (Month(Date) = 1) And Day(Date) = 27 Then strSvatek = "Ingrid"
If (Month(Date) = 1) And Day(Date) = 28 Then strSvatek = "Otýlie"
If (Month(Date) = 1) And Day(Date) = 29 Then strSvatek = "Zdislava"
If (Month(Date) = 1) And Day(Date) = 30 Then strSvatek = "Robin"
If (Month(Date) = 1) And Day(Date) = 31 Then strSvatek = "Marika"

'Únor
If (Month(Date) = 2) And Day(Date) = 1 Then strSvatek = "Hynek"
If (Month(Date) = 2) And Day(Date) = 2 Then strSvatek = "Nela"
If (Month(Date) = 2) And Day(Date) = 3 Then strSvatek = "Blažej"
If (Month(Date) = 2) And Day(Date) = 4 Then strSvatek = "Jarmila"
If (Month(Date) = 2) And Day(Date) = 5 Then strSvatek = "Dobromila"
If (Month(Date) = 2) And Day(Date) = 6 Then strSvatek = "Vanda"
If (Month(Date) = 2) And Day(Date) = 7 Then strSvatek = "Veronika"
If (Month(Date) = 2) And Day(Date) = 8 Then strSvatek = "Milada"
If (Month(Date) = 2) And Day(Date) = 9 Then strSvatek = "Apolena"
If (Month(Date) = 2) And Day(Date) = 10 Then strSvatek = "Mojmír"
If (Month(Date) = 2) And Day(Date) = 11 Then strSvatek = "Božena"
If (Month(Date) = 2) And Day(Date) = 12 Then strSvatek = "Slavěna"
If (Month(Date) = 2) And Day(Date) = 13 Then strSvatek = "Věnceslav"
If (Month(Date) = 2) And Day(Date) = 14 Then strSvatek = "Valentýn"
If (Month(Date) = 2) And Day(Date) = 15 Then strSvatek = "Jiřina"
If (Month(Date) = 2) And Day(Date) = 16 Then strSvatek = "Ljuba"
If (Month(Date) = 2) And Day(Date) = 17 Then strSvatek = "Miloslava"
If (Month(Date) = 2) And Day(Date) = 18 Then strSvatek = "Gizela"
If (Month(Date) = 2) And Day(Date) = 19 Then strSvatek = "Patrik"
If (Month(Date) = 2) And Day(Date) = 20 Then strSvatek = "Oldřich"
If (Month(Date) = 2) And Day(Date) = 21 Then strSvatek = "Lenka"
If (Month(Date) = 2) And Day(Date) = 22 Then strSvatek = "Petr"
If (Month(Date) = 2) And Day(Date) = 23 Then strSvatek = "Svatopluk"
If (Month(Date) = 2) And Day(Date) = 24 Then strSvatek = "Matěj"
If (Month(Date) = 2) And Day(Date) = 25 Then strSvatek = "Liliana"
If (Month(Date) = 2) And Day(Date) = 26 Then strSvatek = "Dorota"
If (Month(Date) = 2) And Day(Date) = 27 Then strSvatek = "Alexandr"
If (Month(Date) = 2) And Day(Date) = 28 Then strSvatek = "Lumír"
If (Month(Date) = 2) And Day(Date) = 29 Then strSvatek = "Horymír"

'Březen
If (Month(Date) = 3) And Day(Date) = 1 Then strSvatek = "Bedřich"
If (Month(Date) = 3) And Day(Date) = 2 Then strSvatek = "Anežka"
If (Month(Date) = 3) And Day(Date) = 3 Then strSvatek = "Kamil"
If (Month(Date) = 3) And Day(Date) = 4 Then strSvatek = "Stela"
If (Month(Date) = 3) And Day(Date) = 5 Then strSvatek = "Kazimír"
If (Month(Date) = 3) And Day(Date) = 6 Then strSvatek = "Miroslav"
If (Month(Date) = 3) And Day(Date) = 7 Then strSvatek = "Tomáš"
If (Month(Date) = 3) And Day(Date) = 8 Then strSvatek = "Gabriela"
If (Month(Date) = 3) And Day(Date) = 9 Then strSvatek = "Františka"
If (Month(Date) = 3) And Day(Date) = 10 Then strSvatek = "Viktorie"
If (Month(Date) = 3) And Day(Date) = 11 Then strSvatek = "Anděla"
If (Month(Date) = 3) And Day(Date) = 12 Then strSvatek = "Řehoř"
If (Month(Date) = 3) And Day(Date) = 13 Then strSvatek = "Růžena"
If (Month(Date) = 3) And Day(Date) = 14 Then strSvatek = "Rút a Matylda"
If (Month(Date) = 3) And Day(Date) = 15 Then strSvatek = "Ida"
If (Month(Date) = 3) And Day(Date) = 16 Then strSvatek = "Elena a Herbert"
If (Month(Date) = 3) And Day(Date) = 17 Then strSvatek = "Vlastimil"
If (Month(Date) = 3) And Day(Date) = 18 Then strSvatek = "Eduard"
If (Month(Date) = 3) And Day(Date) = 19 Then strSvatek = "Josef"
If (Month(Date) = 3) And Day(Date) = 20 Then strSvatek = "Světlana"
If (Month(Date) = 3) And Day(Date) = 21 Then strSvatek = "Radek"
If (Month(Date) = 3) And Day(Date) = 22 Then strSvatek = "Leona"
If (Month(Date) = 3) And Day(Date) = 23 Then strSvatek = "Ivona"
If (Month(Date) = 3) And Day(Date) = 24 Then strSvatek = "Gabriel"
If (Month(Date) = 3) And Day(Date) = 25 Then strSvatek = "Marián"
If (Month(Date) = 3) And Day(Date) = 26 Then strSvatek = "Emanuel"
If (Month(Date) = 3) And Day(Date) = 27 Then strSvatek = "Dita"
If (Month(Date) = 3) And Day(Date) = 28 Then strSvatek = "Soňa"
If (Month(Date) = 3) And Day(Date) = 29 Then strSvatek = "Taťána"
If (Month(Date) = 3) And Day(Date) = 30 Then strSvatek = "Arnošt"
If (Month(Date) = 3) And Day(Date) = 31 Then strSvatek = "Kvído"

'Duben
If (Month(Date) = 4) And Day(Date) = 1 Then strSvatek = "Hugo"
If (Month(Date) = 4) And Day(Date) = 2 Then strSvatek = "Erika"
If (Month(Date) = 4) And Day(Date) = 3 Then strSvatek = "Richard"
If (Month(Date) = 4) And Day(Date) = 4 Then strSvatek = "Ivana"
If (Month(Date) = 4) And Day(Date) = 5 Then strSvatek = "Miroslava"
If (Month(Date) = 4) And Day(Date) = 6 Then strSvatek = "Vendula"
If (Month(Date) = 4) And Day(Date) = 7 Then strSvatek = "Heřman a Hermína"
If (Month(Date) = 4) And Day(Date) = 8 Then strSvatek = "Ema"
If (Month(Date) = 4) And Day(Date) = 9 Then strSvatek = "Dušan"
If (Month(Date) = 4) And Day(Date) = 10 Then strSvatek = "Darja"
If (Month(Date) = 4) And Day(Date) = 11 Then strSvatek = "Izabela"
If (Month(Date) = 4) And Day(Date) = 12 Then strSvatek = "Julius"
If (Month(Date) = 4) And Day(Date) = 13 Then strSvatek = "Aleš"
If (Month(Date) = 4) And Day(Date) = 14 Then strSvatek = "Vincent a Vincenc"
If (Month(Date) = 4) And Day(Date) = 15 Then strSvatek = "Anastázie"
If (Month(Date) = 4) And Day(Date) = 16 Then strSvatek = "Irena"
If (Month(Date) = 4) And Day(Date) = 17 Then strSvatek = "Rudolf"
If (Month(Date) = 4) And Day(Date) = 18 Then strSvatek = "Valérie"
If (Month(Date) = 4) And Day(Date) = 19 Then strSvatek = "Rostislav"
If (Month(Date) = 4) And Day(Date) = 20 Then strSvatek = "Marcela"
If (Month(Date) = 4) And Day(Date) = 21 Then strSvatek = "Alexandra"
If (Month(Date) = 4) And Day(Date) = 22 Then strSvatek = "Evžénie"
If (Month(Date) = 4) And Day(Date) = 23 Then strSvatek = "Vojtěch"
If (Month(Date) = 4) And Day(Date) = 24 Then strSvatek = "Jiří"
If (Month(Date) = 4) And Day(Date) = 25 Then strSvatek = "Marek"
If (Month(Date) = 4) And Day(Date) = 26 Then strSvatek = "Oto"
If (Month(Date) = 4) And Day(Date) = 27 Then strSvatek = "Jaroslav"
If (Month(Date) = 4) And Day(Date) = 28 Then strSvatek = "Vlastislav"
If (Month(Date) = 4) And Day(Date) = 29 Then strSvatek = "Robert"
If (Month(Date) = 4) And Day(Date) = 30 Then strSvatek = "Blahoslav"

'Květen
If (Month(Date) = 5) And Day(Date) = 1 Then strSvatek = ""
If (Month(Date) = 5) And Day(Date) = 2 Then strSvatek = "Zikmund"
If (Month(Date) = 5) And Day(Date) = 3 Then strSvatek = "Alexej"
If (Month(Date) = 5) And Day(Date) = 4 Then strSvatek = "Květoslav"
If (Month(Date) = 5) And Day(Date) = 5 Then strSvatek = "Klaudie"
If (Month(Date) = 5) And Day(Date) = 6 Then strSvatek = "Radoslav"
If (Month(Date) = 5) And Day(Date) = 7 Then strSvatek = "Stanislav"
If (Month(Date) = 5) And Day(Date) = 8 Then strSvatek = ""
If (Month(Date) = 5) And Day(Date) = 9 Then strSvatek = "Ctibor"
If (Month(Date) = 5) And Day(Date) = 10 Then strSvatek = "Blažena"
If (Month(Date) = 5) And Day(Date) = 11 Then strSvatek = "Svatava"
If (Month(Date) = 5) And Day(Date) = 12 Then strSvatek = "Pankrác"
If (Month(Date) = 5) And Day(Date) = 13 Then strSvatek = "Servác"
If (Month(Date) = 5) And Day(Date) = 14 Then strSvatek = "Bonifác"
If (Month(Date) = 5) And Day(Date) = 15 Then strSvatek = "Žofie"
If (Month(Date) = 5) And Day(Date) = 16 Then strSvatek = "Přemysl"
If (Month(Date) = 5) And Day(Date) = 17 Then strSvatek = "Aneta"
If (Month(Date) = 5) And Day(Date) = 18 Then strSvatek = "Nataša"
If (Month(Date) = 5) And Day(Date) = 19 Then strSvatek = "Ivo"
If (Month(Date) = 5) And Day(Date) = 20 Then strSvatek = "Zbyšek"
If (Month(Date) = 5) And Day(Date) = 21 Then strSvatek = "Monika"
If (Month(Date) = 5) And Day(Date) = 22 Then strSvatek = "Emil"
If (Month(Date) = 5) And Day(Date) = 23 Then strSvatek = "Vladimír"
If (Month(Date) = 5) And Day(Date) = 24 Then strSvatek = "Jana"
If (Month(Date) = 5) And Day(Date) = 25 Then strSvatek = "Viola"
If (Month(Date) = 5) And Day(Date) = 26 Then strSvatek = "Filip"
If (Month(Date) = 5) And Day(Date) = 27 Then strSvatek = "Valdemar"
If (Month(Date) = 5) And Day(Date) = 28 Then strSvatek = "Vilém"
If (Month(Date) = 5) And Day(Date) = 29 Then strSvatek = "Maxmilián"
If (Month(Date) = 5) And Day(Date) = 30 Then strSvatek = "Ferdinand"
If (Month(Date) = 5) And Day(Date) = 31 Then strSvatek = "Kamila"

'Červen
If (Month(Date) = 6) And Day(Date) = 1 Then strSvatek = "Laura"
If (Month(Date) = 6) And Day(Date) = 2 Then strSvatek = "Jarmil"
If (Month(Date) = 6) And Day(Date) = 3 Then strSvatek = "Tamara"
If (Month(Date) = 6) And Day(Date) = 4 Then strSvatek = "Dalibor"
If (Month(Date) = 6) And Day(Date) = 5 Then strSvatek = "Dobroslav"
If (Month(Date) = 6) And Day(Date) = 6 Then strSvatek = "Norbert"
If (Month(Date) = 6) And Day(Date) = 7 Then strSvatek = "Iveta a Slavoj"
If (Month(Date) = 6) And Day(Date) = 8 Then strSvatek = "Medard"
If (Month(Date) = 6) And Day(Date) = 9 Then strSvatek = "Stanislava"
If (Month(Date) = 6) And Day(Date) = 10 Then strSvatek = "Gita"
If (Month(Date) = 6) And Day(Date) = 11 Then strSvatek = "Bruno"
If (Month(Date) = 6) And Day(Date) = 12 Then strSvatek = "Antonie"
If (Month(Date) = 6) And Day(Date) = 13 Then strSvatek = "Antonín"
If (Month(Date) = 6) And Day(Date) = 14 Then strSvatek = "Roland"
If (Month(Date) = 6) And Day(Date) = 15 Then strSvatek = "Vít"
If (Month(Date) = 6) And Day(Date) = 16 Then strSvatek = "Zbyněk"
If (Month(Date) = 6) And Day(Date) = 17 Then strSvatek = "Adolf"
If (Month(Date) = 6) And Day(Date) = 18 Then strSvatek = "Milan"
If (Month(Date) = 6) And Day(Date) = 19 Then strSvatek = "Leoš"
If (Month(Date) = 6) And Day(Date) = 20 Then strSvatek = "Květa"
If (Month(Date) = 6) And Day(Date) = 21 Then strSvatek = "Alois"
If (Month(Date) = 6) And Day(Date) = 22 Then strSvatek = "Pavla"
If (Month(Date) = 6) And Day(Date) = 23 Then strSvatek = "Zdeňka"
If (Month(Date) = 6) And Day(Date) = 24 Then strSvatek = "Jan"
If (Month(Date) = 6) And Day(Date) = 25 Then strSvatek = "Ivan"
If (Month(Date) = 6) And Day(Date) = 26 Then strSvatek = "Adriana"
If (Month(Date) = 6) And Day(Date) = 27 Then strSvatek = "Ladislav"
If (Month(Date) = 6) And Day(Date) = 28 Then strSvatek = "Lubomír"
If (Month(Date) = 6) And Day(Date) = 29 Then strSvatek = "Petr a Pavel"
If (Month(Date) = 6) And Day(Date) = 30 Then strSvatek = "Šárka"

'Červenec
If (Month(Date) = 7) And Day(Date) = 1 Then strSvatek = "Jaroslava"
If (Month(Date) = 7) And Day(Date) = 2 Then strSvatek = "Patricie"
If (Month(Date) = 7) And Day(Date) = 3 Then strSvatek = "Radomír"
If (Month(Date) = 7) And Day(Date) = 4 Then strSvatek = "Prokop"
If (Month(Date) = 7) And Day(Date) = 5 Then strSvatek = ""
If (Month(Date) = 7) And Day(Date) = 6 Then strSvatek = ""
If (Month(Date) = 7) And Day(Date) = 7 Then strSvatek = "Bohuslava"
If (Month(Date) = 7) And Day(Date) = 8 Then strSvatek = "Nora"
If (Month(Date) = 7) And Day(Date) = 9 Then strSvatek = "Drahoslava"
If (Month(Date) = 7) And Day(Date) = 10 Then strSvatek = "Libuše a Amálie"
If (Month(Date) = 7) And Day(Date) = 11 Then strSvatek = "Olga"
If (Month(Date) = 7) And Day(Date) = 12 Then strSvatek = "Bořek"
If (Month(Date) = 7) And Day(Date) = 13 Then strSvatek = "Markéta"
If (Month(Date) = 7) And Day(Date) = 14 Then strSvatek = "Karolína"
If (Month(Date) = 7) And Day(Date) = 15 Then strSvatek = "Jindřich"
If (Month(Date) = 7) And Day(Date) = 16 Then strSvatek = "Luboš"
If (Month(Date) = 7) And Day(Date) = 17 Then strSvatek = "Martina"
If (Month(Date) = 7) And Day(Date) = 18 Then strSvatek = "Brahomíra"
If (Month(Date) = 7) And Day(Date) = 19 Then strSvatek = "Čeněk"
If (Month(Date) = 7) And Day(Date) = 20 Then strSvatek = "Ilja"
If (Month(Date) = 7) And Day(Date) = 21 Then strSvatek = "Vítěslav"
If (Month(Date) = 7) And Day(Date) = 22 Then strSvatek = "Magdaléna"
If (Month(Date) = 7) And Day(Date) = 23 Then strSvatek = "Libor"
If (Month(Date) = 7) And Day(Date) = 24 Then strSvatek = "Kristýna"
If (Month(Date) = 7) And Day(Date) = 25 Then strSvatek = "Jakub"
If (Month(Date) = 7) And Day(Date) = 26 Then strSvatek = "Anna"
If (Month(Date) = 7) And Day(Date) = 27 Then strSvatek = "Věroslav"
If (Month(Date) = 7) And Day(Date) = 28 Then strSvatek = "Viktor"
If (Month(Date) = 7) And Day(Date) = 29 Then strSvatek = "Marta"
If (Month(Date) = 7) And Day(Date) = 30 Then strSvatek = "Bořivoj"
If (Month(Date) = 7) And Day(Date) = 31 Then strSvatek = "Ignác"

'Srpen
If (Month(Date) = 8) And Day(Date) = 1 Then strSvatek = "Oskar"
If (Month(Date) = 8) And Day(Date) = 2 Then strSvatek = "Gustav"
If (Month(Date) = 8) And Day(Date) = 3 Then strSvatek = "Miluše"
If (Month(Date) = 8) And Day(Date) = 4 Then strSvatek = "Dominik"
If (Month(Date) = 8) And Day(Date) = 5 Then strSvatek = "Kristián"
If (Month(Date) = 8) And Day(Date) = 6 Then strSvatek = "Oldřiška"
If (Month(Date) = 8) And Day(Date) = 7 Then strSvatek = "Lada"
If (Month(Date) = 8) And Day(Date) = 8 Then strSvatek = "Soběslav"
If (Month(Date) = 8) And Day(Date) = 9 Then strSvatek = "Roman"
If (Month(Date) = 8) And Day(Date) = 10 Then strSvatek = "Vavřinec"
If (Month(Date) = 8) And Day(Date) = 11 Then strSvatek = "Zuzana"
If (Month(Date) = 8) And Day(Date) = 12 Then strSvatek = "Klára"
If (Month(Date) = 8) And Day(Date) = 13 Then strSvatek = "Alena"
If (Month(Date) = 8) And Day(Date) = 14 Then strSvatek = "Alan"
If (Month(Date) = 8) And Day(Date) = 15 Then strSvatek = "Hana"
If (Month(Date) = 8) And Day(Date) = 16 Then strSvatek = "Jáchym"
If (Month(Date) = 8) And Day(Date) = 17 Then strSvatek = "Petra"
If (Month(Date) = 8) And Day(Date) = 18 Then strSvatek = "Helena"
If (Month(Date) = 8) And Day(Date) = 19 Then strSvatek = "Ludvík"
If (Month(Date) = 8) And Day(Date) = 20 Then strSvatek = "Bernard"
If (Month(Date) = 8) And Day(Date) = 21 Then strSvatek = "Johana"
If (Month(Date) = 8) And Day(Date) = 22 Then strSvatek = "Bohuslav"
If (Month(Date) = 8) And Day(Date) = 23 Then strSvatek = "Sandra"
If (Month(Date) = 8) And Day(Date) = 24 Then strSvatek = "Bartoloměj"
If (Month(Date) = 8) And Day(Date) = 25 Then strSvatek = "Radim"
If (Month(Date) = 8) And Day(Date) = 26 Then strSvatek = "Luděk"
If (Month(Date) = 8) And Day(Date) = 27 Then strSvatek = "Otakar"
If (Month(Date) = 8) And Day(Date) = 28 Then strSvatek = "Augustýn"
If (Month(Date) = 8) And Day(Date) = 29 Then strSvatek = "Evelína"
If (Month(Date) = 8) And Day(Date) = 30 Then strSvatek = "Vladěna"
If (Month(Date) = 8) And Day(Date) = 31 Then strSvatek = "Pavlína"

'Září
If (Month(Date) = 9) And Day(Date) = 1 Then strSvatek = "Linda a Samuel"
If (Month(Date) = 9) And Day(Date) = 2 Then strSvatek = "Adéla"
If (Month(Date) = 9) And Day(Date) = 3 Then strSvatek = "Bronislav"
If (Month(Date) = 9) And Day(Date) = 4 Then strSvatek = "Jindřiška"
If (Month(Date) = 9) And Day(Date) = 5 Then strSvatek = "Boris"
If (Month(Date) = 9) And Day(Date) = 6 Then strSvatek = "Boleslav"
If (Month(Date) = 9) And Day(Date) = 7 Then strSvatek = "Regína"
If (Month(Date) = 9) And Day(Date) = 8 Then strSvatek = "Mariana"
If (Month(Date) = 9) And Day(Date) = 9 Then strSvatek = "Daniela"
If (Month(Date) = 9) And Day(Date) = 10 Then strSvatek = "Irma"
If (Month(Date) = 9) And Day(Date) = 11 Then strSvatek = "Denisa"
If (Month(Date) = 9) And Day(Date) = 12 Then strSvatek = "Marie"
If (Month(Date) = 9) And Day(Date) = 13 Then strSvatek = "Lubor"
If (Month(Date) = 9) And Day(Date) = 14 Then strSvatek = "Radka"
If (Month(Date) = 9) And Day(Date) = 15 Then strSvatek = "Jolana"
If (Month(Date) = 9) And Day(Date) = 16 Then strSvatek = "Ludmila"
If (Month(Date) = 9) And Day(Date) = 17 Then strSvatek = "Naděžda"
If (Month(Date) = 9) And Day(Date) = 18 Then strSvatek = "Kryštof"
If (Month(Date) = 9) And Day(Date) = 19 Then strSvatek = "Zita"
If (Month(Date) = 9) And Day(Date) = 20 Then strSvatek = "Oleg"
If (Month(Date) = 9) And Day(Date) = 21 Then strSvatek = "Matouš"
If (Month(Date) = 9) And Day(Date) = 22 Then strSvatek = "Dariana"
If (Month(Date) = 9) And Day(Date) = 23 Then strSvatek = "Berta"
If (Month(Date) = 9) And Day(Date) = 24 Then strSvatek = "Jaromír"
If (Month(Date) = 9) And Day(Date) = 25 Then strSvatek = "Zlata"
If (Month(Date) = 9) And Day(Date) = 26 Then strSvatek = "Andrea"
If (Month(Date) = 9) And Day(Date) = 27 Then strSvatek = "Jonáš"
If (Month(Date) = 9) And Day(Date) = 28 Then strSvatek = "Václav"
If (Month(Date) = 9) And Day(Date) = 29 Then strSvatek = "Michal"
If (Month(Date) = 9) And Day(Date) = 30 Then strSvatek = "Jeroným"

'Říjen
If (Month(Date) = 10) And Day(Date) = 1 Then strSvatek = "Igor"
If (Month(Date) = 10) And Day(Date) = 2 Then strSvatek = "Olívie a Oliver"
If (Month(Date) = 10) And Day(Date) = 3 Then strSvatek = "Bohumil"
If (Month(Date) = 10) And Day(Date) = 4 Then strSvatek = "František"
If (Month(Date) = 10) And Day(Date) = 5 Then strSvatek = "Eliška"
If (Month(Date) = 10) And Day(Date) = 6 Then strSvatek = "Hanuš"
If (Month(Date) = 10) And Day(Date) = 7 Then strSvatek = "Justýna"
If (Month(Date) = 10) And Day(Date) = 8 Then strSvatek = "Věra"
If (Month(Date) = 10) And Day(Date) = 9 Then strSvatek = "Štefan a Sára"
If (Month(Date) = 10) And Day(Date) = 10 Then strSvatek = "Marina"
If (Month(Date) = 10) And Day(Date) = 11 Then strSvatek = "Andrej"
If (Month(Date) = 10) And Day(Date) = 12 Then strSvatek = "Marcel"
If (Month(Date) = 10) And Day(Date) = 13 Then strSvatek = "Renáta"
If (Month(Date) = 10) And Day(Date) = 14 Then strSvatek = "Agáta"
If (Month(Date) = 10) And Day(Date) = 15 Then strSvatek = "Tereza"
If (Month(Date) = 10) And Day(Date) = 16 Then strSvatek = "Havel"
If (Month(Date) = 10) And Day(Date) = 17 Then strSvatek = "Hedvika"
If (Month(Date) = 10) And Day(Date) = 18 Then strSvatek = "Lukáš"
If (Month(Date) = 10) And Day(Date) = 19 Then strSvatek = "Michela"
If (Month(Date) = 10) And Day(Date) = 20 Then strSvatek = "Vendelín"
If (Month(Date) = 10) And Day(Date) = 21 Then strSvatek = "Brigita"
If (Month(Date) = 10) And Day(Date) = 22 Then strSvatek = "Sabina"
If (Month(Date) = 10) And Day(Date) = 23 Then strSvatek = "Teodor"
If (Month(Date) = 10) And Day(Date) = 24 Then strSvatek = "Nina"
If (Month(Date) = 10) And Day(Date) = 25 Then strSvatek = "Beáta"
If (Month(Date) = 10) And Day(Date) = 26 Then strSvatek = "Erik"
If (Month(Date) = 10) And Day(Date) = 27 Then strSvatek = "Šarlota a Zoe"
If (Month(Date) = 10) And Day(Date) = 28 Then strSvatek = ""
If (Month(Date) = 10) And Day(Date) = 29 Then strSvatek = "Silvie"
If (Month(Date) = 10) And Day(Date) = 30 Then strSvatek = "Tadeáš"
If (Month(Date) = 10) And Day(Date) = 31 Then strSvatek = "Štěpánka"

'Listopad
If (Month(Date) = 11) And Day(Date) = 1 Then strSvatek = "Felix"
If (Month(Date) = 11) And Day(Date) = 2 Then strSvatek = ""
If (Month(Date) = 11) And Day(Date) = 3 Then strSvatek = "Hubert"
If (Month(Date) = 11) And Day(Date) = 4 Then strSvatek = "Karel"
If (Month(Date) = 11) And Day(Date) = 5 Then strSvatek = "Miriam"
If (Month(Date) = 11) And Day(Date) = 6 Then strSvatek = "Liběna"
If (Month(Date) = 11) And Day(Date) = 7 Then strSvatek = "Saskie"
If (Month(Date) = 11) And Day(Date) = 8 Then strSvatek = "Bohumír"
If (Month(Date) = 11) And Day(Date) = 9 Then strSvatek = "Bohdan"
If (Month(Date) = 11) And Day(Date) = 10 Then strSvatek = "Evžen"
If (Month(Date) = 11) And Day(Date) = 11 Then strSvatek = "Martin"
If (Month(Date) = 11) And Day(Date) = 12 Then strSvatek = "Benedikt"
If (Month(Date) = 11) And Day(Date) = 13 Then strSvatek = "Tibor"
If (Month(Date) = 11) And Day(Date) = 14 Then strSvatek = "Sáva"
If (Month(Date) = 11) And Day(Date) = 15 Then strSvatek = "Leopold"
If (Month(Date) = 11) And Day(Date) = 16 Then strSvatek = "Otmar"
If (Month(Date) = 11) And Day(Date) = 17 Then strSvatek = "Mahulena"
If (Month(Date) = 11) And Day(Date) = 18 Then strSvatek = "Romana"
If (Month(Date) = 11) And Day(Date) = 19 Then strSvatek = "Alžběta"
If (Month(Date) = 11) And Day(Date) = 20 Then strSvatek = "Nikola"
If (Month(Date) = 11) And Day(Date) = 21 Then strSvatek = "Albert"
If (Month(Date) = 11) And Day(Date) = 22 Then strSvatek = "Cecílie"
If (Month(Date) = 11) And Day(Date) = 23 Then strSvatek = "Klement"
If (Month(Date) = 11) And Day(Date) = 24 Then strSvatek = "Emílie"
If (Month(Date) = 11) And Day(Date) = 25 Then strSvatek = "Kateřina"
If (Month(Date) = 11) And Day(Date) = 26 Then strSvatek = "Artur"
If (Month(Date) = 11) And Day(Date) = 27 Then strSvatek = "Xenie"
If (Month(Date) = 11) And Day(Date) = 28 Then strSvatek = "René"
If (Month(Date) = 11) And Day(Date) = 29 Then strSvatek = "Zina"
If (Month(Date) = 11) And Day(Date) = 30 Then strSvatek = "Ondřej"

'Prosinec
If (Month(Date) = 12) And Day(Date) = 1 Then strSvatek = "Iva"
If (Month(Date) = 12) And Day(Date) = 2 Then strSvatek = "Blanka"
If (Month(Date) = 12) And Day(Date) = 3 Then strSvatek = "Svatoslav"
If (Month(Date) = 12) And Day(Date) = 4 Then strSvatek = "Barbora"
If (Month(Date) = 12) And Day(Date) = 5 Then strSvatek = "Jitka"
If (Month(Date) = 12) And Day(Date) = 6 Then strSvatek = "Mikuláš"
If (Month(Date) = 12) And Day(Date) = 7 Then strSvatek = "Benjamín"
If (Month(Date) = 12) And Day(Date) = 8 Then strSvatek = "Květoslava"
If (Month(Date) = 12) And Day(Date) = 9 Then strSvatek = "Vratislav"
If (Month(Date) = 12) And Day(Date) = 10 Then strSvatek = "Julie"
If (Month(Date) = 12) And Day(Date) = 11 Then strSvatek = "Dana"
If (Month(Date) = 12) And Day(Date) = 12 Then strSvatek = "Simona"
If (Month(Date) = 12) And Day(Date) = 13 Then strSvatek = "Lucie"
If (Month(Date) = 12) And Day(Date) = 14 Then strSvatek = "Lýdie"
If (Month(Date) = 12) And Day(Date) = 15 Then strSvatek = "Radana"
If (Month(Date) = 12) And Day(Date) = 16 Then strSvatek = "Albína"
If (Month(Date) = 12) And Day(Date) = 17 Then strSvatek = "Daniel"
If (Month(Date) = 12) And Day(Date) = 18 Then strSvatek = "Miloslav"
If (Month(Date) = 12) And Day(Date) = 19 Then strSvatek = "Ester"
If (Month(Date) = 12) And Day(Date) = 20 Then strSvatek = "Dagmar"
If (Month(Date) = 12) And Day(Date) = 21 Then strSvatek = "Natálie"
If (Month(Date) = 12) And Day(Date) = 22 Then strSvatek = "Šimon"
If (Month(Date) = 12) And Day(Date) = 23 Then strSvatek = "Vlasta"
If (Month(Date) = 12) And Day(Date) = 24 Then strSvatek = "Adam a Eva"
If (Month(Date) = 12) And Day(Date) = 25 Then strSvatek = ""
If (Month(Date) = 12) And Day(Date) = 26 Then strSvatek = "Štěpán"
If (Month(Date) = 12) And Day(Date) = 27 Then strSvatek = "Žaneta"
If (Month(Date) = 12) And Day(Date) = 28 Then strSvatek = "Bohumila"
If (Month(Date) = 12) And Day(Date) = 29 Then strSvatek = "Judita"
If (Month(Date) = 12) And Day(Date) = 30 Then strSvatek = "David"
If (Month(Date) = 12) And Day(Date) = 31 Then strSvatek = "Silvestr"

A nakonec ukázka použití.

lblSvatek.Caption = "Dnes má svátek" & strSvatek & "."