userformdaki textboxun 26 olan"yaş" ı 01/11/1926 olarak göstermesi sorunu

[baknediycem]

userformdaki textboxun "yaş" ı 01/11/1926 olarak göstermesi sorunu...

aslında yaş 26 ..
bu sorunu çözmem konusunda yardımcı olur musunuz?

tesekkur ederim.

 

[Zeki Gürsoy]

Yaşı bu fonksiyon ile hasaplattırın. Ör: =YAŞ(A1)

Function YAŞ(doğum As Date, Optional şimdi As Date) As Byte
'şimdi boş ise, sistem tarihi esas alınır..
Dim yil As Integer, ay As Integer, gun As Integer

şimdi = IIf(şimdi = Empty, Date, şimdi)

yil = Year(şimdi) - Year(doğum)
ay = Month(şimdi) - Month(doğum)
gun = Day(şimdi) - Day(doğum)

Select Case yil
    Case Is <= 0: YA&#350; = 0
    Case Else: YA&#350; = IIf(ay > 0 Or (ay = 0 And gun > 0), yil, yil - 1)
End Select

End Function

 

[baknediycem]

sn anemos tesekkur ederim ama. anlamakta zorlandım. kodları nereye yazacagım vb. konularda acıklayıcı olursanız sevinirim.
bagıslayın

 

[Zeki Gürsoy]

Kusura bakmayın kullanmakta sıkıntı yaşacağınızı düşünemedim.
Yaşı, sayfa üzerinde hesaplamaya çalışmışsınız.Bu yoldan,
-İlk olarak bu fonksiyonu "Module1" kopyalayın.
-Artık Excel'in fonksiyon listesinde görülebilir durumdadır.
-Ör:Sayfa üzerinde doğum tarihi A1 de ise, B1 formülü "=YAŞ(A1)" yazmanız yeterlidir.

 

[baknediycem]

kusura bakmayın sorun bende galiba. dediklerinizi yaptım ama sayfada 00 değeri göründü ve userformda hiçbir değişiklik olmadı..
yolladığım ek üzerinde deneyebilir misiniz?

 

[baknediycem]

sorunu textboxa bir kod ekleyerek giderebilir miyiz? mesela formüllerle hesaplayıp bulduğum hücrede 26 olan yaş degerini 01/11/1926 göstermesini "sadece 26'yı göster" gibi bir kodu yaza bilir misiniz? lütfen. yardımlarınızı bekliyorum

 

[Zeki Gürsoy]

Dosyanıza tekrar baktım, "yy" yerine "Sayı" olarak biçimlendirin düzelecektir.
J2 formülünüz "=yaş(I2)"

 

[baknediycem]

cok tesekkur ederim

Dosyanıza tekrar baktım, "yy" yerine "Sayı" olarak biçimlendirin düzelecektir.
J2 formülünüz "=yaş(I2)"

ellerinize ssağlık.. vakit ayırıp ilgilendiğiniz için cok cok tesekkur ederim..

 

[baknediycem]

sn anesmos

kodları siz verdiğiniz için ve hazır burdasınız. şunu sormak istiyorum. bu yaşlar kendi kendini guncelleyecektir değil mi?

 

[Zeki Gürsoy]

Dosyanızı her açtığınızda güncellenir.