function Meno
dim Mesiac,Den
Januar = Array("Nový rok", "Alexandra", "Daniela", "Drahoslav", "Andrea", "Antónia", "Bohuslava,Bohuslav", "Severín", "Alexej", "Dáša", "Malvína", "Ernest", "Rastislav", "Radovan", "Dobroslav", "Kristína", "Nataša", "Bohdana", "Drahomíra", "Dalibor", "Vincent", "Zora", "Miloš", "Timotej", "Gejza", "Tamara", "Bohuš", "Alfonz", "Gašpar", "Ema", "Emil")
Februar = Array("Tatiana", "Erika,Erik", "Blažej", "Veronika", "Agáta", "Dorota", "Vanda", "Zoja", "Zdenko", "Gabriela", "Dezider", "Perla", "Arpád", "Valentín", "Pravoslav", "Ida", "Miloslava", "Jaromír", "Vlasta", "Lívia", "Eleonóra", "Etela", "Roman,Romana", "Matej", "Frederik,Frederika", "Viktor", "Alexander", "Zlatica", "")
Marec = Array("Albín", "Anežka", "Bohumil,Bohumila", "Kazimír", "Fridrich", "Radoslav,Radoslava", "Tomáš", "Alan,Alana", "Františka", "Branislav,Bruno", "Angela,Angelika", "Gregor", "Vlastimil", "Matilda", "Svetlana", "Boleslav", "Ľubica", "Eduard", "Jozef", "Víťazoslav", "Blahoslav", "Beňadik", "Adrián", "Gabriel", "Marián", "Emanuel", "Alena", "Soňa", "Miroslav", "Vieroslava", "Benjamín")
April = Array("Hugo", "Zita", "Richard", "Izidor", "Miroslava", "Irena", "Zoltán", "Albert", "Milena", "Igor", "Július", "Estera", "Aleš", "Justína", "Fedor", "Dana,Danica", "Rudolf", "Valér", "Jela", "Marcel", "Ervín", "Slavomír", "Vojtech", "Juraj", "Marek", "Jaroslava", "Jaroslav", "Jarmila", "Lea", "Anastázia")
Maj = Array("Sviatok práce", "Žigmund", "Galina", "Florián", "Lesana,Lesia", "Hermína", "Monika", "Ingrida", "Roland", "Viktória", "Blažena", "Pankrác", "Servác", "Bonifác", "Žofia", "Svetozár", "Gizela", "Viola", "Gertrúda", "Bernard", "Zina", "Júlia,Juliana", "Želmíra", "Ela", "Urban", "Dušan", "Iveta", "Viliam", "Vilma", "Ferdinand", "Petronela,Petrana")
Jun = Array("Žaneta", "Xénia", "Karolína", "Lenka", "Laura", "Norbert", "Róbert", "Medard", "Stanislava", "Margaréta", "Dobroslava", "Zlatko", "Anton", "Vasil", "Vít", "Blanka", "Adolf", "Vratislav", "Alfréd", "Valéria", "Alojz", "Paulína", "Sidónia", "Ján", "Tadeáš", "Adriana", "Ladislav,Ladislava", "Beata", "Peter,Pavol,Petra", "Melánia")
Jul = Array("Diana", "Berta", "Miloslav", "Prokop", "Cyril a Metod", "Patrik,Patrícia", "Oliver", "Ivan", "Lujza", "Amália", "Milota", "Nina", "Margita", "Kamil", "Henrich", "Drahomír", "Bohuslav", "Kamila", "Dušana", "Iľja,Eliáš", "Daniel", "Magdaléna", "Oľga", "Vladimír", "Jakub", "Anna,Hana", "Božena", "Krištof", "Marta", "Libuša", "Ignác")
August = Array("Božidara", "Gustáv", "Jerguš", "Dominik,Dominika", "Hortenzia", "Jozefína", "Štefánia", "Oskar", "Ľubomíra", "Vavrinec", "Zuzana", "Darina", "Ľubomír", "Mojmír", "Marcela", "Leonard", "Milica", "Elena,Helena", "Lýdia", "Anabela", "Jana", "Tichomír", "Filip", "Bartolomej", "Ľudovít", "Samuel", "Silvia", "Augustín", "Nikola,Nikolaj", "Ružena", "Nora")
September = Array("Drahoslava", "Linda", "Belo", "Rozália", "Regína", "Alica", "Marianna", "Miriama", "Martina", "Oleg", "Bystrík", "Mária", "Ctibor", "Ľudomil", "Jolana", "Ľudmila", "Olympia", "Eugénia", "Konštantín", "Ľuboslav,Ľuboslava", "Matúš", "Móric", "Zdenka", "Ľuboš,Ľubor", "Vladislav", "Edita", "Cyprián", "Václav", "Michal,Michaela", "Jarolím")
Oktober = Array("Arnold", "Levoslav", "Stela", "František", "Viera", "Natália", "Eliška", "Brigita", "Dionýz", "Slavomíra", "Valentína", "Maximilián", "Koloman", "Boris", "Terézia", "Vladimíra", "Hedviga", "Lukáš", "Kristián", "Vendelín", "Uršuľa", "Sergej", "Alojzia", "Kvetoslava", "Aurel", "Demeter", "Sabína", "Dobromila", "Klára", "Šimon,Simona", "Aurélia")
November = Array("Denis,Denisa", "Pamiatka zosnulých", "Hubert", "Karol", "Imrich", "Renáta", "René", "Bohumír", "Teodor", "Tibor", "Martin,Maroš", "Svätopluk", "Stanislav", "Irma", "Leopold", "Agnesa", "Klaudia", "Eugen", "Alžbeta", "Félix", "Elvíra", "Cecília", "Klement", "Emília", "Katarína", "Kornel", "Milan", "Henrieta", "Vratko", "Ondrej,Andrej")
December = Array("Edmund", "Bibiána", "Oldrich", "Barbora", "Oto", "Mikuláš", "Ambróz", "Marína", "Izabela", "Radúz", "Hilda", "Otília", "Lucia", "Branislava,Bronislava", "Ivica", "Albína", "Kornélia", "Sláva,Slávka", "Judita", "Dagmara", "Bohdan", "Adela", "Nadežda", "Adam,Eva", "1.sviatok vianočný", "Štefan", "Filoména", "Ivana,Ivona", "Milada", "Dávid", "Silvester")

Mesiac=Month(date)
Den =Day(date)-1' Format(Date, "d") - 1 'cislo dna
Select Case Mesiac
Case 1
Meno = Januar(Den)
Case 2
Meno = Februar(Den)
Case 3
Meno = Marec(Den)
Case 4
Meno = April(Den)
Case 5
Meno = Maj(Den)
Case 6
Meno = Jun(Den)
Case 7
Meno = Jul(Den)
Case 8
Meno = August(Den)
Case 9
Meno = September(Den)
Case 10
Meno = Oktober(Den)
Case 11
Meno = November(Den)
Case 12
Meno = December(Den)
End Select
end function
--></SCRIPT>