Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengira umur sebelum 1 / 1 / 1900 dalam Excel?

Dalam Excel, tarikh sebelum 1 / 1 / 1900 tidak boleh dimasukkan dan dikira dengan betul. Jika anda ingin mengira usia seseorang yang dilahirkan dan meninggal sebelum 1 / 1 / 1900, itu tidak akan mendapat pengiraan yang betul dalam Excel secara amnya. Tetapi di sini dalam artikel ini, helah dapat membantu anda mengira usia sebelum 1 / 1 / 1900 dalam Excel.

Kira umur sebelum 1 / 1 / 1900 dengan VBA

Hitung usia dengan hari lahir dengan Kutools untuk Excel idea yang baik3


Hitung umur berdasarkan hari jadi

Di sini anda mempunyai senarai ulang tahun misalnya, dan pernahkah anda cuba mengira umur berdasarkan hari lahir? Kutools untuk Excel's Hitung umur berdasarkan hari jadi boleh berbuat baik kepada anda.
kiraan umur doc

anak panah gelembung kanan biru Kira umur sebelum 1 / 1 / 1900 dengan VBA


Berikut ialah kod VBA yang dapat membantu anda untuk mengira umur dengan cepat sebelum 1 / 1 / 1900.

Kutools untuk Excel, dengan lebih daripada 120 fungsi Excel yang berguna, meningkatkan kecekapan kerja anda dan menjimatkan masa kerja anda.

1. Pilih sel kosong dan masukkan hari lahir orang itu, dan kemudian pilih sel lain untuk memasukkan tarikh hari ini, atau tarikh orang mati yang anda perlukan. Lihat tangkapan skrin:
doc menghitung umur sebelum 1900 1

2. Kemudian tekan Alt + F11 kunci untuk membolehkannya Microsoft Visual Basic untuk Aplikasi tingkap.

3. klik Memasukkan > Modul, tampal di bawah VBA kepada yang baru Modul tingkap.

VBA: Kira umur sebelum 1 / 1 / 1900

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. Pilih sel kosong, di sini ialah C2, dan masukkan formula ini = AgeFunc (A2, B2) (A2 adalah hari jadi, dan B2 adalah tarikh akhir), dan tekan Masukkan kunci untuk mendapatkan umur, dan seret pegangan autofill ke sel-sel yang anda perlukan. Lihat tangkapan skrin:
doc menghitung umur sebelum 1900 2

Catatan: VBA ini hanya boleh mengira usia dengan tarikh dalam format mm / dd / yyyy, seperti 6 / 23 / 1845.


anak panah gelembung kanan biru Hitung usia dengan hari lahir dengan Kutools untuk Excel

Sekiranya tarikh hari lahir biasanya selepas 1 / 1 / 1900, anda boleh memohon Kutools untuk Excel'S Hitung umur berdasarkan hari jadi utiliti, yang dengan cepat boleh mengira umur dengan hari lahir yang diberikan.

Kutools untuk Excel, dengan lebih daripada 120 fungsi Excel yang berguna, meningkatkan kecekapan kerja anda dan menjimatkan masa kerja anda.

selepas memasang percuma Kutools untuk Excel, sila lakukan seperti di bawah:

1. Pilih sel kosong yang anda mahu keluarkan umur, dan klik Kutools > Formula > Hitung umur berdasarkan hari jadi. Lihat tangkapan skrin:
doc menghitung umur sebelum 1900 3

2. Kemudian di Pembantu formula dialog, pilih hari lahir yang anda ingin mengira umur berdasarkan kepada Tarikh kotak teks. Lihat tangkapan skrin:
doc menghitung umur sebelum 1900 4

3. klik Ok untuk menggunakan formula ini, dan kini anda dapat melihat umur telah ditunjukkan. Dan jika anda perlukan, anda boleh menyeret pegangan autofill ke sel yang diperlukan formula ini. Lihat tangkapan skrin:
doc menghitung umur sebelum 1900 5

perhatikan1Sekiranya anda berminat dengan tambahan ini, muat turun percubaan percuma 60-hari.

Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.