+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 18 Yaş Hesabı (/konu-18-yas-hesabi.html)
18 Yaş Hesabı - yorum70 - 16/05/2012
İ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
Cvp: 18 Yaş Hesabı - Kur@l - 16/05/2012
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)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
Cvp: 18 Yaş Hesabı - yorum70 - 16/05/2012
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.
Cvp: 18 Yaş Hesabı - yorum70 - 13/06/2012
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.