Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Function Str2Single(s As String) As Single
If LenB(s) < 4 Then s = s & String(4, 0)
CopyMemory Str2Single, ByVal (StrPtr(s)), ByVal 4
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024