Em aku mau berbagi Tutorial lagi ne gan
sis yang akan dibahas adalah bagaimana cara menghitung selisih hari pada
tanggal dengan .net versi Visual studio 2010. Banyak sekali Program
Aplikasi yang kita buat membutuhkan perhitungan seperti ini misalkan
antara tanggal 1 Januari – 5Februari berapa lama selisih harinya?
Jadi mari kita langsung kepada pembuatan Programnya :
Pertama Siapkan 3 Buah Label , 3 Buah Textbox dan 1 Buah Button Atur Propertiesnya seperti gambar di bawah ini :
Keterangan : jadi pada TextBox Tanggal Sebelumnya namakan txt_sebelumnya dan Biarkan Textnya Kosong
TextBox Tanggal sekarang namakan txt_sekarang dan Biarkan Textnya Kosong
TextBox Selisih Hari atur propertis name menjadi txt_selisih dan Biarkan Textnya Kosong
Lalu Klik dobel pada Form tersebut (Anda bebas memberi nama Form ini) dan ketikkan kode di bawah Public Class
Public Class Form_selisih_hari
Dim hari As Integer
'dim ini sebagai deklarator
Setelah itu masukan Rumus ini di bawah Form_selisih_hari Load atau klik dobel pada Form tersebut:
'Fungsi ini untuk menampilkan tanggal secara otomatis pada saat program di jalankan
'Perintah di bawah untuk menampilkan Tanggal Bulan dan tahun 5 Hari sebelum tanggal sekarang pada komponen txt_sebelumnya
txt_sebelumnya.Text = Format(System.DateTime.FromOADate(Today.ToOADate - 5), "dd MMMM yyyy")
'Perintah di bawah untuk menampilkan tanggal sekarang pada komponen txt_sekarang
txt_sekarang.Text = Format(Today, "dd MMMM yyyy")
Lalu Klik pada Button Hitung Selisih dan Masukan Kode Berikut :
hari = DateDiff(DateInterval.Day, CDate(txt_sebelumnya.Text), CDate(txt_sekarang.Text))
If Format(hari) = 0 Then
txt_selisih.Text = "0" 'Jika hasil selisih hari yang di peroleh 0
Exit Sub
ElseIf Format(hari) < 0 Then 'Jika hasil selisih hari yang di peroleh lebih kecil dari 0
txt_selisih.Text = "0"
Exit Sub
ElseIf Format(hari) > 0 Then 'Jika hasil selisih hari yang di peroleh lebih besar dari 0
txt_selisih.Text = Format(hari, "#,#")
End If
End Sub
Hasil Running :
Contoh lain
.Net merupakan sebuah
pemrograman yang amatt menyenangkan dan powerfull. Di sini saya kan
bagikan cara sederhana menghitung selisih tanggal pada datetimepicker
dengan tanggal sekarang. Pemrograman ini di rancang dengan mengguakan
Visual Studio 2010
Secara Logika Penjelsannya ada pada Rumus berikut :
Textbox1.text = Now – DateTimePicker1.value
Example
Now = Juni 28, 2011 00:05:00 AM
DateTimePicker1.value = Juli 10, 2011
Akku Ingin mendapatkan Textbox1.text = Format (Hari, Jam, Menit)
Oke Lets Go
Segera Rancang Interface Kita seperti berikut ini :
Form Tersebut terdiri dari 2 Label 1 DateTimePicker, 1 Buton dan 1 TextBox Atur Propertisnya seperti pada Gambar.
Klik DObel pada
Button lalu masukan Kode berikut ini :
Dim T As TimeSpan = DateTimePicker1.Value - Now
TextBox1.Text = T.Days & " Days " & T.Hours & " Hours " & T.Minutes & " Minutes "
Mudah Bukan . Seoga bisa membantu anda
A simple timer
