logikanya:

jika WeekDay(tglJatuhTempo)<2 maka    '1=minggu 2=senin
     tglJatuhTempo = DATEADD("d",2-WeekDay(tglJatuhTempo),tglJatuhTempo)
dan jika WeekDay(tglJatuhTempo)>2 maka
     tglJatuhTempo = DATEADD("d",7-WeekDay(tglJatuhTempo)+2,tglJatuhTempo)
selesai

ket :

7-WeekDay(tglJatuhTempo)+2 = jml hari seminggu - hari jatuh tempo + 1 hari 
minggu + 1 hari senin

mudah2in bener... lg males buka vb... ngantux....zzzzzz

--
thx
Oppie
4 Better Indonesia




________________________________
From: dedi_gunawan1711 <[email protected]>
To: [email protected]
Sent: Tuesday, 21 April 2009 11:06:09
Subject: [Programmer-VB] Tentukan Tanggal dengan Rentang Waktu





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


      Get your new Email address!
Grab the Email name you&#39;ve always wanted before someone else does!
http://mail.promotions.yahoo.com/newdomains/sg/

Kirim email ke