yaş hesaplama

[metincuhadar]

yaş hesaplama prg sini bilen arkadaşlar ben yerini bulamadım excel macrolarında nerede var? :arkadas:

 

[Mahmut Bayram]

syn metincuhadar,
[vb:1:f1ba3ec82d] Dim d_tarih
Do
d_tarih = InputBox("Doğum Tarihiniz Ã?r:01/04/1979", "Doğum Tarihinizi Yazın Lütfen")
Loop While Not IsDate(d_tarih)
MsgBox (WeekdayName(Weekday(d_tarih, 0), False, 0) + " " + "Günü Doğmuşsunuz.")[/vb:1:f1ba3ec82d]

bu kod gününü bulur
bir de ekli dosya gönderiyorum.
artık hangisi işinizi görürse

 

[elm]

Dğum Tarihini a1 hücresine yazdığmızı varsayarsak
=ETARİHLİ(A1;BUGÜN();"Y")
=ETARİHLİ(A1;BUGÜN();"YM")
=ETARİHLİ(A1;BUGÜN();"MD")
1.FORMÜL YILI,2.FORMÜL AYI,3.FORMÜL İSE GÜN SAYISINI VERİR.

 

[deliceli]

yaş hesaplama prg sini bilen arkadaşlar ben yerini bulamadım excel macrolarında nerede var? :arkadas:

Merhabalar;
Ekteki programa bir bakınız.
Umarım işinize yarar.
Selamlar.