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,