Boss, mintol diperjelas donk fungsi yg dikasih... maklum newbie neh... --- On Mon, 4/20/09, Axwen Alstair <[email protected]> wrote:
From: Axwen Alstair <[email protected]> Subject: Re: [Programmer-VB] Tentukan Tanggal dengan Rentang Waktu To: [email protected] Date: Monday, April 20, 2009, 10:10 PM 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(TglJatuhTem po, 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 <dedi_gunawan1711@ yahoo.com> wrote: From: dedi_gunawan1711 <dedi_gunawan1711@ yahoo.com> Subject: [Programmer- VB] Tentukan Tanggal dengan Rentang Waktu To: Programmer-VB@ yahoogroups. com 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
