Note: The other languages of the website are Google-translated. Back to English
English English
  • Documents
  • Excel
  • Bagaimana cara menghitung usia sebelum 1/1/1900 di Excel?

Bagaimana cara menghitung usia sebelum 1/1/1900 di Excel?

Di Excel, tanggal sebelum 1/1/1900 tidak bisa dimasukkan dan dihitung dengan benar. Jika Anda ingin menghitung usia seseorang yang lahir dan meninggal sebelum 1/1/1900, itu tidak akan mendapatkan perhitungan yang benar di Excel secara umum. Tapi di sini, di artikel ini, trik dapat membantu Anda menghitung usia sebelum 1/1/1900 di Excel.

Hitung usia sebelum 1/1/1900 dengan VBA

Hitung usia berdasarkan ulang tahun dengan Kutools for Excel ide bagus3


panah gelembung kanan biru Hitung usia sebelum 1/1/1900 dengan VBA

Berikut adalah kode VBA yang dapat membantu Anda menghitung dengan cepat usia sebelum 1/1/1900.

1. Pilih sel kosong dan masukkan tanggal lahir orang tersebut, lalu pilih sel lain untuk memasukkan tanggal hari ini, atau tanggal orang meninggal sesuai kebutuhan. Lihat tangkapan layar:
dokter menghitung usia sebelum tahun 1900 1

2. Kemudian tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

3. klik Menyisipkan > Modul, tempelkan di bawah VBA ke yang baru Modul jendela.

VBA: Hitung usia 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, ini C2, dan masukkan rumus ini = AgeFunc (A2, B2) (A2 adalah ulang tahun, dan B2 adalah tanggal akhir), lalu tekan Enter kunci untuk mendapatkan usia, dan seret tuas IsiOtomatis ke sel yang Anda butuhkan. Lihat tangkapan layar:
dokter menghitung usia sebelum tahun 1900 2

Catatan: VBA ini hanya dapat menghitung usia dengan tanggal dalam format bb / hh / tttt, seperti 6/23/1845.


panah gelembung kanan biru Hitung usia berdasarkan ulang tahun dengan Kutools for Excel

Jika tanggal ulang tahun biasanya setelah 1/1/1900, Anda dapat mendaftar Kutools untuk Excel'S Pembantu Tanggal & Waktu utilitas, yang dapat dengan cepat menghitung usia pada hari ulang tahun tertentu.

Kutools untuk Excel, dengan lebih dari
300
fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. Pilih sel kosong yang Anda inginkan untuk menampilkan umur, dan klik Kutools > Pembantu Formula > Pembantu Tanggal & Waktu. Lihat tangkapan layar:
dokter menghitung usia sebelum tahun 1900 3

2. Kemudian di Pembantu Tanggal & Waktu dialog, centang opsi Usia, pilih tanggal lahir yang ingin Anda hitung berdasarkan usia Tanggal Lahir kotak teks, default, sel akan dipilih sebagai referensi absolut, Anda dapat mengubahnya menjadi referensi relatiev, lalu centang Hari ini opsi dan pilih satu jenis hasil yang ingin Anda tampilkan di daftar drop-down Jenis hasil keluaran. Lihat tangkapan layar:
dokter menghitung usia sebelum tahun 1900 4

3. klik Ok untuk menerapkan rumus ini, dan sekarang Anda dapat melihat usia telah ditunjukkan. Dan jika perlu, Anda dapat menyeret tuas IsiOtomatis ke sel yang membutuhkan rumus ini. Lihat tangkapan layar:
dokter menghitung usia sebelum tahun 1900 5


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari
    300
    fitur yang kuat
    . Mendukung Office/Excel
    2007-2019 dan 365
    . Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap
    30
    percobaan gratis -hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda dengan
    50%
    , dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (1)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
tidak bekerja excel katakan "nombre Ambiguo"
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL