'Saya Coba Ya, disini saya menggunakan 1 Form dan 1 Modul dimana pada form
terdapat
'2 buah DTPicker dan 1 CommandButton dan juga 1 MSFlexgrid Control
'Tabel Akan Terisi Dengan Tanggal Yang berada antara DTPicker1 dan DTPicker2
pada
'saat Tombol 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 Script di Module
'--------------------------------------------------------
Public Function HitungTanggal(tanggal As Date, i As Integer) As Date
HitungTanggal = DateAdd("d", i, tanggal)
End Function
'-----------------------------------------------------
Sukses ya..
--- On Wed, 4/6/08, ianoca18 <[EMAIL PROTECTED]> wrote:
From: ianoca18 <[EMAIL PROTECTED]>
Subject: [indoprog-vb] TANYA TTG TANGGAL
To: [email protected]
Date: Wednesday, 4 June, 2008, 9:03 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]
