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