Sdr. Dwi Wuryantadi
anda harus pisahkan dulu setiap komponen tanggalnya, kemudian dijumlahkan
bulannya dengan nilai yg anda mau, baru kemudian disatukan lagi dengan
dateserial . . berikut ini contohnya, disini kita anggap nilai dari bulan jatuh
tempo anda simpan pada textbox/variabel bernama "bulan"
Dim tg As Date
Dim th As Integer
Dim bl As Integer
Dim hr As Integer
'tambah nilai bulan pada tanggal
th = Year(tg)
bl = Month(tg) + bulan
hr = Day(tg)
tg = DateSerial(th, bl, hr)
Tanggal = tg - 1
mudah2an bisa membantu
Rgds,
Nino
----- Original Message -----
From: Dwi Wuryantadi
To: [email protected]
Sent: Thursday, January 31, 2008 9:50 AM
Subject: [belajar-access] Tanggal Jatuh Tempo
Dear All,
Saya butuh bantuan nih.
Gmana caranya membuat tanggal jatuh tempo dengan cara menambahkan jangka
waktu yang berbentuk jumlah bulan dari tanggal kredit.
Misal:
Tanggal Kredit: 12 Januari 2008
Jangka Waktu: 18 Bulan
Tanggal jatuh tempo: 11 Juni 2010
Thank b 4
