Tecnologia, programação e muito Visual FoxPro.

quarta-feira, 31 de março de 2010

Re: ]] XL-mania [[ Cari Hari Senin Pertama Bulan Berikutnya.

 

Kalau mau pakai eomonth() :
=Ceiling(EOMonth(Tanggal,0)+6,7)-5

2010/3/31 anton suryadi <summonery@yahoo.com>
 

kalo gini gimana,
=DATE(YEAR(A1),MONTH(A1)+1,0)+(7-MOD(DATE(YEAR(A1),MONTH(A1)+1,0)-2,7))
=EOMONTH(A1,0)+8-WEEKDAY(EOMONTH(A1,0)-1)


>semoga bermanfaat








From: siti Vi <setiyowati.devi@gmail.com>
Sent: Wed, March 31, 2010 11:03:13 AM
Subject: Re: ]] XL-mania [[ Cari Hari Senin Pertama Bulan Berikutnya.

 



masih penasaran dengan kasus ini.. dengan hormat di ajukan 4 formula alternatif (lagi)
 
versi tanpa bantuan add-in analisis tool
=DATE(YEAR(B5) ,MONTH(B5) +1,1)+MOD( 8-WEEKDAY( DATE(YEAR( B5),MONTH( B5)+1,1),2),7)
=DATE(YEAR(B5) ,MONTH(B5) +1,1)+6-WEEKDAY( DATE(YEAR( B5),MONTH( B5)+1,1)- 1,3)
 
versi dengan add-in analisis tool diaktifkan
=EOMONTH(B5, 0)+1+MOD( 8-WEEKDAY( EOMONTH(B5, 0)+1,2),7)
=EOMONTH(B5, 0)+7-WEEKDAY( EOMONTH(B5, 0),3)
memanfaatkan fungsi weekday dengan argument#2  = 3 (yg menghasilkan Minggu = 0);
ternyata dapat membuat formula terpendek : 41 karakter (ada fungsi EOMONTH-nya) , 
atau 73 karakter (tanpa fungsi EOMONTH); masih kalah pendek dgn floor-nya mas Kid.
 
Selalin formula yg telah ditulis di atas, dlm thread ini telah terkumpul koleksi sbb:
 
abee / array formula / 91 
'=INDEX(F7+ROW( $1:$40),MATCH( 1,(WEEKDAY( (F7+ROW($ 1:$40)))= 2)*(MONTH( F7)<MONTH(F7+ROW( $1:$40))) ,0))
 
kid / formula / 71
=FLOOR(F7+32- DAY(F7),7) +2+(MONTH( F7)=MONTH( FLOOR(F7+ 32-DAY(F7) ,7)+2))*7
 
siti /  formula / 117
=DATE(YEAR(F7) ,MONTH(F7) +1,1)-WEEKDAY( DATE(YEAR( F7),MONTH( F7)+1,1), 2)+
  IF(WEEKDAY(DATE( YEAR(F7), MONTH(F7) +1,1))=2, 1,8)
 
ctv / formula / 77
=EOMONTH(B9, 0)+1-WEEKDAY( EOMONTH(B9, 0)+1,2)+( WEEKDAY(EOMONTH( B9,0)+1)<>2)*7+1
 
setiyowati / formula / 71
=EOMONTH(F7, 0)-WEEKDAY( EOMONTH(F7, 0))+7*(WEEKDAY( EOMONTH(F7, 0)+1)<>2)+2
 
khozhot / formula / 149
=EOMONTH(F7, 0)+IF(WEEKDAY( EOMONTH(F7, 0))=2,WEEKDAY( EOMONTH(F7, 0))-0,
   IF(WEEKDAY(EOMONTH( F7,0))>2,2-WEEKDAY( EOMONTH(F7, 0))+7,2-WEEKDAY( EOMONTH(F7, 0))))
 
pinjam 'closing salutation' dari pak anton: 
"> semoga bermanfaat.. ."
 

----- Original Message -----
From: Sukardi
Sent: Friday, March 26, 2010 7:29 PM
Subject: ]] XL-mania [[ Cari Hari Senin Pertama Bulan Berikutnya.

Salam, ...
Numpang tanya, Bagaimana rumus untuk mencari tanggal / Hari Senin Bulan
berikutnya dari sel sebelah.
Atas bantuannya terima kasih.



__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Yahoo! Groups will be down for a scheduled outage on 1 Apr 2010   |
| 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              |
+-------------------------------------------------------------------+
.

__,_._,___

Nenhum comentário:

Arquivo do blog