IsNaNがおかしいのでは
Posted: 2006年10月14日(土) 07:41
Active Basic 5 CP3 の、
include/basic/function.abpにおいてこのような関数がありましたが、
これだと、いかなる条件でもFALSEしか返らないような気がします。[/code]
include/basic/function.abpにおいてこのような関数がありましたが、
コード: 全て選択
Function IsNaN(ByVal x As Double) As BOOL
Dim p As *DWord
p = VarPtr(x) As *DWord
If (p[1] And &H7FF00000) = &H7FF00000 Then
If (p[0] <> 0) Or ((p[1] And &HFFFFF) <> 0) Then
IsNaN = TRUE
End If
End If
IsNaN=FALSE
End Function