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
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:
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:
Catatan: VBA ini hanya dapat menghitung usia dengan tanggal dalam format bb / hh / tttt, seperti 6/23/1845.
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:
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:
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:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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 sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!