Hot Fox

Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 16 de dezembro de 2009

Re: ]] XL-mania [[ Schedule Pengiriman Setiap Jum'at

 

Ini sekedar ide laen dari saya. barangkali bermanfaat.  Semua pake array formula

NOTE :
A3 = letak tanggal awal bulan
N3:N10  =  list tanggal libur

untuk formulanya tergantung worst case yg mungkin terjadi :
sementara yg aku tulis di excell worst case 3.

CASE 1. jumat bkn hari libur

E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-IF(WEEKDAY(E3)=7,0,7)

CASE 2. kemungkinan jumat tgl merah

E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-IF(WEEKDAY(E3)=7,0,7)-IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-7,N3:N10,0)),0,1)

CASE 3. kemungkinan jumat, kamis tgl merah

E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-IF(WEEKDAY(E3)=7,0,7)-IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-7,N3:N10,0)),0,IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-8,N3:N10,0)),1,2))

CASE 4. kemungkinan jumat, kamis, rabu tgl merah

E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-IF(WEEKDAY(E3)=7,0,7)-IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-7,N3:N10,0)),0,IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-8,N3:N10,0)),1,IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-9,N3:N10,0)),2,3)))

CASE 5. kemungkinan jumat, kamis, rabu, selasa tgl merah

E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-IF(WEEKDAY(E3)=7,0,7)-IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-7,N3:N10,0)),0,IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-8,N3:N10,0)),1,IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-9,N3:N10,0)),2,IF(ISNA(MATCH(E3+(6-WEEKDAY(E3))+7*(COLUMN(1:5))-10,N3:N10,0)),3,4))))

CASE 6. kemungkinan jumat, kamis, rabu, selasa, senin tgl merah

kalo case ini ada, boleh minta alamat kantornya? aku mau pindah ke sana aja... uwenake rek... liburan terus... aku lak yo gelem.. wkwakakakak

cheers,
VD





From: Ahmad Zamroni <ahzam05@gmail.com>
To: XL-mania@yahoogroups.com
Date: 12/11/2009 08:57 AM
Subject: Re: ]] XL-mania [[ Schedule Pengiriman Setiap Jum'at
Sent by: XL-mania@yahoogroups.com




 

tidak lebih efisien dari buatan Siti, karena lebih panjang dan masih pake dummy.
tapi lebih efektif, karena bisa memperbaiki "bug" dimana di formula
Siti tgl 24 muncul, padahal itu kan hari libur juga

-zam-

On 12/5/09, siti Vi <setiyowati.devi@gmail.com> wrote:
> xiiiiii xi xi xi xi ...
> =TRANSPOSE(Jumats)
>
> sementara ... itulah rumus yg menghasilkan jajaran tanggal Hari JUMAT di
> bulan-th tertentu
>
> berhubung hari jumat dlm satu bulan tidak harus 4 ( melainkan bisa 5 bijik)
> maka kolom nya harus disediakan 5 kolom
> nanti kalau ternyata hanya 4; then kolom terkanan dibuat hidden..
>
> tahap selanjutnya
> kita tinggal memikirkan bgmana memasukkan syarat berikutnya
> (kalau hari jumat jatuh pada hari libur, maka......)
> =IF(COUNTIF(O3:O6,TRANSPOSE(Jumats))>0,TRANSPOSE(Jumats-1),TRANSPOSE(Jumats))
>
> kayaknya di 'kelender abadi cap susterngesot' ada nich...
>
> mengapa kok harus pakai tranposed-transposed-AN segala macam ??
> ( = karena di excel 2003 jumlah kolom sangat terbatas
> ( = bayangkan kalau harus menulis Column(40148:40179)
> ( = sedangkan di excel 2003 hanya ada 256 kolom
> ( = maNGkanya diubah menjadi =Tranpose(Row(40148:40179))
>
> kita tungu temans lain, bisanya punya rumus yg lebih efisyen...
> .... xiiii xi xi xi xi xiiiiiii

[attachment "Schedule Delivery XL.xls" deleted by Vidi Ardyanto/1158/JID/ID]

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Ini work-load atau work-flood ya? huhuhu...          |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+
.

__,_._,___
Postado por às

Nenhum comentário:

Postar um comentário

Assinar: Postar comentários (Atom)

Arquivo do blog