Skip to main content

AccessTr.neT


Ayın Gün Sayısını Bulma

Ayın Gün Sayısını Bulma

#5
POVER hocanın yazdığı kodu Metin kutusunun Exıt olayına yazarsan anında hesaplıyor.
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

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

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
Task