Menambah Hari Pada Tipe Data Tanggal

Jika kita ingin mengetahui selisih hari di antara dua tanggal menggunakan DateDiff, sedangkan untuk menambah hari pada tanggal misalnya untuk mengetahui tanggal jatuh tempo pembayaran setelah 30 hari dari tanggal penjualan, gunakan fungsi DateAdd seperti format berikut:

DateAdd(DateInterval.Day, IntervalHari, TanggalAwal)

Penggunaan DateAdd hanya berfungsi jika menggunakan DateTimePicker saja. Tanpa DateTimePicker fungsi ini tidak dapat berjalan. Lalu bagaimana jika kita tidak menggunakan DateTimePicker? Selain menggunakan fungsi DateAdd kita dapat juga menggunakan DateTime.AddDays(Interval_Hari As Double), seperti pada contoh syntax berikut:

Dim awal, akhir As System.DateTime

Label1.Text = Now.Date

awal = Label1.Text

akhir = awal.AddDays(30)

Label2.Text = akhir


Syntax di atas akan menambah sebanyak 30 hari dari tanggal yang terdapat pada Label1 (berisi tanggal sistem pada hari ini). Perintah DateTime.AddDays dapat berjalan pada semua control baik label, textbox, atau datetimepicker.