Userform'da yaş hesabı

[etf]

Herşeyde önce hepinize Kolay gelsin dileklerimi sunuyorum.
Ekli dosyada oluşturmaya çalıştığım form ile kişinin yaşını hesaplatmaya çalışıyorum. textbox1 ile textbox2 arasındaki fark textbox3'e yazılacak. Textbox3=textbox1-textbox2 yazdığımda negatif bir değer çıkıyor. Yaş hesabı için Int(Yearfrac(textbox2,textbox1) yazdığım da ise hata mesaj alıyorum. Anladığım kadarı ile kullanılan formüller (int(),Yearfrac() ) yüklenmemiş. Denemeler devam ediyorum fakat işin içinden çıkamadım.
Özetle ekte sunduğum dosyada yaş hesabı nasıl yapılabilir?

Yardımcı olacak arkadaşlara şimdiden Teşekkür ederim....

 

[Ayhan Ercan]

Merhaba,

Bununla ilgili daha önce kendimce birşeyler yapmaya çalışmıştım. Umarım işinize yarar..

Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Then MsgBox "Tarih alanları boş geçilemez.!", vbCritical, "HATA": Exit Sub
If Not IsDate(TextBox1) Then MsgBox "Alanlara tarih değeri giriniz.": Exit Sub
If Not IsDate(TextBox2) Then MsgBox "Alanlara tarih değeri giriniz.": Exit Sub
tarih = TextBox1.Text
tarih1 = TextBox2.Text
ilkgun = Mid(tarih, 1, 2): songun = Mid(tarih1, 1, 2)
ilkay = Mid(tarih, 4, 2): sonay = Mid(tarih1, 4, 2)
ilkyil = Mid(tarih, 7, 4): sonyil = Mid(tarih1, 7, 4)
If ilkgun < songun Then ilkgun = ilkgun + 30: ilkay = ilkay - 1
If ilkay < sonay Then ilkay = ilkay + 12: ilkyil = ilkyil - 1
yil = ilkyil - sonyil
ay = ilkay - sonay
gun = ilkgun - songun
If ilkay - sonay > 12 Then ay = ay - 12: yil = yil + 1
TextBox3 = yil & " YIL " & ay & " AY " & gun & " GUN "
End Sub

 

[1Al2Ver]

Merhaba,

Textbox2-textbox1 ile sonuç pozitif çıkıyor,

Sakınca doğurmayacak ise böyle kullanabilirsiniz.

 

[etf]

Merhaba,

Textbox2-textbox1 ile sonuç pozitif çıkıyor,

Sakınca doğurmayacak ise böyle kullanabilirsiniz.

Örnek olarak 03.02.2010 tarihinden 02.02.2010 çıkarırsak -10000 çıkıyor. Ayrıca textbox3'deki değer yaş olmalı.

 

[etf]

Merhaba,

Bununla ilgili daha önce kendimce birşeyler yapmaya çalışmıştım. Umarım işinize yarar..

Private Sub CommandButton1_Click()
If TextBox1 = "" Or TextBox2 = "" Then MsgBox "Tarih alanları boş geçilemez.!", vbCritical, "HATA": Exit Sub
If Not IsDate(TextBox1) Then MsgBox "Alanlara tarih değeri giriniz.": Exit Sub
If Not IsDate(TextBox2) Then MsgBox "Alanlara tarih değeri giriniz.": Exit Sub
tarih = TextBox1.Text
tarih1 = TextBox2.Text
ilkgun = Mid(tarih, 1, 2): songun = Mid(tarih1, 1, 2)
ilkay = Mid(tarih, 4, 2): sonay = Mid(tarih1, 4, 2)
ilkyil = Mid(tarih, 7, 4): sonyil = Mid(tarih1, 7, 4)
If ilkgun < songun Then ilkgun = ilkgun + 30: ilkay = ilkay - 1
If ilkay < sonay Then ilkay = ilkay + 12: ilkyil = ilkyil - 1
yil = ilkyil - sonyil
ay = ilkay - sonay
gun = ilkgun - songun
If ilkay - sonay > 12 Then ay = ay - 12: yil = yil + 1
TextBox3 = yil & " YIL " & ay & " AY " & gun & " GUN "
End Sub

Sayın Ayhan Ercan
Yardımınız için teşekkürler... Muhakkak ki verdiğiniz örnek çok güzel ve değerli.

Asıl soru şu olmalı herhalde; "Excel'deki yerleşik formüllerin VBA kod ile yada makro ile kullanımı nasıl olmalı?"
Yukarıda verdiğim formül excel sayfasında doğru hesabı yapıyor. Fakat makro ile bunu başaramadım.

Teşekkürler...