Menentukan Selisih Hari Pada DateTimePicker (VB)

  • ..


Jika Anda ingin menghitung selisih hari pada suatu aplikasi yang menggunakan selisih hari sebagai penentu biaya, seperti denda keterlambatan pengembalian buku di perpustakaan, lama menginap di hotel, dan lain-lain. Anda cukup menggunakan fungsi DateDiff dalam format seperti berikut :

DateDiff(DateInterval.Day,DateTimePicker1.Value,DateTimePicker2.Value)

NB : Fungsi ini hanya dapat digunakan pada tool DateTimePicker.
Keterangan : DateTimePicker1 berfungsi sebagai tanggal awal dan DateTimePicker2 berfungsi sebagai tanggal akhir. 

Menambah Hari Pada Tipe Data Tanggal (VB)

  • ..


Jika Anda ingin menambah hari pada suatu tanggal, misalnya untuk mengetahui tanggal jatuh tempo pembayaran setelah jumlah hari tertentu dari tanggal penjualan, Anda dapat menggunakan fungsi DateAdd dalam format berikut :

DateAdd(DateInterval.Day, IntervalHari, TanggalAwal)

Penggunaan fungsi DateAdd hanya berfungsi jika Anda menggunakan DateTimePicker. Jika Anda menggunakan Label atau TextBox, Anda dapat juga menggunakan perintah :

DateTime.AddDays(IntervalHari As Double), seperti contoh di bawah ini :

Dim TanggalAwal, TanggalAkhir As System.DateTime
Label1.Text = Now.Date
TanggalAwal = Label1.Text
TanggalAkhir = TanggalAwal.AddDays(CDbl(TextBox1.Text))
Label2.Text = TanggalAkhir

Coding di atas akan menambah hari sebanyak jumlah angka pada TextBox1 Anda dari tanggal yang terdapat pada Label1. 

Menentukan Nama Hari Menggunakan DateTimePicker (VB)

  • ..


Jika Anda menggunakan DateTimePicker dan ingin mengetahui nama hari pada suatu tanggal, Anda dapat menggunakan perintah DayOfWeek. Berikut adalah contoh penggunaanya :

If DateTimePicker1.Value.DayOfWeek = 0 Then
    MessageBox.Show("Hari Minggu.")
Else
    MessageBox.Show("Hari " + DateTimePicker1.Value.DayOfWeek.ToString)
End If

Keterangan :
DayOfWeek menggunakan angka dalam bentuk Integer untuk menentukan nama hari dimulai dari 0 yang menunjukkan hari Minggu sampai dengan 6 yang menunjukkan hari Sabtu.