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

Fri, 27 Jan 2006 01:31:31 -0800

Ok, jadi memang problemnya ada di type data tsb. Apakah ngak ada patch-nya dari Microsoft ?

Btw thank’s untuk info-nya.

 

Oskar

 

From: [email protected] [mailto:[email protected]] On Behalf Of ipinz
Sent: Saturday, January 28, 2006 8:09 AM
To: [email protected]
Subject: Re: [Programmer-VB] 0 < 1 - 0.2 - 0.8

 

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

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



Bring words and photos together (easily) with
PhotoMail - it's free and works with Yahoo! Mail.

Kirim email ke