• ..


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.