AccessTr.neT

İyi Çalışmalar, İyi akşamlar.

Proğrama siz değerli üyelerin emek ve tavsiyeleri ile ekleme yaptıkca yapasım geliyor.

Fikir ve takviye almak istediğim konu şu ; Olay girişi yaptıktan sonra şahıs ekliyoruz, şahıs ekleme yapıp kaydet butonuna basınca otomatik olarak şahısın yaşını hesaplasın (Cinsiyeti ve sonucu manuel gireceğiz) ve FRMÇIKTIALT'da ki tabloya atsın.

Örnek (Şahıs ekliyoruz) Elemanımız.. 16.05.1996 doğumlu TC UYRUKLU-ERKEK-ŞÜPHELİ-SERBEST

2.ELEMAN: 17.01.1975 doğumlu-TCUYRUKLU-KADIN-MÜŞTEKİ girişi yapıp kaydet dedikten sonra ilgili tabloya her girilen durum hanesine 1 yazsın...

Sn.Ercansahin'in bir uygulamasında yaş hesabı ve aralığını buldum ancak burada 18 yaş hesaplamadığı ve becerenediğim için tavsiye ve yöntem doğrulk/yanlışlık yönlendirmelerinizi bekliyorum.Saygılarımla.


https://accesstr.net/konu-metin-kutusu-8937.html

Aşağıdaki fonksiyon kişinin bugün itibariyle kaç yaşında olduğunu verir.
kullanımı =yashesap([DOGUMTARIHI]) & " YAŞINDA " & [CINSIYET] & " " & [DURUMU]
yada

yashesap(dogumtarihi)

şeklinde kullanabiliesin abi.
Kolay Gelsin.

Option Compare Database

Public Function yashesapla(dogumtarih As Date) As Integer



If IsDate(dogumtarih) = True Then

    yashesapla = Int(DateDiff("d", dogumtarih, Date) / 365.25)

End If

End Function

sN.Kur@l Hocam, zaman ayırdığınız için teşekkürler.

Bu kodları uygulayacağım-Lakin bu yaşı hesaplayacak ama, 18(+) 18(-) nasıl yapacak onu anlayamadım..Bizim 18 yaş ve altı 18 yaş ve üstü diye bir yönteme ihtiyacımız var gibi ! Saygılarımla.

Olay beni aştı, şimdilik bu olayı 2013'de kullanmak üzere askıya alıyorum.

Öncelikli olarak mukayese konusunu çözmem lazım;

İlginize teşekkür ediyorum.