Re: ]] XL-mania [[ Schedule pengiriman barang time based

seperti ini kah ??

 

* Tgl PENGIRIMAN PERTAMA ditentukan oleh user:

* Sabtu / Minggu Bukan Hari Kerja / Schedule Kirim tidak boleh jatuh hari Sabtu / Minggu.

 

dengan tujuan spt itu, penggunaan fungsi cWORKDAY pun agak berubah

 

Private Function SchedList(Sched1 As Date, ByVal Nday As Long)
   '--------------------------------
   Dim i As Integer, ScList As String, Sched2 As Date
   Sched2 = Sched1
   ScList = "\" & Day(Sched1)
   For i = 1 To (31 / Nday)
      Sched2 = cWORKDAY(Sched2, Nday, Saturday + Sunday)
      If Month(Sched2) <> Month(Sched1) Then Exit For
      ScList = ScList & "\" & Day(Sched2)
   Next
   SchedList = ScList & "\"
End Function

 

lampiran : ctv_schedule pengiriman time based_(modified_2).xls

 

----- Original Message -----
From: Zaki
To: XL-mania@yahoogroups.com
Sent: Friday, October 30, 2009 01:13PM
Subject: Re: ]] XL-mania [[ Schedule pengiriman barang time based

Dear all,
thanks sebelumnya.
Untuk hari minggu tidak ada pengiriman/libur.
Dan adakah cara lain kalau penetapan pengirimannya bukan tanggal,
tapi qty yang sesuai dengan tgl.
Thanks,
regards
.:: zaki ::.


----- Original Message -----
From: siti Vi
To: XL-mania@yahoogroups.com
Sent: Friday, October 30, 2009 11:52 AM
Subject: Re: ]] XL-mania [[ Schedule pengiriman barang time based
 
kalau dengan rumus tsb jatuhnya hari mnggu bagimana ??
(mungkin perlu bantuan fungsi workday; tetapi yg menganggap sabtu = hari kerja)