Pake perintah DateAdd bro...
Dim Tanggal AS Date
Dim Durasi AS Integer
Tanggal = Now()
Durasi = 4
Peminjaman = DateAdd("d", Durasi, Tanggal)
Dijamin Maknyuzzz deh hasilnya...
Met mencoba
abdul ghofur wrote:
>
> bagaimana cara menghitung sebuah tanggal, misal sekarang tanggal 28
> Mei 2008 bagaimana cara menghitung tanggal 4 hari lagi (yang hasilnya
> 1 Juni 2008).
> aku sudah coba script ini :
> dim tanggal as date
> di durasi as integer
> tanggal = format(now,"dd/mm/yyyy")
> durasi = 4
> peminjaman = tanggal + durasi
>
> tapi hasilnya kacau. Mohon petunjuknya
>
