Re: [Programmer-VB] JavaScript 2 VB6

[Armansyah]

 Assalamu'alaykum Wr. Wb.,   Sehubungan dengan pertanyaan saya sebelumnya mengenai fungsi round ... berikut coba saya bagi sebuah fungsi yang alhamdulillah berhasil saya dapatkan ...   Public Function Round03(dblNumber As Double, Optional numDecimalPlaces As Integer) As Double   Dim dblFactor As Double   dblFactor = 10 ^ numDecimalPlaces   Round03 = Int(CDbl(dblNumber * dblFactor + 0.5)) / dblFactor End Function   Source : http://www.xbeat.net/vbspeed/c_Round.htm   Fungsi ini sifatnya sama seperti fungsi Round dalam Excel, misalnya kita biasa di excel melakukan perhitungan :   =ROUND(160788;-2) dan outputnya akan menjadi 160800 ;   kasus ini saya temukan saat akan melakukan perhitungan gaji karyawan, misalnya :   Gapok = 1496700  Tj. Keluarga = 12% (K2)   Besar tunjangan keluarga dalam nominalkan seharusnya = 179604 (gapok * tj. keluarga atau 1496700 * 0,12) ; sekarang kita akan membuat nilai 179604 tadi menjadi 179600.   Di excel dan Clipper kasusnya mudah, kita tinggal buat x = round(179604, -2) maka jadilah hasilnya 179600, tetapi akan jadi lain bila kita menggunakan fungsi round di VB, untuk itu setelah "berbulan-bulan mengembara bersama mr. googling" maka saya akhirnya menemukan fungsi tersebut diatas, dengan sintaksis pada formnya :   x = Round03(179604, -2)  'just like an excel   Saya sudah coba dengan beberapa angka lainnya dan alhamdulillah tidak ada perbedaan ... semoga fungsi ini bermanfaat, terutama buat rekan-rekan yang sedang membuat aplikasi penggajian dan masih newbie banget seperti saya ...hehehe...   Terimakasih untuk Mas Pur dan Mas Vavai serta beberapa sahabat lainnya atas tanggapan anda beberapa waktu yang lalu .... jangan bosan memberikan bimbingannya ...   Wassalam.,   Armansyah http://armansyah.swaramuslim.net   ----- Original Message ----- From: Purwedi Kurniawan To: Programmer-VB@yahoogroups.com Sent: Tuesday, May 09, 2006 9:01 AM Subject: Re: [Programmer-VB] _javascript_ 2 VB6 pake aja fungsi round vb, misal:   Round(123123.123123, 2)   hasilnya adalah 123123.12   best regards [wwn]   On 5/9/06, Armansyah <[EMAIL PROTECTED]> wrote: Assalamu'alaykum Wr. Wb.,   Saya minta tolong dong bagi rekan-rekan disini yang bisa menterjemahkan fungsi _javascript_ dibawah ini menjadi fungsi Visual Basic 6 .... sebelumnya terimakasih ya atas bantuannya     function round(number,X) { // rounds number to X decimal places, defaults to 2 X = (!X ? 2 : X); return Math.round(number*Math.pow(10,X))/Math.pow(10,X); } // End -->     Wassalam,   Armansyah http://armansyah.swaramuslim.net Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.