18 Yaş Hesabı

16/05/2012, 21:45

yorum70

İ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


YAŞHESABI.rar
16/05/2012, 22:46

Kur@l

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
16/05/2012, 23:04

yorum70

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.
13/06/2012, 23:07

yorum70

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.