yaş hesaplama

[armandos]

Forumda da aradım ancak userform üzerinde textbox içindeki tarihi baz alarak commonbuttona tıklandığında yaşı gün ay yıl olarak gösteren bir kod bulamadım. İnşallah uyumayan arkadaşlar vardır

 

[Zeki Gürsoy]

Bu fonksiyonu kullanabilirsiniz..

Function ETARIH(KÜÇÜK_TARİH As Date, BÜYÜK_TARİH As Date) As String
ETARIH = Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""y"")") & " YIL "
ETARIH = ETARIH & Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""ym"")") & " AY "
ETARIH = ETARIH & Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""md"")") & " GÜN"
End Function

 

[armandos]

bu kodu userformamı yazacağız. yoksa modülde mi kullanacağız. Herhangi bir düzenleme yapmak gerekirmi?

 

[hsayar]

zeki hocam aşağıdak şekilde kullanıldığında hatalı sonuç üretiyor;

Function ETARIH(KÜÇÜK_TARİH As Date, BÜYÜK_TARİH As Date) As String
ETARIH = Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""y"")") & " YIL "
ETARIH = ETARIH & Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""ym"")") & " AY "
ETARIH = ETARIH & Evaluate("DateDif(" & CDbl(CDate(KÜÇÜK_TARİH)) & "," & CDbl(CDate(BÜYÜK_TARİH)) & ", ""md"")") & " GÜN"
End Function
Sub testtarih()
Dim a$
a = ETARIH(CDate(4 / 9 / 1979), Date)
Debug.Print a        '108 YIL 10 AY 10 GÜN
End Sub

çözümü nasıl olmalıdır?

 

[armandos]

Function kullanımını anlatabilir misiniz?

 

[Zeki Gürsoy]

bu kodu userformamı yazacağız. yoksa modülde mi kullanacağız. Herhangi bir düzenleme yapmak gerekirmi?

Merhaba,

Module yapıştırmanız yeterli.

Sayın hsayar, neden standart tarih formatını kullanmıyorsunuz?

Sub testtarih()
Dim a$
a = ETARIH(CDate([B]"04.09.1979"[/B]), Date)
Debug.Print a        '29 YIL 2 AY 6 GÜN
End Sub

 

[armandos]

Zeki hocam .. Şu işi bi örnek ekleyerek gösterebilir misiniz rica etsem? Kusura bakmayın anlayamadım bi türlü

 

[armandos]

mesela şu ekteki dosyada Yaş hesaplama butonuna bastığımda nasıl hesaplatabilirim.

 

[Zeki Gürsoy]

Zeki hocam .. Şu işi bi örnek ekleyerek gösterebilir misiniz rica etsem? Kusura bakmayın anlayamadım bi türlü

Örnek ektedir..

 

[armandos]

hocam çok güzel bir örnek. Sabrınız ve emeğiniz için teşekkür ederim.