ActiveBasicを通したコミュニケーション
コンテンツへ
#1 投稿記事 by T,S, » 2006年10月14日(土) 07:41
コード: 全て選択
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
#2 投稿記事 by イグトランス » 2006年10月14日(土) 13:18
#3 投稿記事 by T,S, » 2006年10月14日(土) 17:57
#4 投稿記事 by tak » 2006年10月14日(土) 19:10
#5 投稿記事 by T,S, » 2006年10月15日(日) 00:21
“バグ報告”に戻る