Function den_tydne(Den As Long) As String
    If Den = 1 Then
        den_tydne_if = "pondělí"
    If Den = 2 Then
        den_tydne_if = "úterý"
    If Den = 3 Then
        den_tydne_if = "středa"
    If Den = 4 Then
        den_tydne_if = "čtvrtek"
    If Den = 5 Then
        den_tydne_if = "pátek"
    If Den = 6 Then
        den_tydne_if = "sobota"
    If Den = 7 Then
        den_tydne_if = "neděle"

End Function