Mencari Nama Hari Pasar

August 30, 2005

Di Jawa dikenal adanya nama hari pasar yang terdiri dari Manis (Legi), Pahing, Pon, Wage dan Kliwon. Formula berikut dapat digunakan di Microsoft Excel untuk menentukan nama hari pasarnya berdasarkan input tanggal pada suatu cell dan berlaku untuk dua sistem tanggal yang berlaku pada MS Excel (1900 dan 1904). Misalnya kita mempunyai input tanggal pada cell A1 dengan nilai “17/8/1945″, formula akan kita masukan pada cell A2:

=TEXT(A1;"DDDD") &" "& IF(DATEVALUE("1904/1/2")=1; IF(MOD(A1;5)=0;"Pahing"; IF(MOD(A1;5)=1;"Pon"; IF(MOD(A1;5)=2;"Wage"; IF(MOD(A1;5)=3;"Kliwon"; IF(MOD(A1;5)=4;"Manis";))))); IF(MOD(A1;5)=0;"Kliwon"; IF(MOD(A1;5)=1;"Manis"; IF(MOD(A1;5)=2;"Pahing"; IF(MOD(A1;5)=3;"Pon"; IF(MOD(A1;5)=4;"Wage";))))))

Maka hasil yang tertera pada cell A2 adalah “Jumat Manis”.

Untuk menentukan nama hari pasar dari hari ini, modifikasi formula di atas dengan mengganti A1 dengan TODAY(), sehingga menjadi:

=TEXT(TODAY();"DDDD") &" "& IF(DATEVALUE("1904/1/2")=1; IF(MOD(TODAY();5)=0;"Pahing"; IF(MOD(TODAY();5)=1;"Pon"; IF(MOD(TODAY();5)=2;"Wage"; IF(MOD(TODAY();5)=3;"Kliwon"; IF(MOD(TODAY();5)=4;"Manis";))))); IF(MOD(TODAY();5)=0;"Kliwon"; IF(MOD(TODAY();5)=1;"Manis"; IF(MOD(TODAY();5)=2;"Pahing"; IF(MOD(TODAY();5)=3;"Pon";IF(MOD(TODAY();5)=4;"Wage";))))))

Posted in MS Office

Tulisan lain yang mungkin terkait dengan tulisan di atas:

1. Tanggal Hijriyah pada Microsoft Excel
2. Memanggil Nama Sheet dari Suatu Cell di Excel
3. Formula Kompatibel Datedif untuk OpenOffice.org Calc
4. Proteksi Sheet Meski dari Tangan Sendiri
5. StarOffice 8 : Semakin Kompatibel dengan Microsoft Office