Prikazi cijelu temu 13.04.2011 17:45
roko Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Rijeka


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 ?
Question
PreuzmiIzvorni kôd (Text):
  1.  Function DanUTjednu(datPocetak As Date, kraj As Boolean) As Date
  2.     Dim Pocetak As Date
  3.     Dim Zavrsetak As Date
  4.     Pocetak = DateAdd("d", -Weekday(datPocetak) + 1, datPocetak)
  5.     Zavrsetak = DateAdd("d", 6, Pocetak)
  6.     If Month(datPocetak) <> Month(Pocetak) Then
  7.         Pocetak = DateAdd("d", -Day(datPocetak), datPocetak) + 1
  8.     End If
  9.     If Month(datPocetak) <> Month(Zavrsetak) Then
  10.         Zavrsetak = DateSerial(Year(datPocetak), Month(datPocetak) + 1, 0)
  11.     End If
  12.     If kraj = True Then
  13.     DanUTjednu = Pocetak + 1
  14.     Else
  15.     DanUTjednu = Zavrsetak '''' -Pocetak + 1
  16.     End If
  17. End Function


Prilozi:
dat.JPG
Preuzimanja:368
Velicina datoteke:71.15 KB