Merhaba;
Ekteki örnekte Metin kutularına yıl ve ay girdiğimizde sonuç olarak gün sayısını verdirebilirmiyiz.
Saygılarımla
![Çözüldü](images/icons/cozuldu.png)
Private Sub Yıl_Exit(Cancel As Integer)
Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)
End Sub
Private Sub AY_Change()
Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)
End Sub