Function Dani(KojiDan As Date, Pon As Boolean, Uto As Boolean, Sri As Boolean, Cet As Boolean, Pet As Boolean, Subb As Boolean)
Dim Dan As Integer
Dan = Weekday(KojiDan)
Select Case Dan
Case 2
Dani = Pon
Case 3
Dani = Uto
Case 4
Dani = Sri
Case 5
Dani = Cet
Case 6
Dani = Pet
Case 7
Dani = Subb
End Select
End Function