ve VBA
Function JK_Pondeli(Tyden, Rok) As Date
Dim TheDate As Date
TheDate = DateSerial(Rok - 1, 12, 31) + 7 * (Tyden - 1) - Weekday(TheDate, vbMonday) + 2
JK_Pondeli = DateSerial(Year(TheDate), Month(TheDate), Day(TheDate))
End Functioncitovat
Function JK_Pondeli(Tyden, Rok) As Date
Dim TheDate As Date
TheDate = DateSerial(Rok - 1, 12, 31) + 7 * (Tyden - 1) - Weekday(TheDate, vbMonday) + 2
JK_Pondeli = DateSerial(Year(TheDate), Month(TheDate), Day(TheDate))
End Functioncitovat