Contoh:
Public Sub main()
Dim Tanggal,
TambahTanggal As String
Dim HBT As
String[]
Dim CTanggal As
Date
Tanggal =
"5/10/2018"
TambahTanggal =
"100" 'Hari
'Pisahkan
bagian-bagian tanggal Hari, Bulan dan Tahun
'ke array
HBT =
Split(Tanggal, "/")
'Susun
Tanggal ke format default yyyy/mm/dd
CTanggal =
Date(HBT[2], HBT[1], HBT[0])
Print
Date(CTanggal + TambahTanggal)
End
Hasil: 13/01/2019
00:00:00
Penjelasan:
TambahTanggal berisi
nilai jumlah tambahan hari, jadi yang diinginkan adalah "5/10/2018"
ditambah “100” hari.
HBT (Hari, Bulan,
Tahun) adalah array untuk menampung masing-masing
HBT[2] = “2018”
>> Tahun
HBT[1] = “10” >>
Bulan
HBT[0] = “5” >>
Tanggal.
Nb: Saat menggunakan
mode GUI, pada kondisi tertentu (jika penggunaan tipe value tidak
tepat) akan terdapat error pada jumlah hari yang ditambahkan. Untuk
mengatasi hal tersebut maka tipenya dikonversi. Misal TambahTanggal
adalah sebuah TextBox
TextBox1.Text =
Date(CTanggal + Cdate(CInt(TambahTanggal.Text)))