Fungsi Maxdate Dan Mindate Pada Delphi

Codegratis.wordpress.com. Mari belajar coding dengan mudah dan sederhana. Fungsi maxdate dan mindate sebenarnya fungsi yang sangat sederhana pada delphi, tapi berhubung saya cari-cari di blog lainnya lumayan jarang yang menulis, makanya saya coba untuk men-share, barangkali ada yang bingung cari-cari kesana kemari, siapa tahu tulisan saya ini bermanfaat.

Oke lah langsung saja, fungsi maxdate dan mindate digunakan untuk mensetting tanggal pada datetimepicker, contoh penerapannya biasanya pada tanggal lahir. Fungsi maxdate digunakan untuk mensetting tanggal maksimal yang dapat ditampilkan pada datetimepicker, maksudnya tanggal maksimal ke depan atau ke belakang berdasarkan tahun pada tanggal saat ini (sistem), contoh kita gunakan tanggal lahir tanggal saat ini 3/06/2015 tanggal lahir maksimal yang ingin kita tampilkan 3/06/1997 atau yang dapat diterima yang sudah berumur 18 tahun.

Sedangakan fungsi mindate akan mensetting tanggal minimal yang dapat ditampilkan pada datetimepicker, tanggal minimal ini harus berada dibawah tanggal maksimal, contohnya maxdate  3/06/1997, maka mindate nya 3/06/1985.

Masih bingung mari kita langsung saja ke source codenya
procedure tf_pkh.set_tanggal;

procedure tf_pkh.set_tanggal;
begin
dt.Date:=IncYear(date(),-18);
dt.MaxDate:=IncYear(date(),-18);
dt.MinDate:=IncYear(date(),-35);
end;

Penjelasan :

  • Baris 3 : tanggal yang ditampilkan adalah tanggal, bulan sesuai tanggal saat ini, namun tahunnya dikurangi 18 tahun, kalo tahun saat ini 2015 maka tahun yang ditampilkan pada datetimepicker adalah tahun 1997. Pada contoh ini diterapkan pada tanggal lahir, jadi tanggal lahir yang dapat diterima paling muda adalah kelahiran tahun 1997 atau usia 18 tahun.
  • Baris 4 : tanggal maksimal yang dapat ditampilkan adalah tanggal, bulan sesuai tanggal saat ini, namun tahunnya dikurangi 18 tahun.
  • Baris 5 : tanggal minimal yang dapat ditampilkan dan diterima datetimepicker adalah tanggal, bulan sesuai tanggal saat ini, namun tahunnya dikurangi 35 tahun. Artinya kelahiran tertua yang dapat diterima adalah tahun 1985 atau umur 35 tahun. Yang harus dicermati mindate harus berada dibawah maxdate.
  • Procedure ini dijalankan saat form keaadan aktif atau inputan sudah aktif, dan sudah siap digunakan untuk menginput data.

procedure tf_pkh.tanggal_netral;

procedure tf_pkh.tanggal_netral;
begin
dt.MaxDate:=date();
dt.Date:=date();
dt.MinDate:=IncYear(date(),-100);
end;

Digunakan untuk menggembalikan datetimepicker pada settingan awal, procedure ini biasanya digunakan pada saat form show, atau saat form pertama kali tampil. Procedure ini juga berfungsi agar datetimepicker lebih flexibel dalam menampilkan tanggal dari data yang sudah ada, tanpa error. Jika settingan datetimepicker tidak kita kembalikan seperti awal maka kemungkinan error akan terjadi, karena overlap antara tanggal yang disetting dengan tanggal pada data.

Demikianlah tips sederhana mengenai maxdate dan mindate, jika ada salah, kurang, atau saran silahkan di komen ya. Selamat mencoba dan terus kembangkan. Siiiiiiip……………..

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout /  Ubah )

Foto Google+

You are commenting using your Google+ account. Logout /  Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout /  Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout /  Ubah )

Connecting to %s