[RESOLVED] having trouble with data types

[flyhigh]

hey yall text13.text box shows 2.48037E-03 number ,is that a + number ,if it is it conflicts with this >>(s >= 0# And s <= 1# And t >= 0# And t <= 1#)
it shows true but it shouldnt work because it is greater than this>>s <= 1#
thanks

Public Function SegmentsIntersect(ByVal x1 As Single, ByVal y1 As Single, ByVal x2 As Single, ByVal y2 As Single, ByVal A1 As Single, ByVal B1 As Single, ByVal A2 As Single, ByVal B2 As Single) As Boolean
Dim dx As Single
Dim dy As Single
Dim da As Single
Dim db As Single
Dim t As Single
Dim s As Single
    dx = x2 - x1
    dy = y2 - y1
    da = A2 - A1
    db = B2 - B1
   
    If (da * dy - db * dx) = 0 Then
    
        ' The segments are parallel.
        SegmentsIntersect = False
        
        Exit Function
    End If
    s = (dx * (B1 - y1) + dy * (x1 - A1)) / (da * dy - db * dx)
    t = (da * (y1 - B1) + db * (A1 - x1)) / (db * dx - da * dy)
    SegmentsIntersect = (s >= 0# And s <= 1# And t >= 0# And t <= 1#)
    
    Text13.Text = s '2.48037E-03
    Text14.Text = t '0.3147531
    '(s >= 0# And s <= 1# And t >= 0# And t <= 1#)
End Function

[LaVolpe]

2.48037E-03 is both > 0 and < 1.
MsgBox CDbl(2.48037E-03)

P.S. That number format is called scientific notation

[flyhigh]

so its really CDbl(0.00248037),cool.
i was woundering about that # thing ,it seems to work without it.
why does this return ,true or false Text15.Text =(s >= 0# And s <= 1# And t >= 0# And t <= 1#)

thanks