salam,
mungkin seperti ini ya ???
Private Sub GetJatuhTemo(TglTerima As Date)
Dim TglJatuhTempo As Date, TglPembayaran As Date
Dim sDay As Double
TglJatuhTempo = DateAdd("M", 1, TglTerima)
sDay = Weekday(TglJatuhTempo, vbSunday) '<==== menentukan selisih hari
sDay = 8 - sDay '<===== (dari hari senin)
If sDay <> 7 Then
TglPembayaran = DateAdd("D", sDay, TglJatuhTempo)
Else
TglPembayaran = TglJatuhTempo
End If
End Sub
semoga membantu
--- On Tue, 4/21/09, dedi_gunawan1711 <[email protected]> wrote:
From: dedi_gunawan1711 <[email protected]>
Subject: [Programmer-VB] Tentukan Tanggal dengan Rentang Waktu
To: [email protected]
Date: Tuesday, April 21, 2009, 11:06 AM
Salam Programmer.. .
Mau mintol neh sama Senior-senior semua, aku ada kasus begini:
rencananya aku mo buat list pembayaran tagihan dengan kriteria sbb:
- Jangka Pembayaran 1 bln dari tanggal barang diterima
- Waktu pembayaran ditentukan setiap hari senin
- Apabila ada pembayaran yang jatuh tempo selain hari senin, maka akan
dikelompokan pada hari senin minggu berikutnya.
minta tolong solusinya neh bro, logika sama sample source codenya.
Thanks
Bravo Perogrammer Indonesia
