Hallo,
hier eine VBS-Version für WinCC-Rohdaten (Bytearrays)
' Single entsprechend IEEE 754
'~~~~~~~~~~~~~~~~~~~
Function GetSingle (BYREF arr, ix)
Dim vz, ex, ma, x
If arr(ix) And &h80 Then vz = -1 Else vz = 1
ex = (arr(ix) And &h7f) * 2 + arr(ix+1) \ 128 - 127 '...