MEMBUAT KALENDER ABADI (MANUAL) SERI 2

MEMBUAT KALENDER ABADI (MANUAL) SERI 2

Lanjutan seri 2

1. buatlah kolom lain lagi sebanyak 35 kolom
2. buatlah bilangan urut 0 – 34 biasa dari kiri (lihat gambar)
3. menghitung jumlah hari dalam abad ke 1, 2 , 3 dan seterusnya kemudian dibagi dengan 35 contoh sebagai berikut :

abad 1

jumlah hari = 365 X 100 + 25 = 36525

36525 / 35 = 1043,57142857142857

Diambil pecahannya = 0,57142857142857

Kemudian dikalikan 35

0,57142857142857 X 35 =  19,999999 dibulatkan menjadi 20

Maka angka abad 1 diletakkan di bawah bilangan urut ke 20

Abad 2

Jumlah hari = 36525 X 2 = 73050

73050 / 35 = 2087,14285714285714

Diambil  bulatnya = 0,14285714285714

Kemudian dikalikan 35

0,14285714285714 X 35 =  5

Maka angka abad 2 diletakkan di bawah bilangan urut ke 5

Begitu seterusnya sampai abad 15

Abad 15

Jumlah hari 15 X 36525  = 547875

547875 / 35 = 15653,5714285714286

Diambil bulatnya = 0,5714285714286

0,5714285714286 X 35 = 20

Maka angka abad 15 diletakkan di bawah bilangan urut ke 20

Kemudian hitunglah lagi angka abad ke 15 namun harinya dikurangi dengan 10 .

Ini untuk koreksi sejak diberlakukannya aturan kalender gregrorian sejak 15 Oktober 1582 . lihatlah angka abad yang berwarna biru

Mulai saat itu berlaku aturan untuk abad  kabisat  adalah hanya yang bilangan tahunnya habis di bagi 400, seperti tahun 1600, 2000, 2400, 2800, sedangkan 1700, 1800, 1900, 2100 adalah pendek (basithah)

Abad kabisat = 36525 hari , sedangkan abad basitah =36524 hari

Aba 15

Jumlah hari 15 X 36525  = 547875 – 10 =547865

547865 / 35 = 15653,2857142857143

Diambil bulatnya = 0,2857142857143

0,2857142857143X 35 = 10

Maka angka abad 15 diletakkan di bawah bilangan urut ke 10

Abad 16

Jumlah hari =547865 + 36525 = 584390

584390 / 35 = 16696,8571428571429

Diambil bulatnya 0,8571428571429

Dikalikan 35

0,8571428571429 X 35 = 29,9999 dibulatkan menjadi 30

Maka angka abd 16 diletakkan di bawah bilangan urut 30

Begitu seterusnya

Abad 20

Jumlah hari = 547865 + 36525 + 36524 + 36524 + 36524 ­+ 36525  = 730487

730487 / 35  = 20871,0571428571429

Diambil bulatnya = 0,0571428571429

Dikalikan  35

0,0571428571429X 35 = 2

Maka angka abd 20 diletakkan di bawah bilangan urut 2

Begitu seterusnya

4. letakkanlah hari-hari dalam selapan (35 hari ) dimulai dari  senin wage, selasa kliwon, Rabu kliwon dan seterusny di bawah  bilangan urut 0 – 34 tadi di bawah angka-angka abad tadi.
5.  sampai di sini anfa bisa dikatakan telah selesai membuatnya. Tinggal  cara pemakaiannya. Perlu diketahui antara kolom yang berisi tanggal, bulan dan tahun, dibuat  dalam ukuran lebar kolom yang sama namun keduanya dibuat dalam lembar yang terpisah dari  kolom abad dan hari-harinya segingga  nanti bisa di geser-geser untuk proses pemakaian, bisa juga kolom yang berisi tanggal bulan dan tahun di buat dua buah.

Cara pemakaian

1. kalender ini menganggap tahun baru adalah 1 Maret, sehingga bulan Januari dan Pebruari dianggap sebagai bagian dari tahun sebelumnya, sehingga misalnya jika anda mencari tanggal  28 Januari  1985 maka anggaplah sebagai  28 Januari 1984.maka caranya adalah sebagai berikut :
2. carilah angka abad 19 kemudian tandailah ( berada di bawah bilangan urut 17) . kemudian geserlah kolom tanggal bulan tahun tadi sehingga bilangan tahun 84 ( dibawah bilangan urut 21) tepat berada di atas angka abad 19 tadi, maka anda tinggal melihat kecocokan antara tanggal dan hari-harinya , berarti  tanggal 28 januari tepat dengan senin kliwon, maka 28 januari 1985 adalah senin kliwon
3. untuk- tanggal mulai 1 maret sampai 31 desember tidak perlu dikurangi angka tahunnya. Langsung saja.
4. kolom yang dibuat dua buah bisa disambung sehingga urutannya berputar,
5. atau bisa juga kolom- kolom tersebut dibuat lingkaran sehingga tidak perlu menyambung.
6. selamat berkreasi

MEMBUAT KALENDER ABADI (MANUAL) SERI 1

 

MEMBUAT KALENDER ABADI (MANUAL) SERI 1

1. buatlah kolom sebanyak 35 kolom
2. urutkan tanggal dalam setiap bulannya dalam kolom tersebut. Dimulai dari bulan Maret.
3. buatlah nomor urut dalam kolom tersebut, 1-35 diurutkan dari kanan ke kiri
4. untuk no 35 kemudian diganti dengan 0 ( nol). Lihat gambarnya.
5. menghitung jumlah hari dalam setahun, dua tahun, tiga tahun dan seterusnya sampai seratus tahun, kemudian dibagi dengan 35, sisa pembagian tersebut letakkanlah di bawah bilangan urut 1-35 tadi. Contonya sebagai berikut:

tahun 1
jumlah hari dalam setahun = 365
365 / 35 = 10,4285714285714286
Ambil pecahannya yaitu 0,4285714285714286
Kemudian dikalikan 35
0,4285714285714286 X 35 =15 ,
maka angka tahun 1 diletakkan di bawah bilangan urut ke 15

Tahun 2
Jumlah hari = 365 +365 = 730
730 /35 = 20,8571428571428571
Ambil pecahannya = 0,8571428571428571
Kemmudian dikalikan 35
0,8571428571428571 X 35 = 29,999999999999999999 dibulatkan menjadi 30.
Maka angka tahun 2 diletakkan di bawah bilangan urut ke 30.

Begitu seterusnya sampa tahun ke 100, ingat dan perhatikan tahun- tahun kabisatnya, yaitu tahun-tahun yang bilangannya habis dibagi 4, yaitu tahun ke 4, 8, 12, …

Tahun 99
Jumlah hari = 365 X 99 + 24 (tambahan tahun kabisat) = 36159
36159 /35 = 1033,11428571428571
Diambil bulatnya = 0,11428571428571
Kenudian dikalikan 35
0,11428571428571 X 35 = 4
Maka tahun 99 diletakkan di bawah bilangan urut ke 5
Kemudian untuk tahun 0 diletakkan di bawah bilangan urut 0 juga.

(perhatikan gambar di atas)

QIBLA FINDER FROM SUN'S AZIMUTH (PENCARI ARAH QIBLAT BERDASAR AZIMUTH MATAHARI)

Aplikasi Ms Excel yang berguna untuk menghitung arah qiblat dari suatu lokasi di permukaan bumi  dan membuat panduan pengukurannya.
secara singkat aplikasi ini bekerja sebagai berikut:
menghitung azimuth matahari dari suatu lokasi dan pada waktu yang telah ditentukan.
menghitung arah qiblat lokasi tersebut.
menghitung selisih  keduanya dan kemudian melukiskannya dengan garis-garis  yang bisa dicetak kemudian digunakan sebagai pedoman pengukuran arah qiblat lokasi tersebut.
screen shoot nya adalah seperti ini :

gambar1

semoga bermanfaat selanjutnya bisa anda download di :
  http://www.ziddu.com/download/19276337/QIBLAH_FINDER05.rar.html

QIBLAH SIMULATOR

Masih menggunakan Vba Ms Excel, alhamdulillah kali ini saya menghadirkan sebuah aplikasi QIBLAH SIMULATOR. Sebuah aplikasi untuk mensimulasikan pengukuran arah qiblat.
Secara singkat aplikasi ini bekerja sebagai berikut :
Pertama menghitung arah qiblat berdasar data yang dimasukkan.
Kedua memilih sudut yang lebih kecil dari salah satu dari dua titik acuan, misalnya untuk kota Yogyakarta arah kiblatnya 24,5 Barat Utara atau 65,5 Utara Barat, maka yang dipilih adalah 24,5 Barat Utara.
Ketiga menggambarkan pengukurannya melalui gerakan tiga buah garis yang akhirnya membentuk sudut arah qiblat tersebut.
Contoh gambar layarnya adalah sebagai berikut :

GAMBAR 1

GAMBAR 2

Selanjutnya anda bisa mendownload di :

http://www.ziddu.com/download/18668481/QIBLAHSIMULATOR02.rar.html
Semoga bermanfaat

البيان الختامي للمؤتمر العالمي لإثبات الشهور القمرية بين علماء الشريعة والحساب الفلكي

بسم الله الرحمن الرحيم

البيان الختامي للمؤتمر العالمي لإثبات الشهور القمرية بين علماء الشريعة والحساب الفلكي

الحمد لله رب العالمين, والصلاة والسلام على نبينا محمد وعلى آله وصحبه أجمعين وبعد:

فإن الثابت أن لهذا الكون قوانين وسنناً تحكمه هي من صنع العلي القدير الذي خلْقه في غاية الإبداع والانتظام والإتقان.
ومن ذلك خلْقُ الشمس والقمر لمعرفة المواقيت والسنين والحساب, قال تعالى: ( وَالشَّمْسُ تَجْرِي لِمُسْتَقَرٍّ لَّهَا ذَلِكَ تَقْدِيرُ الْعَزِيزِ الْعَلِيم (38) وَالْقَمَرَ قَدَّرْنَاهُ مَنَازِلَ حَتَّى عَادَ كَالْعُرْجُونِ الْقَدِيمِ (39) لَا الشَّمْسُ يَنْبَغِي لَهَا أَنْ تُدْرِكَ الْقَمَرَ وَلَا اللَّيْلُ سَابِقُ النَّهَارِ وَكُلٌّ فِي فَلَكٍ يَسْبَحُونَ (40) (يس). وقال عز من قائل:( الشَّمْسُ وَالْقَمَرُ بِحُسْبَانٍ) (الرحمن: 5).
وقال عز وجل: (هُوَ الَّذِي جَعَلَ الشَّمْسَ ضِيَاء وَالْقَمَرَ نُورًا وَقَدَّرَهُ مَنَازِلَ لِتَعْلَمُواْ عَدَدَ السِّنِينَ وَالْحِسَابَ مَا خَلَقَ اللهُ ذَلِكَ إِلاَّ بِالْحَقِّ يُفَصِّلُ الآيَاتِ لِقَوْم يَعْلَمُونَ) (يونس 5).

وقد جعل الله الأهلة مواقيت للناس لمعرفة بداية الأشهر القمرية, قال تعالى: ( يَسْأَلُونَكَ عَنِ الْأَهِلَّةِ قُلْ هِيَ مَوَاقِيتُ لِلنَّاسِ وَالْحَجِّ ) (سورة البقرة: 189).
ولتعلق ثبوت الأهلة بعبادات هي من أركان الإسلام كالحج والصيام, ولأن الأشهر القمرية هي الأساس والمعيار لكثير من الأحكام الشـرعية كالعدة والإيلاء والكفارات كما قال تعالى: ( وَالَّذِينَ يُتَوَفَّوْنَ مِنكُمْ وَيَذَرُونَ أَزْوَاجًا يَتَرَبَّصْنَ بِأَنفُسِهِنَّ أَرْبَعَةَ أَشْهُرٍ وَعَشْرًا ) (البقرة 234) وقال تعالى: ( لِّلَّذِينَ يُؤْلُونَ مِن نِّسَآئِهِمْ تَرَبُّصُ أَرْبَعَةِ أَشْهُرٍ) (البقرة 226)، وقال تعالى في كفارة القتل الخطأ وفي كفارة الظهار: (فَصِيَامُ شَهْرَيْنِ مُتَتَابِعَيْنِ) (النساء 92، المجادلة 4).

وقد بين رسول الله صلى الله عليه وسلم طريق معرفة دخول شهر رمضان وخروجه, وذلك بالرؤية البصرية في عدد من نصوص السنة المطهرة, منها قوله صلى الله عليه وسلم: «صوموا لرؤيته وأفطروا لرؤيته». رواه البخاري.

وقد سارت الأمة الإسلامية على ذلك منذ عهد النبوة، وقد برزت بعض المشكلات والجدل عند دخول شهر رمضان أو خروجه أو دخول شهر ذي الحجة، وقد زاد في الوقت الحاضر تقارب المسافات بين البلاد البعيدة، وتطورت وسائل الاتصال الحديثة، حتى أصبح العالم كله بمرأى ومسمع من كل أطرافه, وقد أصبحت في هذا العصر الآفاق المحيطة بالكرة الأرضية ملوثة بالكثير من الأبخرة والغازات والسحب الدخانية، مما جعل التلوث في الجو يصل إلى مستويات عالية, إضافة إلى التلوث الضوئي وكثرة الطائرات والأقمار الصناعية التي تجوب الفضاء وتعكس الأضواء وذلك مما يؤثر على الرؤية البصرية.

لهذا كله وغيره زاد الخلاف في ثبوت الهلال ورؤيته، ووقع في ثبوت بداية الأشهر القمرية في بعض البلاد الإسلامية فرق كبير ربما يصل إلى ثلاثة أيام، وأضحت هذه القضية من معضلات العصر - عند المسلمين.
ولأهمية هذا الموضوع عقدت لدراسته العديد من المؤتمرات والندوات, وعرض على بعض المجامع الفقهية والهيئات الشرعية، إلا أن الجدل فيه ما يزال قائماً، والحاجة ملحة إلى دراسة معمقة - يراعى فيها ما جاءت به الشريعة مع الاستفادة مما يسره الله من تقدم كبير في علم الفلك وحساباته ومراصده - تمحص فيها وجهات النظر المختلفة للوصول إلى حلول ناجعة.

لهذا فإن المجمع الفقهي الإسلامي برابطة العالم الإسلامي انطلاقاً من مسؤولياته في معالجة قضايا المسلمين، ولما رأى من شدة الحاجة لبحث هذا الموضوع عقد «المؤتمر العالمي لإثبات الشهور القمرية بين علماء الشريعة والحساب الفلكي» في المدة من 19-21 ربيع الأول 1433هـ التي يوافقها 11-13 فبراير 2012م.

وقد اجتمع فيه نخبة من العلماء الشـرعيين والفلكيين من هيئات شرعية, وجامعات, ومراكز أبحاث متخصصة, من داخل المملكة العربية السعودية وخارجها, في أقدس بقعة من بقاع العالم, في مكة المكرمة وفي رحاب الكعبـة المشـرفة، برعاية كريمة من خادم الحرمين الشـريفين الملك عبد الله بن عبد العزيز آل سعود حفظه الله ووفقه لخدمة الإسلام والمسلمين.

وبعد أن اطلع المشاركون في المؤتمر على الأبحاث المقدمة, واستمعوا إلى ملخصاتها, وما قدم من عروض, وما حصل حولها من مناقشات أكدوا على ما يلي:

أولاً: الأصل في ثبوت دخول الشهر القمري وخروجه هو الرؤية, سواء بالعين المجردة أو بالاستعانة بالمراصد والأجهزة الفلكية, فإن لم ير الهلال فتكمل العدة ثلاثين يوماً.
فعن أبي هريرة - رضي الله عنه - قال قال رسول الله صلى الله عليه وسلم : (صُومُوا لِرُؤْيَتِهِ وَأَفْطِرُوا لِرُؤْيَتِهِ فَإِنْ غُبِّيَ عَلَيْكُمْ فَأَكْمِلُوا عِدَّةَ شَعْبَانَ ثَلاثِينَ) رواه البخاري.
وعن ابن عمر - رضي الله عنهما - قال قال صلى الله عليه وسلم : (الشَّهْرُ تِسْعٌ وَعِشْـرُونَ لَيْلَةً فلا تَصُومُوا حتى تَرَوْهُ فَإِنْ غُمَّ عَلَيْكُمْ فَأَكْمِلُوا الْعِدَّةَ ثَلاثِينَ) رواه البخاري.
وعنه قال: قـال صلى الله عليه وسلم: (لا تَصُومُوا حتى تَرَوْا الْهِلالَ ولا تُفْطِرُوا حتى تَرَوْهُ فَإِنْ غُمَّ عَلَيْكُمْ فَاقْدُرُوا له) رواه البخاري.
فقد دلت هذه الأحاديث وغيرها على أن الرؤية هي الأصل في ثبوت دخول الشهر وخروجه.

ثانياً: أن ترائي الهلال واجب كفائي؛ لأنه مما لا يتم الواجب إلا به. يؤيد ذلك: فعله صلى الله عليه وسلم وتقريره.
فعن عائشة رضي الله عنها قالت: «كَانَ رَسُولُ اللهِ صلى الله عليه وسلم يَتَحَفَّظُ مِنْ شَعْبَانَ مَا لاَ يَتَحَفَّظُ مِنْ غَيْرِهِ، ثُمَّ يَصُومُ لِرُؤْيَةِ رَمَضَانَ، فَإِنْ غُمَّ عَلَيْهِ عَدَّ ثَلاَثِينَ يَوْمًا ثُمَّ صَامَ »رواه أبو داود. وفي رواية ابن حبان وابن خزيمة بلفظ: (كَانَ رَسُولُ اللهِ صلى الله عليه وسلم يَتَحَفَّظُ مِنْ هِلالِ شَعْبَانَ مَا لا يَتَحَفَّظُ مِنْ غَيْرِهِ..).
وروى عبد الله بن عمر - رضي الله عنهما -، قال: «تَراءَىَ النَّاسُ الهلالَ فأخبرت رسول الله صلى الله عليه وسلم أني رأيته فصامه وأمر الناس بصيامه» رواه أبو داود.

ثالثاً: يجب أن تتوافر في الشاهد الشروط المعتبرة لقبول الشهادة, وأن تنتفي عنه موانعها, وأن يتم التثبَّت من حدَّة نظر الشاهد، وكيفية رؤيته للهلال حال الرؤية، ونحو ذلك مما ينفي الشك في شهادته.

رابعاً: أن الحسـاب الفلكـي علم قائم بذاته, له أصوله وقواعده, وبعض نتائجه ينبغي مراعاتها؛ ومن ذلك معرفة وقت الاقتران, ومعرفة غياب القمر قبل غياب قرص الشمس أو بعده, وأن ارتفاع القمر في الأفق في الليلة التي تعقب اقترانه قد يكون بدرجة فأقل أو بأكثر.
ولذلك يلزم لقبول الشهادة برؤية الهلال ألا تكون الرؤية مستحيلة حسب حقائق العلم المسلمة القطعية حسب ما يصدر من المؤسسات الفلكية المعتمدة، وذلك في حالة عدم حدوث الاقتران، أو في حالة غروب القمر قبل غياب الشمس.

خامساً: تكون رؤية الهلال للأقليات الإسلامية في البلد الواحد في بعض المناطق والأقاليم رؤية لبقيتهم عملا على توحيد صومهم وفطرهم.

سادساً: بالنسبة للبلاد التي فيها أقليات إسلامية , ولا يمكنهم رؤية الهلال لسبب من الأسباب، فإن عليهم الأخذ برؤية أقرب بلدٍ إسلاميٍ, أو أقرب بلد فيه جالية إسلامية, صدر ثبوت الهلال فيه عمن يمثلها من المراكز الإسلامية ونحوها.

سابعاً: أن إثبات بدايات الشهور القمرية فيما يتعلق بالعبادات مسألة شرعية فهي من مسؤولية علماء الشريعة المخولين من قبل جهات معتمدة أو ما في حكمها, وأن مسؤولية الفلكيين و الجهات الفلكية تقديم الحسابات الفلكية الدقيقة بشأن ولادة القمر وموقع الهلال, وتقدير ظروف الرؤية لأي موقع على سطح الكرة الأرضية، وغيرها من المعلومات التي تساعد الجهات الشرعية المختصة في إصدار القرار الدقيق الصحيح.

ثامناً: الشريعة لا تمنع من الاستفادة من العلوم الحديثة, كالحساب الفلكي بمستجداته، وتقنيات الرصد المتقدمة، ونحوها، في مصالح الناس ومعاملاتهم, فالإسلام لا يتعارض مع العلم وحقائقه.

تاسعاً: إذا ثبت دخول الشهر من جهة شرعية واعتمده ولي الأمر في الدولة الإسلامية فلا يجوز الخوض أو التشكيك فيه بعد صدوره, لأنه من المسائل الاجتهادية التي يرفع فيها الخلاف بحكم الحاكم.

عاشراً: حث الحكـومـات الإسـلاميـة على الاهتمام بوسائل الرؤية وتخصيص هيئات للترائي.
وفي هذا الصدد يشيد المؤتمر بجهود بعض الدول الإسلامية في مجال الرصد وإنشاء المراصد الفلكية, وفي مقدمتها جهود المملكة العربية السعودية ممثلة في مدينة الملك عبد العزيز للعلوم والتقنية في هذه المضمار.

حادي عشر: يوصي المؤتمر رابطة العالم الإسلامي بتكوين هيئة علمية من علماء الشريعة, وعلماء الفلك المتخصصين للنظر في جميع البحوث والدراسات في كلا المجالين؛ والتي قدمت في اللقاءات والندوات والمؤتمرات التي انعقدت لبحث هذا الشأن, وما صدر عن المجامع الفقهية وهيئات كبار العلماء ومجامع البحوث الإسلامية.
وتحرص على الوصول إلى اتفاق في توحيد بدايات الشهور القمرية, واعتماد مكة المكرمة مركزاً للرصد الفلكي وإصدار تقويم موحد للتاريخ الهجري وأن تنسق الرابطة مع جهات الاختصاص الشرعية والفلكية في العالم الإسلامي, ويكون مقر هذه الهيئة رابطة العالم الإسلامي في مكة المكرمة قلب الإسلام النابض بالخير والبركة.
وتكون الهيئة من مجامع الفقه في الدول الإسلامية وأجهزة الفتوى فيها؛ أو من يرشحونهم من أهل الاختصاص في مجالات العلم الشرعي وعلوم الفلك, ومن ثم يعرض ما تتوصل إليه وما صدر عن هذا المؤتمر على المجمع الفقهي في الرابطة.

وصلى الله وسلم على نبينا محمد وعلى آله وصحبه أجمعين...

SUMBER: http://www.themwl.org/News/default.aspx?ct=1&cid=4&nid=1177&l=AR

CARA MEREVISI DAN MENGUPGRADE PROGRAM “LAYANAN HISAB WAKTU SHOLAT VERSI 2.01”

CARA MEREVISI DAN MENGUPGRADE PROGRAM “LAYANAN HISAB WAKTU SHOLAT  VERSI 2.01”

sebelumnya anda harus baca postingan sebelumnya di
http://liekwasil.blogspot.com/2012/02/aplikasi-hisab-awal-waktu-sholat-form.html
Langkah demi langkahPersiapan

1. bismillaahirrohmaanirrohiim
2. Downloadlah file upgrade yang telah penyusun sediakan kemudian bukalah dengan “notepad” atau sejenisnya. Link download ada di bawah.
3. Bukalah program hisab  tersebut kemudian save as dengan nama baru.terserah anda
4. Rename sheet “BELUM DIGUNAKAN” menjadi “DAFTAR KOTA” kemudian save.
5.        gambar 1
6.  Membuka VBEditor dengan menekan Alt +F11, maka akan terbuka , kemudian carilah “Userform1” kemudian  diklik kanan pilih view object. Maka akan tampak seperti berikut :
7. gambar2
8.  Klik textbox untuk mengisi nama kota kemudian hapuslah:
9. gambar3
10. 
    
11. gambar4
12. klik salah satu combobox untuk dikopi, misalnya combobox yang untuk mengisi keterangan “selatan atau utara” yang berada di bawah textbox yang dihapus tadi”
13. gambar5
14. Kemudian klik kanan untuk meng-copy dan pasta”
15. Geserlah ke tempat yang kosong tadi dan diatur panjangnya seperti dibawah ini.
16. gambar 6
17. 
    
18. gambar7
19. Kemudian lihatlah bagian kolom properties, jika belum muncul klik kanan  combobox tersebut kemudian pilih proprtis, maka akan tampak seperti berikut:
20. 
21. Gantilah namanya “combobox1” diganti dengan “CBTAHUN”
22. Jika sudah benar kemudian save dulu lagi.

1. Mengganti kode programnya
2. Carilah userform1 lagi klik kanan pilih view code
3. Bloklahlah kode tersebut semuanya (Ctrl+A) klik kanan pilih delete
4. Copilah kode program yang telah dibuka dengan notepad tadi kemudian dipastekan ke tempat yang baru dihapus tadi. Jangan lupa di save. Sampai tahap ini anda telah selesai mengupgrade program ini.
5. Tutuplah program tersebut  kemudian buka kembalilah.

Jika anda benar dalam mengerjakan langkah- demi langkah tadi maka anda akan mendapatkan beberapa hal baru, isian nama kota sekarang berupa combobox dan setiap kolom isian dan tombol akan muncul “tooltipnya”Cobalah kembali untuk menghitung, masukkan data –data nama kota dan sebagainya kemudian tekan tombol “YA”.Kemudian tekan tombol “SELESAI” dan lihatlah hasilnya.Pindahlah ke tab sheet “DAFTAR KOTA “ yang anda buat tadi , kalau tadi anda memilih memasukkan dalam daftar maka kota yang anda masukkan tadi akan tersimpan, di sheet “DAFTAR KOTA” tersebut, dengan format sebagai berikut :kolom A nomor urutkolom C nama kota kolom D derajat lintangkolom E menit lintangkolom F sekon lintangkolom G utara atau selatankolom H derajat bujurkolom I menit bujurkolom J sekon bujurkolom K barat atau timurkolom L ketinggian tempatkolom M time zone. maka setiap anda memasukkan sebuah nama kota yang baru, anda akan ditawari untuk menyimpannya.Anda pun bisa mengedit daftar kota ini secara manual  mengimpor dari data lain jika anda punya dengan menyesuaikan kolom-kolom tersebut dengan isinya.Kemudian save dan tutup kembali aplikasi ini kemudian buka kembali. Maka daftar kota tadi sudah terintegrasi dalam program, dan sudah muncul dalam pilihan isian nama kota.AlhamdulillaahSelamat mencoba dan semoga berhasil dan bermanfaat

atau silakan download yang sudah jadi di :

http://www.ziddu.com/download/18668538/ASH_SHOLAH_updated.zip.html

APLIKASI HISAB AWAL WAKTU SHOLAT ( FORM VBA MS EXCEL)

Bismillahirrohmaanirrohiiim
Berangkat dari niat memenuhi keinginan salah seorang sahabat pecinta falak yang beberapa waktu lalu bertanya kepada penulis tentang rumus perhitungan waktu sholat dengan bahasa pemrograman Visual Basic for Application (VBA)nya Ms Excel, alhamdulillah atas kemudahan yang dilimpahkan Alloh, penulis menyusun program /aplikasi sederhana dengan VBA Excel tersebut. Seluruh rumus full penyusun tulis dalam  kode program VBA, cell semata-mata hanya untuk mendisplay hasil akhir yang berupa jadwal waktu sholat. Secara garis besar program ini sama dengan program serupa yang pernah penulis buat dan dan bagikan lewat email,  Cuma bedanya kalu yang dahulu formulanya langsung ditulis pada cell Ms excel, maka kali ini menggunakan form isian tampilannya lebih menarik dan professional. Pemakai akan diminta untuk mengisikan data lokasi yang akan dihitung, begitu juga tanggal, bulan tahun dan beberapa data lain yang diperlukan untuk pembuatan jadwal waktu sholat.
Jika anda sering membuat jadwal sholat untuk untuk bulan Romadlon maupun untuk yang lain maka aplikasi ini menyediakan fitur-fitur yang sangat cocok anda.
Pertama kali dijalankan aplikasi ini menampilkan halaman opening, setelah loading akan tampak tampak form isian sebagai berikut :

gambar 1


Secara detai bagian-bagiannya adalah sebagai berikut :
Bagian isian nama kota dan data lintang bujurnya

gambar 2


Nama kota isilah yang benar
Lintang terdiri dejarat, menit , sekon dan keterangan utara maupun selatan.
Lintang hanya bisa diisi dengan 0 -90.
Menit dan sekon hanya bisa diisi dengan  0 – 59
Kemudian pilihan utara/selatan sudah tersedia

Bujur hanya bisa diisi dengan 0 -180
Menit dan sekon hanya bisa diisi dengan  0 – 59
Kemudian pilihan timur/barat sudah tersedia

Bagian isian ketinggian tempat dari permukaan laut:

gambar 3

Jika ingin mengabaikan isilah dengan 0 (nol), jika memang   anda mendapatkan data tersebut isilah sesuai data yang anda punya.

Bagian isian zona waktu:

gambar 4

Zona waktu isilah sesuai pilihan yang tersedia.





Bagian isian tahun, bulan, tanggal dan M / SM

gambar 5

Isilah yang sesuai.

Bagian isian koreksi hari :

gambar 6

Kadang hisab hijriyah urfi kadang berselisih sehari dengan yang berlaku, baik mendahului ataupun terlambat, maka kolom ini untuk menyesuaikan. Tersedia pilihan  -1, 0 dan 1.

Bagian isian interval dan jumlah baris.

gambar 7


Bagian ini untuk mengatur jumlah baris yang akan dibuat, isilah sesuai kebutuhan anda.

Bagian isian jenis jam

gambar 8

Tersedia pilihan jam menengah (seperti WIB) dan jam istiwak setempat.
Bagian tombol-tombol

gambar 9

“YA” untuk mengekskusi
“HAPUS” untuk menghapus data isian mapun yang didisplay di cells.
“EDIT” untuk mengedit beberapa criteria.
“SELESAI” untuk menutup apllikasi.

Bagian fitur tambahan
Jika tombol “EDIT” ditekan maka akan muncul ringkasan criteria dan pilihan sebagai berikut :

gambar 10

Jika pilih “NO” maka akan menutup, jika pilih “YES” maka akan terbuka form isian sekunder sebagai berikut :


gammbar 11

Ada beberapa pilihan yang bisa anda isi untuk diterapkan

Sebagaimana diketahui bahwa perhitungan awal waktu sholat adalah berdasar ketinggian matahari saat itu, sehingga dalam keadaan tertentu syarat ketinggian tersebut tidak terpenuhi, seperti jika yang dimasukkan adalah data lintang untuk daerah-daerah yang mendekati kutub, misalnya kita masukkan data lintang 65 derajat sampai 90 . maka dalam kasus demikian aplikasi ini akan memberikan peringatan seperti berikut :

gambar 12

Kemudian akan ditawarkan pilihan untuk menyesuaikan penyusunan jadwal waktu sholat kota tersebut dengan daerah lain. Jika dipilih “YES” maka akan muncul form isian sekunder lainnya sebagai berikut :

gambar 13

Ada dua pilihan , akan disesuaikan dengan daerah lain dengan berdasarkan nilai lintang secara langsung atau berdasarkan panjang siang/malam . munculnya peringatan tersebut bisa dinonaktifkan pada tombol “EDIT”

Sebagai hasil akhir adalah sebuah jadwal waktu sholat yang sudah dilengkapai dengan informasi arah qiblat maupun jam terjadinya baying-bayang qiblat. Yang bisa dilihat di sheet “JADWAL WAKTU SHOLAT” tampak seperti ini :

gambar 14

Selanjutnya anda bisa mencetaknya seperti biasa.

Demikianlah secara singkat pemakaian apliikasi ini.
Aplikasi ini bebas anda simpan, pakai, maupun  sebarluaskan. kepada para sesepuh dan pakkar mohon ditashih.

 Bagi yang ingin mempelajari, mengembangkan atau sekedar mengambil idenya silakan lihat kodenya, aplikasi ini tidak penyusun proteksi.Namun penyusun mohon maaf jika kodenya mungkin masih sulit dibaca karena aplikasi ini dirancang sambil ditulis dan ditulis sambil dirancang,  masih kurang rapi dan penyusun belum sempat merapikannya. salah satu kekurangan aplikasi ini  adalah penyusun belum sempat mengintegrasikan dengan daftar nama kota, penyusun belum sempat membuatnya. mungkin  di antara pembaca ada yang sudah punya daftar kota lengkap dengan data lintang bujur dan ketinggian, dalam format Ms Excel juga  yang boleh penyussun kopi untuk diintegrasikan dengan aplikasi ini, tentu penyusun akan senang dan berterimakasih sekali.

Untuk perhitungan data mataharinya penyusun mengadopsi algorithma yanga terdapat di

http://stjarnhimlen.se/comp/tutorial.html

koordinat ka’bah 21° 25’ 14” LU  - 39°49’ 41” BT
tinggi isya’ -18°
tinggi subuh -20°
imsak 10 m3nit dari subuh
ihtiyath 2 menit pembulatan
criteria di ataslah yang berlaku setiap kali anda membuka aplikasi ini, setiap perubahan akan terhapus ketika aplikasi ini ditutup.
sedang untuk kode-kode yang lain penyusun ambil dari berbagai sumber yang tersedia di internet.

Penyusun sangat berterimakasih jika anda berkenan memberikan komentar, ide maupun  saran-saran untuk penyempurnaan di waktu mendatang.
penyusun mohon doa restunya dan semoga bermanfaat.

selanjutnya silakan download di
http://www.ziddu.com/download/18668538/ASH_SHOLAH_updated.zip.html





Yogyakarta, 9 Pebruari 2012

Penyusun

albiehamsil@yahoo.com

TIP RINGAN MENCARI HALAMAN JUZ DALAM MUSHAF ALQUR 'AN

Tips ringan mencari halam awal juz.dengan langkah "SATU DUA TIGA"
1. bilangan juz dikurangi dengan 1
2. hasilnya dikalikan dengan 2
3. tambahkan angka 3 dibelakangnya
contoh :
Mencari halaman awal juz 18 langkahnya sbagai berikut :
18 -1 = 17
17 x 2 = 34
34 ditambahkan angka 3 dibelakangnya menjadi 343
maka halaman awal juz 18 adalah 343.

Tips ini berlaku khusus bagi mushaf yang tiap halamnnya terdiri dari 15 baris saja
Selamat mencoba.
Semoga bermanfaat

FORM VBA EXCEL UNTUK PERHITUNGAN ARAH QIBLAT

Bukalah Ms Excel dan bukalah editor VBA nya, kemudian buatlah form seperti tampak berikut ini :

 kembalilah ke MS Excel

Rename  sheet 1 menjadi  AWWAL dan sheet2 menjadi TSANI

kode form di atas adalah sebagai berikut

Private Sub CMDHT_Click()

Dim iRow As Long

Dim ws As Worksheet

Set ws = Worksheets("TSANI")

'menemukan baris kosong pada database

iRow = ws.Cells(Rows.Count, 1) _

  .End(xlUp).Offset(1, 0).Row

'check untuk sebuah kota

If Trim(Me.TKOTA.Value) = "" Then

  Me.TKOTA.SetFocus

  MsgBox "NAMA KOTANYA GUS"

  Exit Sub

End If

KOTA = Me.TKOTA.Value

'memasukkan dalam variabel

DLIN = Me.TDL.Value

MLIN = Me.TML.Value

SLIN = Me.TSL.Value

'mengubah menjadi desimal

lintang = Abs(DLIN) + MLIN / 60 + SLIN / 3600

If DLIN < 0 Then

lintang = lintang * -1

lintang = lintang

End If

'mengubah menjadi DMS

LINTANGDMS = DMS(lintang)

'memasukkan dalam variabel

DBU = Me.TDB.Value

MBU = Me.TMB.Value

SBU = Me.TSB.Value

'mengubah menjadi desimal

bujur = Abs(DBU) + MBU / 60 + SBU / 3600

If DBU < 0 Then

bujur = bujur * -1

bujur = bujur

End If

'mengubah menjadi DMS

BUJURDMS = DMS(bujur)

'perhitungan arah qiblat

Pi = Application.Pi()

r = 180 / Pi

lintangmakkah = 21 + 25 / 60 + 14 / 3600

bujurmakkah = 39 + 49 / 60 + 41 / 3600

'PENGUJUIAN POSISI I

If bujur = bujurmakkah Then

        Select Case lintang

        Case Is = lintangmakkah

        QIBLATK = "KA'BAH SENDIRI"

        ket1 = ""

        ket2 = ""

       

        Case Is > lintangmakkah

        QIBLATK = "SELATAN"

        ket1 = ""

        ket2 = ""

        Case Else

        QIBLATK = "UTARA"

        ket1 = ""

        ket2 = ""

        End Select

       

   

ElseIf bujur = bujurmakkah + 180 - 360 Then

        Select Case lintang

        Case Is = -lintangmakkah

        QIBLATK = "SEGALA ARAH"

        ket1 = ""

        ket2 = ""

        Case Is < -lintangmakkah

        QIBLATK = "SELATAN"

        ket1 = ""

        ket2 = ""

        Case Else

        QIBLATK = "UTARA"

        ket1 = ""

        ket2 = ""

        End Select

Else

selisihbujur = bujurmakkah - bujur

jarakr = Application.Acos(Cos(lintang / r) * Cos(lintangmakkah / r) * Cos(selisihbujur / r) + Sin(lintang / r) * Sin(lintangmakkah / r))

jarak = jarakr * r

qiblatr = Application.Asin((Sin(lintangmakkah / r) - Cos(jarakr) * Sin(lintang / r)) / (Cos(lintang / r) * Sin(jarakr)))

QIBLATDES = qiblatr * r

QIBLATK = DMS(QIBLATDES)

End If

'PENGUJIAN POSISI II

'TEPAT ARAH BARAT/TIMUR

BTr = Atn(Tan(lintangmakkah / r) / Cos(selisihbujur / r))

BT = BTr * r

If bujur > bujurmakkah Then

ket1 = "BARAT - "

Else

ket1 = "TIMUR - "

End If

If lintang > BT Then

ket2 = "SELATAN"

Else

ket2 = "UTARA"

End If

URUT = iRow - 2

'copy data ke database

ws.Cells(iRow, 1).Value = URUT

ws.Cells(iRow, 2).Value = KOTA

ws.Cells(iRow, 3).Value = LINTANGDMS

ws.Cells(iRow, 4).Value = BUJURDMS

ws.Cells(iRow, 5).Value = QIBLATK & " " & ket1 & ket2

MsgBox "QIBLAT " & KOTA & " ADALAH :" & QIBLATK & " " & ket1 & ket2

Sheets("TSANI").Select

'clear data

Me.TKOTA.Value = ""

Me.TDL.Value = ""

Me.TML.Value = ""

Me.TSL.Value = ""

Me.TDB.Value = ""

Me.TMB.Value = ""

Me.TSB.Value = ""

Me.TKOTA.SetFocus

End Sub

Private Sub CMDTTP_Click()

   Sheets("AWWAL").Select

   MsgBox " Alhamdulillah"

     Unload Me

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _

  CloseMode As Integer)

  If CloseMode = vbFormControlMenu Then

    Cancel = True

    MsgBox "MAKE TOMBOL AJA YA GUS!"

  End If

End Sub

'fungsi dms

Function DMS(y)

x = Abs(y)

derajat = Int(x)

If y < 0 Then

derajat = derajat * -1

derajat = derajat

End If

menit = Int(60 * x) Mod 60

sekonasal = 3600 * x

sekonutuh = Int(sekonasal)

sekonpecah = Round((sekonasal - sekonutuh), 2)

sekon = sekonutuh Mod 60 + sekonpecah

DMS = derajat & Chr(176) & " " & menit & Chr(39) & " " & sekon & Chr(34)

End Function

kemudian kembali ke MS Excel buatlah tombol commaand Button untuk mrmunculkan form di atas dengan kode sebagai berikut :

Private Sub CMDMULAI_Click()
MsgBox "bismillaahirrohmanirrohiim"
UserForm1.Show
End Sub

untuk file nya silakan download di :

http://www.4shared.com/rar/BVDU_aCq/QIBLATFORM.html

FUNGSI VBA EXCEL UNTUK KONVERSI TANGGAL

Berikut beberapa kode vba Excel untuk konversi tanggal Miladiyah ke Hijriyah , Jawi Islam ataupun sebaliknya.

Fungsi konversi tanggal miladiyah ke Julian Day

Function milaju(x, y, z)

Dim tahun, bul1, bul, tgl

Dim satu, tah, jjd, gjd, jul

If x = 0 Then MsgBox "Tidak ada Tahun Nol Gus "

If x < 0 Then

tahun = x + 1

Else

tahun = x

End If

bul1 = y

tgl = z

satu = Int((14 - bul1) / 12)

tah = tahun + 4800 - satu

bul = bul1 + 12 * satu - 3

jjd = tgl + Int((153 * bul + 2) / 5) + tah * 365 + Int(tah / 4) - 32083

gjd = tgl + Int((153 * bul + 2) / 5) + tah * 365 + Int(tah / 4) - Int(tah / 100) + Int(tah / 400) - 32045

If jjd > 2299159.5 Then

jul = gjd

Else

jul = jjd

End If

milaju = jul

End Function

Fungsi konversi tanggal Hijriyah urfi ke Julian Day

Function hijiju(x, y, z)

Dim tah, tahun, bul, tgl, hari

If x = 0 Then MsgBox "Tidak ada Tahun Nol Gus "

If x < 0 Then

tahun = x + 1

Else

tahun = x

End If

tah = tahun + 5498

bul = y

tgl = z

hari = Int((354 + 11 / 30) * tah - 353.85) + Int(29.5 * bul - 29) + tgl

hijiju = hari + 131

End Function

Fungsi konversi tanggal Jawi Islam ke Julian Day

Function jawijul(x, y, z)

Dim hari, jum, kor, t

If x >= 1627 And x <= 1674 Then

t = x + 5

hari = Int(t * 354.375 + 0.3) + Int(29.5 * y - 29) + z

kor = Int(t / 120)

jum = hari - kor + 1764877

Else

t = x + 53

hari = Int(t * 354.375 + 0.3) + Int(29.5 * y - 29) + z

kor = Int(t / 120)

jum = hari - kor + 1747867

End If

jawijul = jum

End Function

Fungsi konversi Julian Day ke tanggal Miladiyah

Function jumila(x)

Dim ctr0, ctr1, ctr2, ctr3, ctr4, ctr5, ctr6

Dim tanggal, bulan, tahun1, tahun, bln

Dim hari, pasaran, hr, ps

ctr0 = x

ctr1 = x + 32044

If ctr0 > 2299159.5 Then

ctr2 = Int((4 * ctr1 + 3) / 146097)

Else

ctr2 = 0

End If

If ctr0 > 2299159.5 Then

ctr3 = ctr1 - Int((ctr2 * 146097) / 4)

Else

ctr3 = ctr0 + 32082

End If

ctr4 = Int((4 * ctr3 + 3) / 1461)

ctr5 = ctr3 - Int((1461 * ctr4) / 4)

ctr6 = Int((5 * ctr5 + 2) / 153)

tanggal = ctr5 - Int((153 * ctr6 + 2) / 5) + 1

bulan = ctr6 + 3 - 12 * Int(ctr6 / 10)

tahun1 = ctr2 * 100 + ctr4 - 4800 + Int(ctr6 / 10)

If tahun1 < 1 Then

tahun = tahun1 - 1

Else

tahun = tahun1

End If

Select Case bulan

Case Is = 1

bln = "Januari"

Case Is = 2

bln = "Pebruari"

Case Is = 3

bln = "Maret"

Case Is = 4

bln = "April"

Case Is = 5

bln = "Mei"

Case Is = 6

bln = "Juni"

Case Is = 7

bln = "Juli"

Case Is = 8

bln = "Agustus"

Case Is = 9

bln = "September"

Case Is = 10

bln = "Oktober"

Case Is = 11

bln = "Nopember"

Case Is = 12

bln = "Desember"

End Select

hr = (ctr0 + 2) Mod 7

ps = (ctr0 + 1) Mod 5

Select Case hr

Case Is = 1

hari = "Ahad"

Case Is = 2

hari = "Senin"

Case Is = 3

hari = "Selasa"

Case Is = 4

hari = "Rabu"

Case Is = 5

hari = "Kamis"

Case Is = 6

hari = "Jum'at"

Case Is = 0

hari = "Sabtu"

End Select

Select Case ps

Case Is = 1

pasaran = "Legi"

Case Is = 2

pasaran = "Pahing"

Case Is = 3

pasaran = "Pon"

Case Is = 4

pasaran = "Wage"

Case Is = 0

pasaran = "Kliwon"

End Select

jumila = hari & " " & pasaran & " " & tanggal & " " & bln & " " & tahun

End Function

Fungsi konversi Julian Day ke tanggal Hijri Urfi

Function juhiji(x)

Dim tahun, sisa, s1, bulan, tanggal, bln, hr, ps, hari7, hari, pasaran

hari = x - 131

tahun = Int(hari * 3 / 1063.1) + 1

s1 = Int(tahun * 1063.1 / 3 - 353.85)

sisa = hari - s1

If sisa = 0 Then

tahun = Int(hari * 3 / 1063.1)

s1 = Int(tahun * 1063.1 / 3 - 353.85)

sisa = hari - s1

Else

tahun = tahun

sisa = sisa

End If

tahun = tahun

sisa = sisa

bulan = Int(sisa / 29.5 + 0.97)

If bulan > 12 Then bulan = 12

tanggal = sisa - Int(29.5 * bulan - 29)

tahun = tahun - 5498

If tahun < 1 Then

tahun = tahun - 1

Else

tahun = tahun

End If

Select Case bulan

Case Is = 1

bln = "Muharrom"

Case Is = 2

bln = "Shofar"

Case Is = 3

bln = "Robi'ul Awwal"

Case Is = 4

bln = "Robi'uts Tsani"

Case Is = 5

bln = "Jumadil Ula"

Case Is = 6

bln = "Jumadits Tsani"

Case Is = 7

bln = "Rojab"

Case Is = 8

bln = "Sya'ban"

Case Is = 9

bln = "Romadlon"

Case Is = 10

bln = "Syawwal"

Case Is = 11

bln = "Dzul Qo'dah"

Case Is = 12

bln = "Dzul Hijjah"

End Select

hr = (x + 2) Mod 7

ps = (x + 1) Mod 5

Select Case hr

Case Is = 1

hari7 = "Ahad"

Case Is = 2

hari7 = "Senin"

Case Is = 3

hari7 = "Selasa"

Case Is = 4

hari7 = "Rabu"

Case Is = 5

hari7 = "Kamis"

Case Is = 6

hari7 = "Jum'at"

Case Is = 0

hari7 = "Sabtu"

End Select

Select Case ps

Case Is = 1

pasaran = "Legi"

Case Is = 2

pasaran = "Pahing"

Case Is = 3

pasaran = "Pon"

Case Is = 4

pasaran = "Wage"

Case Is = 0

pasaran = "Kliwon"

End Select

juhiji = hari7 & " " & pasaran & " " & tanggal & " " & bln & " " & tahun

End Function

Fungsi konversi Julian Day ke tanggal Jawi Islam

Function juljawi(y)

Dim t, h, s, x, t1, h1, tahun, bulan, bln, tanggal

Dim sisa, hri, hari, hari7, ps, pasaran

Dim huruf, huruf1, huruf2, huruf3, huruf4, huruf5, huruf6

If y >= 2343204 And y <= 2360213 Then

x = y - 1747867

x = x - 7 * 2835

h = x + Int(x / 42524)

t = Int((354 + h) / 354.375) - 1

h1 = Int((t) * 354.375 + 0.3)

tahun = t + 3

sisa = h - h1

huruf2 = Int((tahun + 55) / 120) + 17

Else

x = y - 1747867

h = x + Int(x / 42524)

t = Int((354 + h) / 354.375) - 1

h1 = Int((t) * 354.375 + 0.3)

tahun = t - 53

sisa = h - h1

huruf2 = Int((tahun + 53) / 120) + 18

End If

If tahun < 1 Then

tahun = tahun - 1

Else

tahun = tahun

End If

bulan = Int(sisa / 29.5 + 0.97)

If bulan > 12 Then bulan = 12

tanggal = sisa - Int(29.5 * bulan - 29)

Select Case bulan

Case Is = 1

bln = "Sura"

Case Is = 2

bln = "Sapar"

Case Is = 3

bln = "Mulud"

Case Is = 4

bln = "Bakda Mulud"

Case Is = 5

bln = "Jumadilawal"

Case Is = 6

bln = "Jumadilakir"

Case Is = 7

bln = "Rejeb"

Case Is = 8

bln = "Ruwah"

Case Is = 9

bln = "Pasa"

Case Is = 10

bln = "Syawal"

Case Is = 11

bln = "Dulkangidah"

Case Is = 12

bln = "Besar"

End Select

hri = (x + 4) Mod 7

ps = (x + 3) Mod 5

Select Case hri

Case Is = 1

hari7 = "Ahad"

Case Is = 2

hari7 = "Senen"

Case Is = 3

hari7 = "Selasa"

Case Is = 4

hari7 = "Rebo"

Case Is = 5

hari7 = "Kemis"

Case Is = 6

hari7 = "Jumungah"

Case Is = 0

hari7 = "Setu"

End Select

Select Case ps

Case Is = 1

pasaran = "Legi"

Case Is = 2

pasaran = "Pahing"

Case Is = 3

pasaran = "Pon"

Case Is = 4

pasaran = "Wage"

Case Is = 0

pasaran = "Kliwon"

End Select

huruf = tahun Mod 8

Select Case huruf

Case Is = 1

huruf1 = "Wawu"

Case Is = 2

huruf1 = "Jim Akir"

Case Is = 3

huruf1 = "Alip"

Case Is = 4

huruf1 = "Ehe"

Case Is = 5

huruf1 = "Jim Awal"

Case Is = 6

huruf1 = "Ze"

Case Is = 7

huruf1 = "Dal"

Case Is = 0

huruf1 = "Be"

End Select

huruf3 = huruf2 Mod 7

huruf4 = huruf2 Mod 5

Select Case huruf3

Case Is = 1

huruf5 = "Angad"

Case Is = 2

huruf5 = "Atu"

Case Is = 3

huruf5 = "Angah"

Case Is = 4

huruf5 = "Amis"

Case Is = 5

huruf5 = "Abo"

Case Is = 6

huruf5 = "Asa"

Case Is = 0

huruf5 = "Anen"

End Select

Select Case huruf4

Case Is = 1

huruf6 = "gi"

Case Is = 2

huruf6 = "won"

Case Is = 3

huruf6 = "ge"

Case Is = 4

huruf6 = "pon"

Case Is = 0

huruf6 = "ing:"

End Select

juljawi = hari7 & " " & pasaran & " " & tanggal & " " & bln & " " & tahun & " " & huruf1 & " " & huruf5 & huruf6

End Function

Contoh file silakan download di :

http://liekwasil.mywapblog.com/files/konversi.rar

JALAN KERBAU

Alkisah ada seorang petani.
Hidup di desa pinngir hutan lereng sebuah gunung.
Pak tani mempunyai seekor anak kerbau.
Tiap hari digiring ke sungai untuk dimandikan.

Awalnya yang dilewati adalah semak-semak.
Rumput-rumput terinjak kaki sang kerbau.
kemudian jadi jalan setapak.

Jalan itu makin lebar.
Tetangga pak tani ikut melewatinya.

Beberapa tahun kemudian
Warga desa bekerja giat.
Desanya makin maju.

Datang pemodal dari kota.
Dibawa oleh Pak Kepala Desa.
Desa itu dibangun, jalan pinggir desa juga dibangun.
Jalan itu sudah bukan jalan setapak lagi.
Di atas kalipun sudah ada jembatan.
Makin banyak orang yang lewat.

Tetangga Pak tani pergi ke kantor lewat jalan itu.
Anak-anak sekolah lewat jalan itu.
Pedagang keliling, tukan rentenir juga lewat jalan itu,
Tahun kemarin bapak bupati juga lewat jalan itu.
Semua orang lewat jalan itu

Kerbau pak tani sudah jarang lewat jalan itu.
Kerbau pak tani makin tua.
Sudah tidak membajak sawah lagi.
Kerbau disembelih. Untuk upacara syukuran desa.
Sekaligus meresmikan nama jalan itu.
“Jalan Kerbau” nama jalan itu, untuk mengenang kerbaunya.
Itu usul pak tani sesepuh desa itu yang paling sepuh.
Pak lurah setuju, tetua-tetua desa setuju. Pak RT setuju.
Pak Camat setuju, pak Bupatipun setuju.
Seluruh warga ikut bangga.
Jalan itu makin terkenal hingga luar desa bahkan luar kota.

Ekonomi warga makin maju.
Itulah berkah jalan itu.
Seluruh warga percaya akan hal itu.
Warga desa akhirnya mengkeramatkan jalan itu.
Pak RT mengkeramatkan jaln itu.
Tetua desa, Pak lurah Pak Camat Pak bupati mengkeramatkan jalan itu.

Tiap tahun didakan uapcara sesaji
Warga desa membuat sesaji.
Membawa dupa dan bunga.
Pak RT membawa sesaji
Pak Lurah membawa sesaji
Pak camat membawa sesaji
Pak Bupati membawa sesaji
Para pelajar membawa sesaji
Mahasiswa membawa sesaji
Tokoh agama membawa sesaji
Para pengusaha membawa sesaji
Semua orang membawa sesaji.
Pak Tani memimpin upacara
Dia tidak membawa sesaji.
Pak tani bercerita pada cucunya.
Menceritakan jalan kerbaunya.
“Semua orang ternyata dungu.
Mereka tak pernah membuat jalan sendiri.
Walau kini kerbau kita sudah pernah lewat.
Tetap saja jalan itu itu jalan kerbau”
 Yogyakarta, 12 November 2010.