Function mesic_case(mesic As Long) As String
    Select Case mesic
        Case 1
                mesic_case = "Leden"
        Case 2
                mesic_case = "Únor"
        Case 3nasersitrosko
                mesic_case = "Březen"
        Case 4
                mesic_case = "Duben"
        Case 5
                mesic_case = "Květen"
        Case 6
                mesic_case = "Červen"
        Case 7
                mesic_case = "Červenec"
        Case 8
                mesic_case = "Srpen"
        Case 9
                mesic_case = "Září"
        Case 10
                mesic_case = "Říjen"
        Case 11
                mesic_case = "Listopad"
        Case 12
                mesic_case = "Prosinec"
        End Select
End Function