Yaş Hesaplama

[Gökhan Gümüş]

Kıymetli üstadlarım,sizler için küçük benim için büyük bir sorunu çözmeniz için yardımınızı bekliyorum.
Form üzerinde 2 adet label bir adet textbox var.
Birinci labelde günün tarihi otomatik geliyor.
TextBox' da ise kişinin gün ay yıl olarak doğum tarihi kayıtlı.
Yapmak istediğim, ikinci labelde kişinin kaç yaşında olduğu yazmalı ve Şayet kişi 18 yaşından küçük ise msgbox ile " Bu kişinin yaşı 18' den küçüktür" uyarısı vermeli.Ayrıca kişinin yaşı örnek19 yıl 4 ay ) 19,4 gibi virgülden sonra bir rakamdan fazla olmaması.
Şimdiden Teşekkürler

 

[Gökhan Gümüş]

Kıymetli üstadlarım,sizler için küçük benim için büyük bir sorunu çözmeniz için yardımınızı bekliyorum.
Form üzerinde 2 adet label bir adet textbox var.
Birinci labelde günün tarihi otomatik geliyor.
TextBox' da ise kişinin gün ay yıl olarak doğum tarihi kayıtlı.
Yapmak istediğim, ikinci labelde kişinin kaç yaşında olduğu yazmalı ve Şayet kişi 18 yaşından küçük ise msgbox ile " Bu kişinin yaşı 18' den küçüktür" uyarısı vermeli.Ayrıca kişinin yaşı örnek19 yıl 4 ay ) 19,4 gibi virgülden sonra bir rakamdan fazla olmaması.
Şimdiden Teşekkürler

Aşağıya dosyayı ekledim,ilginiz için şimdiden teşekkürler

 

[alpi]

Aşağıdaki kodlar istediğinizi yapıyor

Dim DoğumGünü As Date
DoğumGünü = "01/01/1977"
MsgBox DateDiff("m", DoğumGünü, Now) / 12

 

[Gökhan Gümüş]

Aşağıdaki kodlar istediğinizi yapıyor

Dim DoğumGünü As Date
DoğumGünü = "01/01/1977"
MsgBox DateDiff("m", DoğumGünü, Now) / 12

Sayın Alpi,
Öncelikle cevabınız için teşekkür ediyorum.Ancak verdiğiniz kod msgbox içerisinde 19,333333333333 şeklinde sadece kişinin yaşını veriyor.Ben 19,3 den fazla rakam gelmemesi, ayrıca kişinin yaşı küçük ise ayrıca "Bu kişi 18 yaşından küçüktür" şeklinde bir mesaj gelmesini istiyordum.Mümkünse bu konuda yardımınız olurmu.

 

[alpi]

Aşağıdaki gibi mi olmasını istemiştiniz?

    Dim DoğumGünü As Date
    Dim Yaş
    DoğumGünü = "01/01/1977"
    Yaş = FormatNumber(DateDiff("m", DoğumGünü, Now) / 12, 1)
    If Yaş < 18 Then
        MsgBox "Yaş: " & Yaş & vbLf & "18 yaşıdan küçük"
    Else
        MsgBox "Yaş: " & Yaş & vbLf & "18 yaşıdan büyük"
    End If

 

[Gökhan Gümüş]

Tam olarak istediğim bu idi.Ellerine sağlık alpi.

 

[Galip]

Sayın alpi kodunuzu nereye yazacağız. User formdaki kodlar tamamen silinecekmi?