YaŞ Hesaplamasi

[celoy]

Arkadaşlar iyi akşamlar
Benim yaş hesaplama yapmam gerekiyor ancak daha önceden indirdiğimi bildiğim ancak şu anda çok aramama rağmen bir türlü bulamadığım ,iki tarih arası girilen ve hemen yaşı hesaplayan kodlar lazım,yaş hesaplaması ile ilgili proğramı olan arkadaşım var ise gönderebilirmi teşekkür ederim,herkese kolay gelsin

 

[ozcanya]

işinize yarar umarım

=ETARİHLİ(B34;($I$1);"y") & " YIL " & ETARİHLİ(B34;($I$1);"ym") & " AY "& ETARİHLİ(B34;($I$1);"MD") & " GÜN"
kendinize uyarlayın(Diğer hucreye =bugün()yazarsanız yaş kendiliğinden ilerler

 

[karaayhan]

yaş ve doğum günleri

bu gün doğum günü olanları hesaplama;

--------------------------------------------------------------
SELECT Tablo1.sayı, Tablo1.[adı soyadı], Tablo1.[dogum tarihi], Date() AS bugün, [bugün]-[dogum tarihi] AS yaş
FROM Tablo1
WHERE (((Month([dogum tarihi]))=Month(Now())));

-----------------------------------------------------------------
yaş hesaplama;

SELECT Tablo1.sayı, Tablo1.[adı soyadı], Format$([dogum tarihi],"yyyy") AS [doğum yılı], Format$(Date(),"yyyy") AS yıl, [yıl]-[doğum yılı] AS yaş
FROM Tablo1;
-----------------------------------------------------------------------

 

[celoy]

TEŞEKKÜRLER
deneyeceğim

 

[tahsinanarat]

Yaş Hesaplama Fonksiyonu

Function yas(dogum)
On Error GoTo son
Dim yil, ay, gun As Integer
tarih = Date
If dogum <> "" Then dogum = CDate(dogum)
If dogum = "" Then yas = "": GoTo son:
If dogum > tarih Then yas = "": GoTo son

'yil hesaplama
yil = Year(tarih) - Year(dogum)
If Month(tarih) < Month(dogum) Then yil = yil - 1
If Month(tarih) = Month(dogum) And Day(tarih) < Day(dogum) Then yil = yil - 1
'Ay
ay = Month(tarih) - Month(dogum)
If Month(tarih) <= Month(dogum) Then ay = 12 + ay
If Day(tarih) < Day(dogum) Then ay = ay - 1
If ay = 12 Then ay = 0
'gün
kacceker = Day((DateSerial(Year(tarih), Month(tarih), 1) - 1))
gun = Day(tarih) - Day(dogum)
If Day(tarih) < Day(dogum) Then gun = kacceker - Day(dogum) + Day(tarih)
yas = yil & " Yıl, " & ay & " Ay, " & gun & " gün."
son:
If Err > 0 Then yas = "Hata"
End Function

Not: Bu kodlar evvelce bu siteden temin edilen kodlardır.
örnek: =yas(B1)

 

[celoy]

Arkada&#351;lar sa&#287;olun ancak bana accesle yap&#305;lm&#305;&#351; olmas&#305; laz&#305;m,daha &#246;nceden bir tane &#246;rnek bulmu&#351;tum ama nereden buldu&#287;umu ve nereye kay&#305;t etti&#287;imi hat&#305;rlayam&#305;yorum,acces ile olan varsa bana g&#246;nderirse sevinirim
Kolay gelsin

 

[BKCAN]

Arkadaşlar iyi akşamlar
Benim yaş hesaplama yapmam gerekiyor ancak daha önceden indirdiğimi bildiğim ancak şu anda çok aramama rağmen bir türlü bulamadığım ,iki tarih arası girilen ve hemen yaşı hesaplayan kodlar lazım,yaş hesaplaması ile ilgili proğramı olan arkadaşım var ise gönderebilirmi teşekkür ederim,herkese kolay gelsin

siteden indirdiklerim arasında iki tanesi mevcut onları gönderiyorum

 

[celoy]

Arkada&#351;lar herkese &#231;ok te&#351;ekk&#252;r ederim.arad&#305;&#287;&#305;m&#305; buldum.

 

[yorgunemre]

ben indiremedim