Dalam dunia pendidikan khususnya bagian keadministrasian biasanya tugas untuk mencari umur siswa sering dilakukan.
Jika dalam suatu Lembaga atau Madrasah dan Sekolah siswanya kurang dari 100 mungkin tidak masalah untuk menghitung umur siswa secara manual, tetapi jika siswanya sudah mencapai 226 lebih atau bahkan ribuan maka sangatlah mustahil untuk mencari umur siswa segitu banyaknya dengan waktu yang singkat.
Terus bagaimana caranya menghitung umur siswa berdasarkan waktu sekarang dengan cepat dan akurat ? berikut cara dan formula excelnya.
1. Disini kami asumsikan bahwa Anda sudah mempunyai data seperti gambar diatas (kolom umur masih kosong)
2. Pada bagian kolom umur D2 silahkan Anda ketik rumus formula berikut ini =DATEDIF(C2;NOW();"Y")&" Tahun"
3. Seret sampai kebawah / klik 2 kali pojok kanan bawah
4. Lihatlah data siswa untuk umur sudah terisi secara otomatis, dan ini berlaku untuk berapapun jumlah siswa Anda
5. Selesai dan simpan
Berikut keterangan formula diatas :
=TODAY() > untuk menyatakan waktu sekarang/hari ini
d > menghitung jarak hari
m > menghitung jarak bulan
y > menghitung jarak tahun
md > menghitung jarak bulan dan tahun
yd > menghitung jarak hari pada tahun yang sama
ym > mengitungjarak bulan ke tahun
"Mas, terus untuk menghitung umur menggunakan Kode Macro bagaimana ?"
Untuk Kode Macro Menghitung Umur Siswa Berdasarkan Waktu Sekarang sangatlah mudah, untuk lebih jelasnya Anda dapat menyimak artikel kami dibawah ini .
KODE MACRO MENGHITUNG UMUR SISWA BERDASARKAN WAKTU SEKARANG
1. Data kita adalah gambar diatas tadi
2. Tekan Alt+F11 (masuk ke jendela Visual Basic for Application (VBA))
3. Buatlah 1 buah module, langkahnya seperti gambar dibawah ini
4. Salin kode macro dibawah ini ke dalam module
Public Function umur(bday As Date) As String
Dim target As Date
Dim numMo As Integer, numYrs As Integer, numDays As Integer
Dim tmpDate As Date
target = Date 'current date
If target <= bday Then
MsgBox "Invalid date"
Exit Function
End If
numYrs = DateDiff("yyyy", bday, target)
tmpDate = DateAdd("yyyy", numYrs, bday)
If tmpDate > target Then
numYrs = numYrs - 1
tmpDate = DateAdd("yyyy", -1, tmpDate)
End If
numMo = DateDiff("m", tmpDate, target)
tmpDate = DateAdd("m", numMo, tmpDate)
If tmpDate > target Then
numMo = numMo - 1
tmpDate = DateAdd("m", -1, tmpDate)
End If
numDays = DateDiff("d", tmpDate, target)
umur = numYrs & " Tahun " & numMo & " Bulan " & numDays & " Hari"
End Function
Dim target As Date
Dim numMo As Integer, numYrs As Integer, numDays As Integer
Dim tmpDate As Date
target = Date 'current date
If target <= bday Then
MsgBox "Invalid date"
Exit Function
End If
numYrs = DateDiff("yyyy", bday, target)
tmpDate = DateAdd("yyyy", numYrs, bday)
If tmpDate > target Then
numYrs = numYrs - 1
tmpDate = DateAdd("yyyy", -1, tmpDate)
End If
numMo = DateDiff("m", tmpDate, target)
tmpDate = DateAdd("m", numMo, tmpDate)
If tmpDate > target Then
numMo = numMo - 1
tmpDate = DateAdd("m", -1, tmpDate)
End If
numDays = DateDiff("d", tmpDate, target)
umur = numYrs & " Tahun " & numMo & " Bulan " & numDays & " Hari"
End Function
5. Kembali ke worksheet dan tulis rumus ini di kolom umur range D2 =umur(C2) seret sampai kebawah atau klik 2 kali pojok kanan bawah
6. Selesai dan simpan dengan type excel macro
Jika Anda melakukan penghitungan umur dengan kode macro yang benar maka akan berjalan dengan baik dan benar, dan apabila masih terdapat debug silahkan baca kembali artikel diatas dan coba perhatikan tiap baris kode macronya.
Dan untuk mempermudah pencarian khusus Kode Macro, Anda dapat mengunjungi artikel kami khusus Kode Macro disini atau pilih gambar dibawah ini.
JIKA MENURUT ANDA ARTIKEL INI BAGUS DAN BERMANFAAT SILAHKAN SHARE KE SOSIAL MEDIA YANG LAIN DENGAN TUJUAN SALING BERBAGI ILMU DAN PEGETAHUAN.
Terimakasih telah berkunjung dan menjadi temu kami sehingga jabat erat.
Post a Comment for "KODE MACRO MENGHITUNG UMUR SISWA BERDASARKAN WAKTU SEKARANG"