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 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 mempraktikan 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.
Hasilnya adalah sebagai berikut :

 Demikian Cara Membuat Form Sederhana untuk menghitung selisih tanggal pada Visual Basic .NET. Semoga bermanfaat untuk anda.


Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.