[ neptuncokg @ 26.05.2010. 22:16 ] @
Ovih dana mi bez pomoci foruma nista ne polazi za rukom. Nikako da "pogodim" makro za dodelu svojstva textbox-u (dtpicker-u) za:
1. prvi dan tekuceg meseca, tekuce godine (za ovaj mesec je - 01.05.2010)
2. poslednji dan tekuce meseca, tekuce godine ( - 31.05.2010)
U clipperu to izgleda ovako : ctod( '01.'+month(date())+'.'+year(date()) ). Hvala unapred
[ FOX028 @ 26.05.2010. 22:49 ] @
evo ti kod koji bi to resio

dan = 1
mesec = Month(Now)
godina = Year(Now)
a = DateSerial(godina, mesec, dan)
a = FormatDateTime(a, vbShortDate)
DTP1.Value = a

dan = 1
mesec = Month(Now)
godina = Year(Now)
Select Case mesec
Case 1, 3, 5, 7, 8, 10, 12
dan = 31
Case 4, 6, 9, 11
dan = 30
Case 2
If godina Mod 4 = 0 Then
dan = 29
Else
dan = 28
End If
End Select

b = DateSerial(godina, mesec, dan)
b = FormatDateTime(b, vbShortDate)
DTP2.Value = b

samo prepravi DTP1 i DTP2 onako kako su kod tebe definisani i trebalo bi da radi
pozzz
[ neptuncokg @ 26.05.2010. 23:15 ] @
Prilagodjeno i - radi, bas kako treba. Hvala. Ja sam ocekivao da postoji neki "predefinisan" format za ovo,nesto kao sto sam naveo za clipper. Mozda i postoji, ali i ovo je o.k. Stavio sam macro u "Activate" forme i funkcionise. Pozdrav.
[ FOX028 @ 27.05.2010. 00:37 ] @
mozda postoji, ali ja sam ga resio na ovaj nacin, ma vazno da radi :P
[ Jpeca @ 27.05.2010. 08:33 ] @
Ovo što je FOX napvravio i jeste vrlo slično kliperskom kodu koji si naveo, samo je napisano u više redova (i nekom je možda je preglednije ?). Za početni dan tekućeg meseca može se svesti na:

Code:
Me.DT1.Value = DateSerial(Year(Date), Month(Date), 1)


Za poslednji dan tekuce meseca, umesto Case strukture, lakše je da uzmeš početni datum sledećeg meseca i od njega oduzmeš jedan.

Code:
 Me.DT2.Value = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
[ neptuncokg @ 27.05.2010. 10:53 ] @
To je to sto sam pokusavao da uradim. Samo mi je nedostajao "DateSerial" .(Samo?!). Pozdrav i hvala.