Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 1 de abril de 2010

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

 

yang AWAL-BULAN-DEPAN-nya jatuh hari Senin  ??

Yang satu ini, membuat teringat omongannya simbah (almarhum) waktu menghitung hari.
Kala itu masih eS eM A kelas 1.
Disela menghitung hari, beliau pernah bilang begini.

Jika dibahasa Indonesiakan begini :
Le, dalam 432 hari dari tanggal lahirmu yang sama dengan hari lahirmu kedepan, pasti ada tanggal lahirmu yang sama dengan hari lahirmu.

Jangan diartikan bahwa tanggal lahir itu lengkap, karena orang jawa jaman dulu (mungkin sekarang masih ada yang tersisa) yang selalu membuat jenang merah putih tiap bulan setiap tanggal lahirnya.

Karena heran kok bisa, maka tanya rumusannya. nJawabnya simple, dan saya rasa rada sekenanya kali ya..

Gini kata simbah (almarhum)
Dina pasaran (hari pasaran) itu ada 35 hari. 12 bulan pasaran berarti ada 12*35
Terus selisihnya hari matahari dan hari bulan itu setahun paling banyak 12 hari. Jadi ada 432 hari.

Contoh : si A lahir tanggal 20 hari Jumat, maka pasti dalam 432 hari kedepan ada tanggal 20 hari Jumat. Artinya, kalau kurang dari itu belum pasti, misal setahun 365 atau 366 hari itu belum pasti ada. Gitu kali ya maksud simbah.

Nah dengan dasar itulah, maka array formula ini dibuat, dengan asumsi sudah ada tanggal patokan (kalau simbah, patokannya adalah tanggal lahir yang sama dengan hari lahir terakhir yang diketahui).

Karena jaman sudah modern, maka sebenarnya bisa patokan tanggal berapa saja.
Jadi di A1, asumsinya ada sebuah tanggal (berapa saja).
=MIN(IF((WEEKDAY(A2+ROW($1:$432))=2)*(DAY(A2+ROW($1:$432))=1),(A2+ROW($1:$432))))-1

formula ini asumsu tanggal lahir 1 hari senin (seperti soal mbak Siti kan ya).
dikurangi 1 (tanggal lahir) karena mbak Siti ingin tahu apa bulan dan tahun sebelumnya.
jangan lupa untuk format number "mmm-yyyy" pada cell hasil.


hehehehe... jangan percaya kalau belum dibuktikan. Saya tidak tahu tepatnya minimal berapa hari untuk pasti bahwa dalam rentang hari itu dari hari terakhir yang tanggal lahir dan hari lahirnya sama bisa pasti ditemukan.

Yang jelas, rentang 1000 hari juga gak apa dan itu pasti ditemukan, hanya saja Excel bakal mengerjakan lebih banyak elemen array.. hahahaha....

Tapi saya percaya (meski belum yakin -- males membuktikannya -- siapa yang minat, silakan) pasti ada 1 tahun penuh yang tidak terjadi bahwa tanggal lahir sama dengan hari lahir seseorang (soale simbah ora tau ngapusi aku.. walah subjectip banget alasane).


Terus gimana ya kalau mau buat daftar malem jumat kliwon yang hari Jumat-nya jatuh pada tanggal 13. -- Friday 13th Jemuah Kliwon.

1 minggu kalender pasaran jawa berisi 5 hari pasaran, yaitu :
Legi - Pahing - Pon - Wage - Kliwon

Kid.

2010/4/1 siti Vi <setiyowati.devi@gmail.com>
 

tetapi kalau tgl 1 (awal bulan) berikutnya jatuh hari Senin,
kayaknya hasil rumus mas zain ini masih terlalu maju 7 hari.

dapat dicoba misalnya untuk input
semua tgl di bulan-bulan  berikut ini
Aug-2008
Nov-2008
May-2009
Jan-2010
Feb-2010
Oct-2010
Jul-2011
Sep-2012
cmiiw...
 
Sekarang timbul masalah baru, yaitu,
bagaimana membuat Daftar Bulan ('mmmm yyyy')
yang AWAL-BULAN-DEPAN-nya jatuh hari Senin  ??
Pecinta array-formula tidak akan mengerutkan dahi kalau hanya mendapat
tantangan spt ini, (pastinya!)
 
=
TEXT(
   SMALL(
      IF((WEEKDAY(ROW(1:60000))=2)*(DAY(ROW(1:60000))=1),ROW(1:60000)),
   ROW(1:281))
   -1,
"MMM YYYY")
 
ArrayFormula tsb akan menciptakan untuk anda: Daftar Bulan yg memenuhi syarat di atas,
dlm rentang  1-jan-1900  s/d  8-apr-2064 sebanyak 281 row sekolom..
 
> ndak ribett...
> ndak bohong...
> asli 'hasil'nya !!
 
 

----- Original Message -----
Sent: Wednesday, March 31, 2010 9:59 PM

gini juga bisa
=DATE(YEAR(A2),MONTH(A2)+1,1)-
   MOD(WEEKDAY(DATE(YEAR(A2),MONTH(A2)+1,1),2),8)+8

--- In
XL-mania@yahoogroups.com
, anton suryadi <summonery@...> wrote:

> 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@...>
> Sent: Wed, March 31, 2010 11:03:13 AM
>  
> .. 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)

__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Happy Easter! Happy long weekend! Happy Happy!                    |
| 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Do More for Dogs Group. Connect with other dog owners who do more.


Welcome to Mom Connection! Share stories, news and more with moms like you.


Hobbies & Activities Zone: Find others who share your passions! Explore new interests.

.

__,_._,___

Nenhum comentário:

Arquivo do blog