Predmet:Broj tjedna
Dali ima neka funkcija koja bi mi vratila dan prvi i zadnji dan tjedna ili samo prvi
dakle imam unos datuma za 4 uvjeta datum 1 datum 2 tjedan 1 tjedan 2
odprilike od 1 do 2 raspon Kad unosim datum imam funkciju koja vrača prvi i zadnji dan u tjednu
pa onda bez problema u i 2 vratim broj tjedna tjedan 1=Format(datum, "ww") ali kako u nazad odnosno tjedan 1 kad upišem 14 da mi vrati 02.04.2011 ?
PreuzmiIzvorni kôd (Text): 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
Prilozi:
dat.JPG
Preuzimanja:368
Velicina datoteke:71.15 KB