tarihe göre yaş hesaplatma

[ahmet114]

benim sorum şu bana sağlık ocakları programına ek olarak 15 ile 49 arası olan kadınların yaşını hesaplatıcam15 ve 49 olanlarda dahil.....doğum tarihi formatım 01.01.1976 gibi yalnız bana hesaplamayı yaprken sadece yıla göre hesaplama yaptırmam gerekiyor..bana nasıl bir hesaplama yaptırmam lazımki bana sürekli 15 ve 49 arasındaki kadınları versin teşekkür ediyorum.

 

[omerceri]

Function yas(dogtar As Date)
a = Year(Date) - Year(dogtar)
If a >= 15 And a <= 49 Then
yas = a
Else
yas = ""
End If
End Function
rapor veya formda bu fonksiyonu kullanabilirsin

 

[ahmet114]

bunu nasıl kullanıcam a diye bir alan oluşturup a nın güncelleme sonrasına bu fonksiyonumu göstericem

 

[omerceri]

rapordamı formdamı

 

[ahmet114]

formda

 

[ahmet114]

alanlarım şunlar adı soyadı doğum tarihi gibi gidiyor ben sadece doğum tarihi alanımda 01.01.1972 gibi gidiyor doğum tarihi alanım da 15 ile 49 yaş arasındakileri yıla göre seçsin yani 1990 ve 1956 arasındakileri göstersin

 

[omerceri]

bir textbox ve düğme oluşturup doğum tarihini aldığın textboxsı dogtar değişikinine atayacaksın
hesapla = düğme
yası ve dogumtarihi textbox

Private Sub hesapla_Click()
yası.Text = yas(dogumtarihi.Text)
End Sub

istersen dosyayı gönder

 

[ahmet114]

slm

Ã?RNEÃİ EKLEDİM SORGULARDAN ALIYOR BEN SADECE DOÐUM TARİHİNE GÃ?RE 15 İLE 49 YAÞI ARASINDAKİLERİ İSTİYORUM

 

[jale]

Ahmet Bey

Sizden bir ricam var, foruma dosya ekledikten sonra lütfen dosyayı bilgisayarınıza indirip açmayı deneyin.
Çünki ben sizin foruma eklediğiniz hiçbir dosyayı açamıyorum.

 

[ahmet114]

benim bilgisayarda açılıyor jale hanım ...shift tuşuna basarak açarsanız açılacaktır.

 

[excile]

Bende açamadım.