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, 0)
    End If
    If kraj = True Then
    DanUTjednu = Pocetak + 1
    Else
    DanUTjednu = Zavrsetak '''' -Pocetak + 1
    End If
End Function