CARA MENGHITUNG SELISIH HARI ATAU TANGGAL DI VB. NET

Tips Dan Trik Mengolah, Hitung, Format DateTime di VB.Net - Dalam membuat sebuah program aplikasi kita tidak bisa lepas dari yang namanya tanggal, bulan ,tahun bahkan jam karena memang komponen  satu ini memiliki fungsi yang sangat penting. Sebagai contoh kita akan membuat Form Transaksi Penjualan Barang atau juga kita membuat aplikasi parkir kendaraan. Biasanya ketika kita membuat Laporan Barang yang terjual, kita harus mencantumkan tanggal. Dan terlebih aplikasi parkir, tanggal dan jam masuk keluar kendaraan harus tercantum, jika tidak bagaimana kita kan menghitung biaya parkir kendaraan tersebut. 

Dari aplikasi-aplikasi tersebut pastinya akan menghitung selisih hari, bulan, dan tahun. Mengingat pentingnya komponen DateTime tersebut, kali ini saya akan berbagi mengenai bagaimana cara menghitung selisih, menambah datetime dan mengurangi datetime pada VB.Net, berikut langkah-langkahnya
  • Pertama buka aplikasi VB. Net anda kemudian buat Project baru.
  • Kemudian tambahkan 2 buah DateTimePicker, 3 buat TextBox, dan 3 buah Label. 
  • Pada Properties DateTimePciker ubah pada Format : Custom dan CustomFormat : dd MMM yyyy.
  • Untuk memudahkan anda rubah properties TextBox1 Name : txtahun, TextBox2 Name : txbulan, dan TextBox3 Name : txhari.
  • Kemudian pada event DateTimePicker1_ValueChanged silahkan anda isi dengan koding dibawah:
If DateTimePicker1.Value > DateTimePicker2.Value Then
       DateTimePicker1.Value = DateTimePicker2.Value
Else
       txtahun.Text = DateDiff(DateInterval.Year, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
       txbulan.Text = DateDiff(DateInterval.Month, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
       txhari.Text = DateDiff(DateInterval.Day, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
End If
  • Setelah itu kita beralih pada event DateTimePicker2_ValueChanged tambahkan juga koding dibawah ini:

If DateTimePicker2.Value < DateTimePicker1.Value Then
      DateTimePicker2.Value = DateTimePicker1.Value
Else
      txtahun.Text = DateDiff(DateInterval.Year, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
      txbulan.Text = DateDiff(DateInterval.Month, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
      txhari.Text = DateDiff(DateInterval.Day, CDate(DateTimePicker1.Text), CDate(DateTimePicker2.Text))
End If

  •  Proses pembuatan aplikasi telah selesai, sekarang anda telah bisa membuat aplikasi menghitung selisih hari menggunakan datetimepicker di VB.Net. Untuk mencoba aplikasi sukses atau tidak silahkan anda running program tersebut.
Cara diatas adalah salah satu CARA MENGHITUNG SELISIH HARI ATAU TANGGAL DI VB. NET masih banyak lagi cara lain yang bisa kita gunakan. Mungkin dari saya cukup sekian, kurang dan lebihnya mohon maaf sebesar-besarnya. Jika anda memiliki pertanyaan, anda bisa menghubungi saya atau bisa dengan berkomentar di bawah ini. Terima Kasih

Tag : VBNET
0 Komentar untuk "CARA MENGHITUNG SELISIH HARI ATAU TANGGAL DI VB. NET"

Back To Top