Excel'de 1/1/1900 öncesi yaş nasıl hesaplanır?
Excel'de 1/1/1900'den önceki tarih doğru girilemez ve hesaplanamaz. 1/1/1900 tarihinden önce doğup ölen bir kişinin yaşını hesaplamak istiyorsanız, bu genel olarak Excel'de doğru hesaplamayı almayacaktır. Ancak burada bu makalede, bir numara, Excel'de 1/1/1900 öncesi yaşı hesaplamanıza yardımcı olabilir.
VBA ile 1/1/1900 öncesi yaşı hesaplayın
Kutools for Excel ile yaşı doğum gününe göre hesaplayın 
VBA ile 1/1/1900 öncesi yaşı hesaplayın
İşte bir VBA kodu, 1/1/1900 öncesi yaşı hızlı bir şekilde hesaplamanıza yardımcı olabilir.
1. Boş bir hücre seçin ve kişinin doğum gününü girin ve ardından bugünün tarihini veya ihtiyaç duyduğunuzda kişinin öldüğü tarihi girmek için başka bir hücre seçin. Ekran görüntüsüne bakın:
2. Ardından Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
3. tık Ekle > modül, VBA'nın altına yenisine yapıştırın modül pencere.
VBA: 1/1/1900 öncesi yaşı hesaplayın
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, işte C2 ve bu formülü girin = AgeFunc (A2, B2) (A2 doğum günü ve B2 bitiş tarihidir) ve Keşfet yaşı öğrenmek için tuşuna basın ve otomatik doldurma tutamacını ihtiyacınız olan hücrelerin üzerine sürükleyin. Ekran görüntüsüne bakın:
Not: Bu VBA, yalnızca 6/23/1845 gibi aa / gg / yyyy biçimindeki tarihlere sahip yaşları hesaplayabilir.
Kutools for Excel ile yaşı doğum gününe göre hesaplayın
Doğum günleri normalde 1/1/1900'den sonraysa başvurabilirsiniz Kutools for Excel'S Tarih ve Saat yardımcısı yardımcı program, verilen doğum günlerine göre yaşı hızlı bir şekilde hesaplayabilir.
| Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:
1. Yaşın çıktısını almak istediğiniz boş bir hücre seçin ve Kutools > Formül Yardımcısı > Tarih ve Saat yardımcısı. Ekran görüntüsüne bakın:
2. Sonra Tarih ve Saat yardımcısı iletişim kutusunda Yaş seçeneğini işaretleyin, yaşa göre hesaplamak istediğiniz doğum gününü seçin. Tarih doğumu metin kutusu, varsayılan, hücre mutlak referans olarak seçilecektir, bunu ilgili referans olarak değiştirebilir, sonra kontrol edebilirsiniz Bugün seçeneğini seçin ve açılır listesinde göstermek istediğiniz sonuç türünü seçin Çıktı sonuç türü. Ekran görüntüsüne bakın:
3. tık Ok Bu formülü uygulamak için ve şimdi yaşın gösterildiğini görebilirsiniz. Ve ihtiyacınız olursa, otomatik doldurma tutamacını bu formüle ihtiyaç duyulan hücrelerin üzerine sürükleyebilirsiniz. Ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
