Mencari Weton dengan Visual Basic

Bagi orang jawa kuno bahkan mungkin juga generasi sekarang Weton adalah hal yang terpenting dalam hidup manusia sebab dengan lelaku berdasarkan weton bisa selamat, mulai dari hal yang paling sederhana dalam kehidupan sehari-hari bahkan sampai perkawinan dan juga kematianpun orang jawa diramal berdasar weton.

Ketika saya pertama kali mencoba membuat code program dengan logika yang kira-kira lho kok pas .. Saya sangat kagum pada leluhur kita, akan kehabatan penanggalan jawa karena kenapa weton itu jumlahnya ada 5 kok enggak 6 atau yang lain. Kalau saja weton itu tidak lima sudah bisa dipastikan tidak bisa dihitung dengan code program. Saya sendiri lupa weton pertama itu apa ? Namun yang jelas alur alogoritmanya sebagai berikut :

1. Buat Variabel berjenis String dengan nama AwalTahun kemudian isikan tanggal 1 bulan 1 tahun 0001.


2. Buat Variabel lagi berjenis Double berinama misalnya Hasil.


3. Variabel Hasil untuk menampung pengurangan AwalTahun dengan Tanggal Sekarang gunakan fungsi Datevalue untuk mengurangkan keduanya kemudian bagi dengan angka 5 (jumlah weton)


4. Yang luar biasa hasil pengurangan tidak lebih dari angka 4.

Padahal pada weton ada 5 nama namun angka terbesar 4 ini sama artinya ketika kita menentukan hari dengan bahasa Indonesia hari Minggu adalah 0 sama dengan weton 0 adalah weton Wage.

Dengan berbekal angka 4 kita bisa membuat logika bahwa :

Jika Hasil=0 maka Weton="Wage"

Jika Hasil=1 maka Weton="Kliwon"

Jika Hasil=2 maka Weton="Legi"

Jika Hasil=3 maka Weton="Pahing"

Jika Hasil=4 maka Weton="Pon"

Selamat Mencoba ...?