Re: [Programmer-VB] 0 < 1 - 0.2 - 0.8

[ipinz]

tipe data double atau single ada bug seputar rounding bilangan sangat kecil selisihnya sehingga boolean jadi gagal solusinya di banding aja lewat fungsi semacam ini:   Private Sub Compare_Click() Dim dNum As Double Dim bool As Boolean Const BANDING = 0   dNum = 1 - 0.2 - 0.8 bool = AlmostEqual(BANDING, dNum) If bool Then MsgBox bool End Sub     Function AlmostEqual(x, y) As Boolean     AlmostEqual = (Abs(x - y) <= 0.0000000001) End Function   IpinZ ----- Original Message ----- From: Oskar Kwik To: Programmer-VB@yahoogroups.com Sent: Wednesday, January 25, 2006 8:12 PM Subject: [Programmer-VB] 0 < 1 - 0.2 - 0.8 Halo semuanya, Saya baru bergabung di programmer-VB. Mohon bantuan dan dukungan senior-senior disini. Kebetulan saya ada masalah dengan tipe data double. Mungkin rekan-rekan bisa membantu.   Pada immediate windows, jika saya lakukan perhitungan :   ? 0 = 1 – 0.2 – 0.8 Atau ? 0 = 1 – 0.3 – 0.7   Hasilnya adalah false. Bagaimana solusinya ?   Thank’s Oskar   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 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.