Excel'de 1/1/1900'den önceki yaşı nasıl hesaplanır?
Excel'de, 1/1/1900'den önceki tarihler doğru bir şekilde girilemez ve hesaplanamaz. Eğer 1/1/1900'den önce doğmuş ve ölmüş bir kişinin yaşını hesaplamak istiyorsanız, genellikle Excel'de doğru hesaplama yapılamaz. Ancak bu makalede, size Excel'de 1/1/1900'den önceki yaşı hesaplamaya yardımcı olabilecek bir yöntem sunulmaktadır.
VBA ile 1/1/1900'den önceki yaşı hesaplayın
Kutools for Excel ile doğum gününe göre yaşı hesaplayın 
VBA ile 1/1/1900'den önceki yaşı hesaplayın
Burada, size 1/1/1900'den önceki yaşı hızlıca hesaplamaya yardımcı olabilecek bir VBA kodu bulunmaktadır.
1. Boş bir hücre seçin ve kişinin doğum gününü girin, ardından bugünün tarihini veya kişinin ölüm tarihini girmek için başka bir hücreyi seçin. Aşağıdaki ekran görüntüsüne bakın:
2. Ardından Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
3. Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu yeni Modül penceresine yapıştırın.
VBA: 1/1/1900'den önceki yaşı hesapla
Public Function AgeFunc(SDate As Variant, EDate As Variant) As Long
'UpdatebyExtendOffice20160429
Dim xSMonth As Integer
Dim xSDay As Integer
Dim xSYear As Integer
Dim xEMonth As Integer
Dim xEDay As Integer
Dim xEYear As Integer
Dim xAge As Integer
If Not GetDate(SDate, xSYear, xSMonth, xSDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
If Not GetDate(EDate, xEYear, xEMonth, xEDay) Then
AgeFunc = "Invalid Date"
Exit Function
End If
xAge = xEYear - xSYear
If xSMonth > xEMonth Then
xAge = xAge - 1
ElseIf xSMonth = xEMonth Then
If xSDay > xEDay Then xAge = xAge - 1
End If
If xAge < 0 Then
AgeFunc = "Invalid Date"
Else
AgeFunc = xAge
End If
End Function
Private Function GetDate(ByVal DateStr As String, Y As Integer, M As Integer, D As Integer) As Boolean
Dim I As Long
Dim K As Long
Y = 0
M = 0
D = 0
GetDate = True
On Error Resume Next
I = InStr(1, DateStr, "/")
M = CLng(Left(DateStr, I - 1))
D = CLng(Mid(DateStr, I + 1, InStr(I + 1, DateStr, "/") - I - 1))
Y = CLng(Right(DateStr, Len(DateStr) - InStrRev(DateStr, "/")))
If M < 1 Or M > 12 Or D < 1 Or D > 31 Or Y < 1 Then
GetDate = False
End If
End Function4. Boş bir hücre seçin, burada C2, ve şu formülü girin =AgeFunc(A2,B2) (A2 doğum günüdür ve B2 bitiş tarihidir), ve Enter tuşuna basarak yaşı elde edin ve otomatik doldurma tutamacını ihtiyacınız olan hücrelerin üzerine sürükleyin. Aşağıdaki ekran görüntüsüne bakın:
Not: Bu VBA kodu yalnızca mm/gg/yyyy formatındaki tarihlerle yaş hesaplayabilir; örneğin 6/23/1845.
Kutools for Excel ile doğum gününe göre yaşı hesaplayın
Doğum günü tarihleri normalde 1/1/1900'den sonraysa, Kutools for Excel'in Tarih & Saat Yardımcısı yardımcı programını kullanabilirsiniz, bu da verilen doğum günlerine göre hızlıca yaşı hesaplayabilir.
Ücretsiz olarak Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:
1. Yaşı çıkarmak istediğiniz boş bir hücre seçin ve Kutools > Formül Yardımcısı > Tarih & Saat Yardımcısı'na tıklayın. Aşağıdaki ekran görüntüsüne bakın:
2. Ardından Tarih & Saat Yardımcısı diyalog kutusunda Yaş seçeneğini işaretleyin, yaşını hesaplamak istediğiniz doğum günüyü Tarih Doğum metin kutusuna seçin, varsayılan olarak hücre mutlak referans olarak seçilecektir, bunu göreli referansa değiştirebilirsiniz, ardından Bugün seçeneğini işaretleyin ve göstermek istediğiniz sonuç türünü aşağı açılır listedeki Çıktı sonucu türüseçin. Aşağıdaki ekran görüntüsüne bakın:
3. Tıklayın Tamam formülü uygulamak için, ve şimdi yaşı görebilirsiniz. Ve eğer gerekirse, otomatik doldurma tutamacını bu formüle ihtiyaç duyan hücrelerin üzerine sürükleyebilirsiniz. Aşağıdaki ekran görüntüsüne bakın:
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin