UDF Tanggal Lahir NIK

Kali ini saya membuat sebuah fungsi untuk mengambil tanggal lahir beradarkan nomor NIK. Karena ini merupakan sebuah Fungsi, penggunaan fungsi tanggal lahir NIK ini bisa sangat luas.

Selain fungsi ini digunakan sebagai UDF (User defined Function) atau rumus buatan yang bisa digunakan dalam worksheet, fungsi ini juga bisa digunakan dalam Userform misalnya melalui Textbox dan sebagainya.

Penting untuk diketahui bahwa ada aturan penulisa tanggal lahir pada NIK

  • Tanggal Lahir pada NIK dimulai dari Digit 7 sampai Digit ke 12
  • Format Penulisan tanggal lahir pada NIK memiliki Format DDMMYY
  • Untuk Jenis Kelamin perempuan tanggal lahir ditambah 40

Sehingga berdasarkan aturan diatas, script untuk mengambil Tanggal lahir dari NIK bisa dibuat seperti dibawah ini:

'-----------------------------------------
' Sctipt VBA    : UDF Tanggal Lahir NIK
' Author        : Andi Setiadi - https://vba.co.id
'                 Situs belajar VBA No.1
'                 di Indonesia
'-----------------------------------------
Function TGLNIK(Nik As String) As Date
Dim Tgl As Integer, Bln As Integer, Thn As Integer

'Jika tidak 16 digit tampilkan Error
If Not Len(Nik) = 16 Then
    TGLNIK = CVErr(xlErrCalc)
    Exit Function
End If

'Ambil Tanggal, Bukan, tahun
Tgl = Mid(Nik, 7, 2)
Bln = Mid(Nik, 9, 2)
Thn = Mid(Nik, 11, 2)

'Perbaiki tahun
Thn = IIf(Thn + 2000 > Year(Date), 1900, 2000) + Thn

TGLNIK = DateSerial(Thn, Bln, Tgl Mod 40)
End Function

Fungsi ini bisa langsung digunakan didalam worksheet layaknya rumus excel biasa. Untuk penggunaannya cukup gunakan dengan =tglnik(CellNik)

Contohnya bisa dilihat pada gambar dibawah ini.

Dengan menggunakan UDF maka proses semakin lebih mudah

List Tutorial
Apa yang sedang kamu cari?

Temukan beberapa kata kunci yang diinginkan.

Search