Kod:
Private Sub Yıl_Exit(Cancel As Integer)
Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)
End Sub
Kod:
Private Sub AY_Change()
Me.txtGUN = Left(DateSerial(Me.Yıl, CInt(Me.AY) + 1, 0), 2)
End Sub
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
Bu Konudaki Yorumlar |
Ayın Gün Sayısını Bulma - Yazar: odin - 20/06/2017, 12:10
Cvp: Ayın Gün Sayısını Bulma - Yazar: jon206 - 20/06/2017, 15:39
Cvp: Ayın Gün Sayısını Bulma - Yazar: odin - 20/06/2017, 16:32
Cvp: Ayın Gün Sayısını Bulma - Yazar: POWER - 21/06/2017, 00:04
Cvp: Ayın Gün Sayısını Bulma - Yazar: idrisy - 21/06/2017, 01:14
Cvp: Ayın Gün Sayısını Bulma - Yazar: odin - 21/06/2017, 07:50
|