Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function DanUTjednu(datPocetak As Date, kraj As Boolean) As Date Dim Pocetak As Date Dim Zavrsetak As Date Pocetak = DateAdd("d", -Weekday(datPocetak) + 1, datPocetak) Zavrsetak = DateAdd("d", 6, Pocetak) If Month(datPocetak) <> Month(Pocetak) Then Pocetak = DateAdd("d", -Day(datPocetak), datPocetak) + 1 End If If Month(datPocetak) <> Month(Zavrsetak) Then Zavrsetak = DateSerial(Year(datPocetak), Month(datPocetak) + 1,