Cara Menghitung Selisih Tanggal Pada Vb .Net

Cara Menghitung Selisih Data Tanggal, Selisih Bulan, Selisih Tahun ( Penambahan, Pengurangan ) Pada Visual Basic .NET
Pada pembajaran VB .NET kali ini aku akan membahas mengenai cara menghitung selisih data tanggal pada VB .NET. Fungsi tutorial kali ini sangat banyak sekali. Yang niscaya akan memperlihatkan manfaat kalau aplikasi yang anda buat memakai Tanggal dan akan dikurangi atau ditambah ibarat aplikasi dibawah ini :

1. Pada Aplikasi Penyewaan akan sangat bermanfaat dalam menghitung biaya Sewa maupun biasa Denda
2. Pada Aplikasi Perpustakaan juga niscaya memakai penghitungan biaya usang sewa dan denda kalau pengembalian telat.
3. Dan masih berbagai aplikasi yang sanggup diterapkan pada tutorial selisih tanggal ini.

Baik pribadi saja, berikut ini kita akan pribadi mempraktikan bagaimana cara menciptakan penghitungan selisih tanggal pada VB .NET.
Silahkan buka komputer anda
Silahkan buka Visual Basic .NET
Jika sudah muncul Form1, buatlah design Form ibarat 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 menciptakan design Form1 ibarat 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 kesannya luar biasa :)

Kemudian yang terakhir silahkan Running atau jalankan Project VB .NET anda.
Bagaimana cara menggunakannya ?
Silahkan running Form1 VB .NET anda, lalu anda ganti Tanggal di Pilih.
Jika sudah anda sanggup Klik Button1 atau Tombol Proses.
Hasilnya ialah sebagai berikut :

 Demikian Cara Membuat Form Sederhana untuk menghitung selisih tanggal pada Visual Basic .NET. Semoga bermanfaat untuk anda.
Silahkan KLIK DISINI untuk download Project diatas

Share this post