CalendarForm : Modern UI

CalendarForm adalah sebuah alternatif dari Datetime picker dimana CalendarForm ini support digunakan di 32bit ataupun di 64bit.

Kelebihan yang lainnya adalah CalendarForm ini tidak memerlukan Register Library ketika File Excel dijalankan di komputer yang berbeda.

Berikut ini adalah perbandingan menggunakan Datetime Picker dan CalendarForm

CalendarForm

  • Tanpa Install OCX
  • Support 32bit dan 64bit
  • Tampilan Lebih Modern
  • Aman ketika dibuka di beda PC

DateTime Picker

  • Harus Install / Register OCX
  • Hanya Support 32bit
  • Tampilan Versi Lama
  • Eror ketika dibuka di beda PC

Datetime Picker berada pada Library MSCOMCT2.OCX dimana Library ini sudah tidak diperbaharui dan saat ini tidak support lagi di Excel 64bit.

Karena itu menggunakan CalendarForm adalah solusi bagi pengguna 64Bit.

Cara Menggunakan CalendarForm

Untuk mengunakan CalendarForm pertama silahkan Import CalendarForm ke File Project.

Selanjutnya simpan script dibawah ini ke dalam Module, Cukup satu saja, dan ini bisa digunakan untuk banyak Userform dan banyak Textbox.

Function GetTanggal(Ctr as Control)
Dim Tanggal As Date

Tanggal = CalendarForm.GetDate
If Not Tanggal = Empty Then
    Ctr.Text = Tanggal
End If
End Sub

Pada script diatas masih menggunakan Style Calendar standar, kamu bisa mengubah style dari calendar tersebut dari mulai warna setting Tahun dan juga tombolnya.

Silahkan isikan parameter yang sesuai dengan keinginan atau biarkan kosong jika ingin diisi dengan nilai default.

Terkahir setiap akan digunakan pada Userform, maka cukup gunakan

GetTanggal Textbox1.Text

Textbox1 adalah hasil Tanggal dimana akan ditampilkan.

Multi Style CalendarForm

Jika memiliki banyak Data tanggal dan setiap tanggal ingin memiliki type style yang berbeda-beda, maka module GetTanggal bisa digunakan seperti ini

Function GetTanggal(Ctr as Control, Optional Gaya as Integer)
Dim Tanggal As Date

Select Case Gaya
Case 1:Tanggal = CalendarForm.GetDate()
Case 2:Tanggal = CalendarForm.GetDate()
Case 3:Tanggal = CalendarForm.GetDate()
Case Else:Tanggal = CalendarForm.GetDate()
End Select

If Not Tanggal = Empty Then
    Ctr.Text = Tanggal
End If
End Sub

Video Tutorial Multi Data Tanggal dan MultiStyle Bisa dilihat dibawah ini

Downlod Calendar Form

Leave a Reply

Your email address will not be published. Required fields are marked *