[ Miro35 @ 24.06.2010. 09:11 ] @
Trebam na jednoj formi postaviti combo box koji će imati control source sve mjesece u godini.Takodje imam dva unbound polja,jedno je "datumod" a drugo "datumdo".Kad izaberem neki mjesec iz tog combo boxa treba da upiše u "datumod" "01." pa taj mjesec koji sam izabro i trenutna godina,formata "dd.mm.yyyy". Isto tako u "datumdo" da upiše kraj tog mjeseca.E sad ovde je nekad potrebno da upiše "31.01.2010", a nekad će biti "30.06.2010" , zavisno koji je mjesec izabran u combo boxu.
[ smal @ 24.06.2010. 09:51 ] @
Možda može i elegantnije da se reši, ali ovo mi je prvo palo na pamet:
Code:
datumdo = CDate(Format(Date();"1/" & [datumod]+1 & "/yyyy"))-1


Hm, grebiga, zbog 12-og meseca kod bi morao da izgleda ovako:
Code:
datumdo = IIf([datumod]=12;CDate(Format(Date();"31/12" & "/yyyy"));CDate(Format(Date();"1/" & [datumod]+1 & "/yyyy"))-1)



[Ovu poruku je menjao smal dana 24.06.2010. u 15:15 GMT+1]
[ Miro35 @ 24.06.2010. 10:23 ] @
Ako može objašnjenje za ovo CDate, ako recimo izaberem mjesec Januar da li ću dobit u polju datumod:"01.01.2010" i da li ću dobiti u polju datumdo:"31.01.2010".
[ smal @ 24.06.2010. 10:38 ] @
CDate pretvara vrednost u datum. Ti imaš vrednosti kao 01, 02, 03... Dakle, onda datumod izgleda kao:
Code:
=CDate(Format(Date();"1/" & [datumod] & "/yyyy"))



Izvinjavam se, nisam dobro pročitao pitanje, tj. datumod sam greškom zamislio da je vrednost ComboBoxa. U svakom slučaju, evo ga sad ispravan primer uz poruku.

[Ovu poruku je menjao smal dana 24.06.2010. u 12:16 GMT+1]
[ Miro35 @ 24.06.2010. 13:30 ] @
Svaka cast to je to, odlicno rjesenje.To mi je trebalo hvala.
[ Zidar @ 24.06.2010. 13:32 ] @
Ako zadas Godinu i Mesec, ova funkcija ti daje datum prvog dana u tom mesecu u toj godini:

FirstOfMonth = DateSerial(Godina, Mesec, 1)


Ako ti treba poslednji dan za dati par (godina, mesec) onda je

LastOfMonth = DateAdd("m", 1, DateSerial(Godina, Mesec, 1)) - 1

Resenje je pokupljeno odavde http://www.mvps.org/access/datetime/date0007.htm