İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də 1 / 1 / 1900-dən əvvəl yaşını necə hesablamaq olar?

Excel-də, 1 / 1 / 1900 əvvəli tarixə düzgün daxil edilə bilməz və hesablana bilməz. 1 / 1 / 1900-dən əvvəl doğulmuş və ölən bir şəxsin yaşını hesablamaq istəyirsinizsə, ümumiyyətlə Excel-də düzgün hesablamanı ala bilməzsiniz. Ancaq bu yazıda, bir xətt, Exceldə 1 / 1 / 1900 əvvəli yaşını hesablamağa kömək edə bilər.

VBA ilə 1 / 1 / 1900 əvvəli yaşı hesablayın

Excel üçün Kutools ilə ad günü ilə hesablayın yaxşı fikir3


Doğum gününə görə yaşı hesablayın

Məsələn, məsələn, doğum gününün siyahısı var və heç doğum gününə görə yaşı hesablamağa çalışmısınız? Excel üçün Kutools's Doğum gününə görə yaşı hesablayın gözəl bir lütf edə bilərsiniz.
doc yaşını hesablamaq

arrow mavi sağ bubble VBA ilə 1 / 1 / 1900 əvvəli yaşı hesablayın


Burada bir VBA kodu 1 / 1 / 1900 əvvəli yaşı tez hesablamağa kömək edə bilər.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyinizi artırmaq və iş vaxtınızı qorumaqdır.

1. Boş bir hüceyrə seçin və şəxsin doğum gününü daxil edin və bu günün tarixini daxil etmək üçün başqa bir hüceyrəni seçin, ya da ehtiyacınız olduğu zaman şəxsin ölümü. Ekran görüntüsünə baxın:
doc 1900 1-dən əvvəl yaşı hesablamaq

2. Sonra basın Alt + F11 düymələri aktivləşdirmək Proqramlar üçün Microsoft Visual Basic pəncərə.

3. klik Taxmaq > Modules, VBA-nın altına yeni qoyun Modules pəncərə.

VBA: 1 / 1 / 1900-dən əvvəl yaşı hesablayı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 Function

4. Boş bir hüceyrə seçin, burada C2 və bu formulu daxil edin = AgeFunc (A2, B2) (A2 doğum günüdür və B2 son tarixdir) və basın Daxil edin yaşı əldə etmək üçün açar və lazım olan hüceyrələri üzərinə avtomatik doldurma sapı sürüşdürün. Ekran görüntüsünə baxın:
doc 1900 2-dən əvvəl yaşı hesablamaq

Qeyd: Bu VBA yalnız 6 / 23 / 1845 kimi mm / dd / yyyy formatında olan yaşları hesablaya bilər.


arrow mavi sağ bubble Excel üçün Kutools ilə ad günü ilə hesablayın

Doğum tarixləri 1 / 1 / 1900-dan sonra normal olduqda, müraciət edə bilərsiniz Excel üçün Kutools'S Doğum gününə görə yaşı hesablayın verilmiş doğum günləri ilə yaşını tez hesablaya bilir.

Excel üçün Kutools, daha çox 120 lazımlı Excel funksiyaları, iş səmərəliliyinizi artırmaq və iş vaxtınızı qorumaqdır.

Sonra pulsuz yükləmə Excel üçün Kutools, aşağıdakıları edin:

1. Yaşa çıxmaq istədiyiniz boş bir hüceyrəni seçin və basın Kutools > Formüller > Doğum gününə görə yaşı hesablayın. Ekran görüntüsünə baxın:
doc 1900 3-dən əvvəl yaşı hesablamaq

2. Sonra da Formula Köməkçisi dialoq, yaşa əsaslanan yaşı hesablamaq istəyən ad günü seçin tarix mətn qutusu. Ekran görüntüsünə baxın:
doc 1900 4-dən əvvəl yaşı hesablamaq

3. klik Ok Bu formulu tətbiq etmək üçün, indi yaşı göstərildiyini görə bilərsiniz. Və ehtiyac varsa, autofill sapı bu formula lazım hüceyrələri üzərində sürükleyin bilər. Ekran görüntüsünə baxın:
doc 1900 5-dən əvvəl yaşı hesablamaq

diqqət 1Əgər siz bu addi-inlə maraqlanırsınızsa, 60 gün pulsuz sınaq versiyasını yükləyin.


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.