EXCEL-prvi i poslednji dan tekuceg meseca

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

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

Potpis

[email protected]=

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.

mozda postoji, ali ja sam ga resio na ovaj nacin, ma vazno da radi :P

Potpis

[email protected]=

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:



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

Potpis

Nije to loše Rembrante, samo što ne bi dodao još malo boje?