Cara Menggunakan Datetimepicker Pada VB .NET

Cara Menghitung Selisih Data Tanggal, Selisih Bulan, Selisih Tahun ( Penambahan, Pengurangan ) Pada Visual Basic .NET
Pada artikel VB .NET kali ini saya akan membahas mengenai cara menghitung selisih data tanggal pada VB .NET. Fungsi tutorial kali ini sangat banyak sekali. Yang pasti akan memberikan manfaat jika aplikasi yang anda buat menggunakan Tanggal dan akan dikurangi atau ditambah seperti aplikasi dibawah ini :

1. Pada Aplikasi Penyewaan akan sangat bermanfaat dalam menghitung biaya Sewa maupun biasa Denda
2. Pada Aplikasi Perpustakaan juga pasti menggunakan penghitungan biaya lama sewa dan denda jika pengembalian telat.
3. Dan masih banyak sekali aplikasi yang bisa diterapkan pada tutorial selisih tanggal ini.

Baik langsung saja, berikut ini kita akan langsung mempraktikkan bagaimana cara membuat penghitungan selisih tanggal pada VB .NET.
Silahkan buka komputer anda
Silahkan buka Visual Basic .NET
Jika sudah muncul Form1, buatlah design Form seperti gambar dibawah ini :


Pada gambar diatas terdapat :
DateTimePicker1, LBL1, LBL2, LB3, LBL4, LBL5, LBL6, LBL7, LBL8, LBL9, Button1
Dan yang terakhir adalh Masukan Timer1.
Kemudian pada Timer1 jangan lupa anda ubah menjadi Enable.

Jika sudah semua membuat design Form1 seperti gambar diatas, masukan koding dibawah ini :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LBL1.Text = Format(Today(), "dd-MMMM-yyyy")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LBL2.Text = DateDiff(DateInterval.Day, DateTimePicker1.Value, Today()) & " Hari"
LBL3.Text = DateDiff(DateInterval.Month, DateTimePicker1.Value, Today()) & " Bulan"
LBL4.Text = DateDiff(DateInterval.Year, DateTimePicker1.Value, Today()) & " Tahun"
LBL5.Text = Format(DateAdd(DateInterval.Day, 1, DateTimePicker1.Value), "dd-MMMM-yyyy")
LBL6.Text = Format(DateAdd(DateInterval.Month, 2, DateTimePicker1.Value), "dd-MMMM-yyyy")
LBL7.Text = Format(DateAdd(DateInterval.Year, 3, DateTimePicker1.Value), "dd-MMMM-yyyy")
LBL8.Text = DateTimePicker1.Value.ToString("dddd")
LBL9.Text = Hasil(Year(DateTimePicker1.Text), Month(DateTimePicker1.Text))
End Sub
Function Hasil(ByVal MyYear As Integer, ByVal MyMonth As Integer) As Integer
Return DateTime.DaysInMonth(MyYear, MyMonth)
End Function
End Class

Kodingnya sangat Simple atau sederhana namun hasilnya luar biasa :)

Kemudian yang terakhir silahkan Running atau jalankan Project VB .NET anda.
Bagaimana cara menggunakannya ?
Silahkan running Form1 VB .NET anda, kemudian anda ganti Tanggal di Pilih.
Jika sudah anda bisa Klik Button1 atau Tombol Proses.

Demikian Cara Menggunakan DateTimePicker pada VB.Net untuk menghitung selisih tanggal pada Visual Basic .NET. Semoga bermanfaat untuk anda.

Posting Komentar untuk "Cara Menggunakan Datetimepicker Pada VB .NET"