Re: [Programmer-VB] JavaScript 2 VB6

Wed, 10 May 2006 02:03:11 -0700

Maksudnya begini Om
 
di java perintah
 
X = (!X ? 2 : X);
 
itu maksudnya
 
tanda ! = negasi/not
jika negasi X / X tidak ada nilainya maka nilai X = 2.
tapi bila X ada nilai nya maka X = X.
 
jadi kalo buat VB nya kira2
 
Public Function fncRound(angka as decimal , x as integer) as decimal
       if x = isnull then
             x = 2
       else
           x = x
        end if
        fncRound = ROUND(angka,x)
End Function
 
jadi misal ada angka 2356.2666
kalo nilai x = 3
maka nilai balikannya 2356.267
 
tapi kalo nilai x = 2
maka nilai balikannya 2356.27
 
Kira-kira begitu Bos..... mudah2an nga salah ya..... hehehehe
Sory ya kalo penulisan coding vb nya salah, soalnya udah lama nga pake vb lagi hehehe....
 
On 5/9/06, Armansyah <[EMAIL PROTECTED]> wrote:

Assalamu'alaykum Wr. Wb.,
 
Sebelumnya maaf jika posting ini diterima double ... hari ini saya kena bounching 2x
 
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
 
 

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.,
 


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





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



Kirim email ke