Saya Coba Yah :
Disini Saya Mencontohkan dengan Menggunakan 1 buah Form dimana didalamnya
terdapat 2 Buah DTPicker, 1 CommandButton, dan 1 MSFlexgrid Control. Saya juga
menambahkan 1 buah Modul untuk proses menghitung tanggalnya.
Berikut Koding nya :
Saat Button diklik
'---------------------------------
Private Sub Command1_Click()
Dim tglAwal As Date
Dim tglAkhir, tglHasil As Date
Dim Selisih As Integer
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
tglAwal = DTPicker1.Value
tglAkhir = DTPicker2.Value
Selisih = tglAkhir - tglAwal
MSFlexGrid1.AddItem tglAwal
For i = 1 To Selisih
tglHasil = HitungTanggal(tglAwal, CInt(i))
MSFlexGrid1.AddItem tglHasil
Next
End Sub
'--------------------------------------------------
'Untuk Koding Pada Modul :
'------------------------------------------------------------------------------------------------------------
Public Function HitungTanggal(tanggal As Date, i As Integer) As Date
HitungTanggal = DateAdd("d", i, tanggal)
End Function
'-----------------------------------------------------------------------------------------------------------
--- On Tue, 3/6/08, ianoca18 <[EMAIL PROTECTED]> wrote:
From: ianoca18 <[EMAIL PROTECTED]>
Subject: [indoprog-vb] TANYA PENTING PLEEASEE TTG TANGGAL
To: [email protected]
Date: Tuesday, 3 June, 2008, 8:34 PM
kalo misalnya aku mau nampilin tglAwal sampai tglAkhir di flex grid
gmn yah????
jadi misal aku input tgl 24 april 08 sampai 01 juli 08 trus di flex
gridnya otomatis generate(tampil) tgl2 antara bulan itu.. gimana
caranya???
ada yang tau ga ya????
THANX BEFORE
Send instant messages to your online friends http://uk.messenger.yahoo.com
[Non-text portions of this message have been removed]
