Fungsi Datenik Untuk Menciptakan Tanggal Lahir Dari Nik

[.] com - Untuk menampilkan atau menciptakan tanggal lahir dari NIK memakai rumus excel, sudah pernah saya bahas di blog fungsi MID.

Serupa namun tak sama, kali ini saya akan bagikan kembali tutorial wacana cara membuat tanggal lahir dari NIK, bedanya ialah tidak lagi memakai fungsi MID namun memakai fungsi buatan (User Defined Function) yang saya diberi nama Fungsi DATENIK.

Dan diberikut pola penerapan fungsi DATENIK.

Dari pola yang terlihat dari gambar di atas, penerapan fungsi DATENIK sangat simpel, cukup ketik:

=DATENIK ( NIK / Referensi Sel yg meliputi NIK; Tipe Data/Tanggal )

Tapi tidakboleh buru-buru mencoba di Aplikasi Office Excel Anda, alasannya ialah kesudahannya niscaya error #NAME? hal ini terjadi alasannya ialah fungsi DATENIK ini memang tidak tersedia di daftar Fungsi Excel.

Dan diberikut langkah-langkah untuk membuat fungsi DATENIK di VBA Excel:

1 Buka Aplikasi Microsoft Visual Basic for Applications, sanggup melalui Tab Developer atau dengan memakai kombinasi tombol Alt + F11

2 Tambahkan Module gres untuk nantinya buat menempatkan script VBA-nya.

3 Pada Module Code Masukkan script untuk fungsi DATENIK diberikut ini:

Function DATENIK(NIK As Variant, Tipe As Integer)  Dim tanggal, bulan, tahun As Integer  Dim d As Variant, TipeDate As String      tanggal = Mid(NIK, 7, 2)  bulan = Mid(NIK, 9, 2)  tahun = Mid(NIK, 11, 2)        'Validasi Tanggal -40 untuk perempuan     If tanggal > 40 Then tanggal = tanggal - 40        'Menambahkan pertamaan 19 / 20 pada tahun     If (tahun + 2000) > Year(Now()) Then       tahun = 1900 + tahun     Else       tahun = 2000 + tahun     End If        'Memilih Tipe Date    Select Case Tipe      Case 0: TipeDate = "dd/mm/yyyy"      Case 1: TipeDate = "dd-mm-yyyy"      Case 2: TipeDate = "[$-421]dd mmm yyyy"      Case 3: TipeDate = "[$-421]dd mmmm yyyy"    End Select      d = tanggal & "/" & bulan & "/" & tahun      'Tampilkan pesan kalau NIK tidak Valid  If Len(NIK) <> 16 Then     DATENIK = "Data NIK tidak Valid"  Else     DATENIK = Format(d, TipeDate)  End If End Function 

Konsep dari fungsi DATENIK ini sama dengan memakai beberapa fungsi MID ibarat yang pernah saya jelaskan pada artikel Membuat Tanggal Lahir dari NIK, diantaranya dengan mengurangi angka 40 untuk tanggal yang lebih dari 40 dan menambahkan angka 1900 dan 2000 untuk tahunnya.

4 Selanjutnya menambahkan lagi arahan untuk memdiberi keterangan pada fungsi DATENIK.

Private Sub Workbook_Open()     Application.MacroOptions _     Macro:="DATENIK", _     Category:=2, _     ArgumentDescriptions:=Array( _         "16 digit NIK / acuan sel yang meliputi NIK", _         "Tipe Tanggal masukkan angka 0 hingga 3") End Sub 

melaluiataubersamaini menambahkan arahan VBA ini, maka saat membuka jendela Function Arguments akan terdapat keterangan pada setiap argumen yang ada pada fungsi DATENIK.

Seperti yang saya jelaskan di pertama, untuk memakai fungsi DATENIK, bentuk penulisan fungsinya adalah:

=DATENIK ( NIK / Referensi Sel yg meliputi NIK; Tipe Data/Tanggal )

jadi ada 2 argumen yang dipakai dan harus diisikan pada fungsi DATENIK:

1. NIK ialah argumen untuk memasukkan data NIK atau acuan sel yang meliputi NIK.
2. Tipe ialah tipe atau jenis format date yang ingin digunakan, ada 4 tipe yang sanggup di pakai yang diwakili dengan angka 0 hingga 3.

misal penerapan fungsi DATENIK:

=DATENIK ( A2; 0 )

Jika Anda spesialuntuk ingin memakai satu tipe Date tertentu saja atau mengubah ke format Date yang lain, Anda sanggup mengganti arahan VBA untuk Fungsi DATENIK di atas dengan arahan VBA diberikut ini:

Function DATENIK(NIK As Variant) As Date  Dim tanggal, bulan, tahun As Integer      tanggal = Mid(NIK, 7, 2)  bulan = Mid(NIK, 9, 2)  tahun = Mid(NIK, 11, 2)        'Validasi Tanggal -40 untuk perempuan     If tanggal > 40 Then tanggal = tanggal - 40        'Menambahkan pertamaan 19 / 20 pada tahun     If (tahun + 2000) > Year(Now()) Then       tahun = 1900 + tahun     Else       tahun = 2000 + tahun     End If      DATENIK = tanggal & "/" & bulan & "/" & tahun End Function 

Dan untuk penulisan rumusnya, spesialuntuk memakai satu argumen yaitu argumen NIK.

=DATENIK ( NIK / Referensi Sel yg meliputi NIK )

 misal penerapannya ibarat terlihat pada gambar di bawah ini:

Fungsi DATENIK yang kedua ini akan menghasilkan nilai Date dalam format Serial, misalnya untuk tanggal 14/11/2018 nilai yang ditampilkan ialah 43418, biar sanggup menjadi tanggal 14/11/2018 maka selnya harus di ubah doloe formatnya menjadi format Date.

Makara silahkan Anda pilih salah satu fungsi DATENIK mana yang ingin Anda gunakan.

Lampiran

DATENIK - Tanggal Lahir dari NIK.xlsb (17 KB)
DATENIK - Tanggal Lahir dari NIK 2.xlsb (17 KB)

Sekian tutorial cara menciptakan  Fungsi DATENIK untuk membuat Tanggal Lahir dari NIK, Semoga Bermanfaat...