Shellでmdbを起動して待機 (ID:81167)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じ？ Public Function dtoL(ByVal d As Double) As Long Dim b(1 To 4) As Byte d = Abs(d) b(4) = Int(d / &H1000000): d = re(d, &H1000000) b(3) = Int(d / &H10000): d = re(d, &H10000) b(2) = Int(d / &H100): d = re(d, &H100) b(1) = d 'Int(d / &H1) Debug.Print b(1); b(2); b(3); b(4) dtoL = (b(4) And &H7F) * &H1000000 + b(3) * &H10000 + b(2) * &H100& + CLng(b(1)) If b(4) And 128 Then dtoL = 2147483647 - dtoL - 1 '補数処理 End Function