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 :

Cara Menghitung Selisih Tanggal Pada VB .NET

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 :

Cara Menghitung Selisih Tanggal Pada VB .NET

 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.

COMMENTS

Nama

add url,1,anak siantar,5,aplikasi,2,batak,1,bisnis,13,blogger,2,Bogor,1,budaya,3,CRUD,3,Crystal Report,6,Download,3,ef co id,1,english,1,facebook,7,Freelancer,2,hotel,2,informasi,37,inggris,1,Jaringan Komputer,3,jasa,2,jual beli,1,Kalendar,1,khas,1,komputer,8,kuliner,1,kursus,1,laptop,1,marketer,1,marketplace,10,Masehi,1,mobil,1,MUSIC AUDACITY,1,Neon Box,1,oyo,1,oyo penipuan,1,P2P,1,Pancawarna,1,perusahaan,2,produk,1,profesional,2,roi,1,Router,1,seo,1,siantar,5,sistem operasi,2,Software,3,submit url,1,Template,1,Tenda 03,1,Tips Trik VB .Net,15,Tutorial,11,Tutorial C#,5,Tutorial Database,14,Tutorial VB .Net,35,Wifi,1,windows,22,
ltr
item
Boi Meningkat Belajar Digital x Komputer: Cara Menghitung Selisih Tanggal Pada VB .NET
Cara Menghitung Selisih Tanggal Pada VB .NET
https://2.bp.blogspot.com/-7SAU2e0E6Is/WULbIUCeSJI/AAAAAAAAB4c/pjh4u8W5GSIIVSueHZXZmqiOoIvWDMabQCLcBGAs/s16000/Selisih-tanggal-vb-net.PNG
https://2.bp.blogspot.com/-7SAU2e0E6Is/WULbIUCeSJI/AAAAAAAAB4c/pjh4u8W5GSIIVSueHZXZmqiOoIvWDMabQCLcBGAs/s72-c/Selisih-tanggal-vb-net.PNG
Boi Meningkat Belajar Digital x Komputer
https://www.boimeningkat.com/2017/06/cara-menghitung-selisih-tanggal-pada-vb.html
https://www.boimeningkat.com/
https://www.boimeningkat.com/
https://www.boimeningkat.com/2017/06/cara-menghitung-selisih-tanggal-pada-vb.html
true
5369156563580459666
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS PREMIUM CONTENT IS LOCKED STEP 1: Share to a social network STEP 2: Click the link on your social network Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy Table of Content