purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

Global difference.d = 0
 
Procedure CompareDoubles(A.d, B.d)
  condition = 0
  If (A < 0 And B >= 0) Or (A < 0 And B < 0)
    If A < 0 And B >= 0
      difference = Abs(A) + B
      ProcedureReturn #True
    ElseIf A < 0 And B < 0
      If Abs(A) > Abs(B)
        difference = Abs(A-B)
        ProcedureReturn #True
      EndIf
    EndIf
  ElseIf A > 0 And B > 0
    If B - A > 0
      difference = B-A
      ProcedureReturn #True
    EndIf
  EndIf
EndProcedure
 
If CompareDoubles(5.0002, 5.001)
  Debug "OK: A < B"
  Debug "difference: " + StrD(difference)
Else
  Debug "Fail: B > A"
EndIf