Author Topic: fungsi terbilang sampai PENTALIUN  (Read 313 times)

0 Members and 1 Guest are viewing this topic.

Offline anto2k

  • Junior Member
  • *
  • Posts: 116
    • ARYANTO 165
fungsi terbilang sampai PENTALIUN
« on: September 30, 2018, 07:11:43 PM »
para master sekalian adakah cara untuk mengubah fungsi berikut agar sampai
pada pengujian PENTALIUN karena overflow katanya....

Code: [Select]
FUNCTION Terbilang(tnNum)
* sumber: http://poejianto-malang.blogspot.com/2014/08/fungsi-terbilang-sampai-triliyunan.html
lcPokok = [Satu ,Dua ,Tiga ,Empat ,Lima ,Enam ,Tujuh ,;
Delapan ,Sembilan ,Sepuluh ,Sebelas ]
DO CASE
  CASE BETWEEN(tnNum, 0, 11)
    lcTerbilang = GETWORDNUM(lcPokok, tnNum ,",")
  CASE tnNum <= 20  && BETWEEN(tnNum, 12, 19)
    lcTerbilang = GETWORDNUM(lcPokok, (tnNum % 10) ,",") + "Belas"
  CASE tnNum < 100  && BETWEEN(tnNum, 20, 99)
    lcTerbilang = GETWORDNUM(lcPokok, INT(tnNum / 10) ,",") + "Puluh " +;
 GETWORDNUM(lcPokok, (tnNum % 10) ,",")
  CASE tnNum < 200  && BETWEEN(tnNum, 100, 199)
    lcTerbilang = "Seratus " + Terbilang(tnNum - 100)
  CASE tnNum < 1000  && BETWEEN(tnNum, 200, 999)
    lcTerbilang = Terbilang(INT(tnNum/100)) +"Ratus " + Terbilang(tnNum % 100)
  CASE tnNum < 2000  && BETWEEN(tnNum, 1000, 1999)
    lcTerbilang = "Seribu " + Terbilang(tnNum - 1000)
  CASE tnNum < 1000000 && BETWEEN(tnNum, 2000, 999999)
    lcTerbilang = Terbilang(INT(tnNum/1000)) +"Ribu " + Terbilang(tnNum % 1000)
  CASE tnNum < 1e9 && BETWEEN(tnNum, 1000000, 999999999)
    lcTerbilang = Terbilang(INT(tnNum/1000000)) +"Juta " + Terbilang(tnNum % 1000000)
  CASE tnNum < 1e12
    lcTerbilang = Terbilang(INT(tnNum/1e9)) +"Milyar " + Terbilang(tnNum % 1e9)
  CASE tnNum < 1e15
    lcTerbilang = Terbilang(INT(tnNum/1e12)) +"Triliun " + Terbilang(tnNum % 1e12)
  CASE tnNum < 1e18
    lcTerbilang = Terbilang(INT(tnNum/1e15)) +"Quadriliun " + Terbilang(tnNum % 1e15)
  CASE tnNum < 1e21
    lcTerbilang = Terbilang(INT(tnNum/1e18)) +"Pentaliun " + Terbilang(tnNum % 1e18)
ENDCASE
RETURN lcTerbilang

thank's atas tanggapannya....

Offline Pujianto

  • Junior Member
  • *
  • Posts: 309
Re: fungsi terbilang sampai PENTALIUN
« Reply #1 on: October 01, 2018, 09:51:19 AM »
Itu uang semua ya..
Seumur2 belum pernah tuh pegang..
Jangankan Milyaran, Ratusan Juta aja jarang2 pernah pegang..
Apalagi sampe Pentaliun..

 :tongue9: :tongue9: :tongue9:

Offline anto2k

  • Junior Member
  • *
  • Posts: 116
    • ARYANTO 165
Re: fungsi terbilang sampai PENTALIUN
« Reply #2 on: October 04, 2018, 08:42:13 PM »
Itu uang semua ya..
Seumur2 belum pernah tuh pegang..
Jangankan Milyaran, Ratusan Juta aja jarang2 pernah pegang..
Apalagi sampe Pentaliun..

 :tongue9: :tongue9: :tongue9:

wew, ini mas pujianto yang buat rumusnya kah? :)

Offline xWongso

  • Newbie
  • *
  • Posts: 25
Re: fungsi terbilang sampai PENTALIUN
« Reply #3 on: October 05, 2018, 10:01:44 PM »
Itu uang semua ya..
Seumur2 belum pernah tuh pegang..
Jangankan Milyaran, Ratusan Juta aja jarang2 pernah pegang..
Apalagi sampe Pentaliun..

 :tongue9: :tongue9: :tongue9:

wew, ini mas pujianto yang buat rumusnya kah? :)

Maaf Apakah ini anto yang pernah Kursus PAK MDP 1 Tahun di Palembang?
http://aryanto165.com/about/

Rgds
XWongso

Offline anto2k

  • Junior Member
  • *
  • Posts: 116
    • ARYANTO 165
Re: fungsi terbilang sampai PENTALIUN
« Reply #4 on: October 15, 2018, 08:54:11 AM »
Itu uang semua ya..
Seumur2 belum pernah tuh pegang..
Jangankan Milyaran, Ratusan Juta aja jarang2 pernah pegang..
Apalagi sampe Pentaliun..

 :tongue9: :tongue9: :tongue9:
yap.... sapa nich... aq punya photo angkatan kita sebelum makan nasi goreng di tangga mdp
wew, ini mas pujianto yang buat rumusnya kah? :)

Maaf Apakah ini anto yang pernah Kursus PAK MDP 1 Tahun di Palembang?
http://aryanto165.com/about/

Rgds
XWongso