Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Integer/Hex -> Single
Autor: Lösung..
Datum: 09.12.02 09:39
Hallo, erstmal danke für den Tipp Habe zwischenzeitlich auch noch eine andere Alternative gefunden: Private Type IEEEBytesType IEEE(3) As Byte End Type Private Type IEEELongType IEEE As Long End Type Private Type IEEESingleType IEEE As Single End Type Public Function calc2single(lFrom&) As Single On Error Resume Next Dim MyOld As Long, _ MyNew As Single, _ TempLong As IEEELongType, _ TempSingle As IEEESingleType, _ TempBytes As IEEEBytesType, _ Hold As Byte TempLong.IEEE = lFrom& LSet TempBytes = TempLong Hold = TempBytes.IEEE(3) TempBytes.IEEE(3) = TempBytes.IEEE(0) TempBytes.IEEE(0) = Hold Hold = TempBytes.IEEE(2) TempBytes.IEEE(2) = TempBytes.IEEE(1) TempBytes.IEEE(1) = Hold LSet TempSingle = TempBytes MyNew = TempSingle.IEEE calc2single = MyNew End Function Public Function calc2long(lFrom As Single) As Long On Error Resume Next Dim MyOld As Single, _ MyNew As Long, _ TempLong As IEEELongType, _ TempSingle As IEEESingleType, _ TempBytes As IEEEBytesType, _ Hold As Byte TempSingle.IEEE = lFrom LSet TempBytes = TempSingle Hold = TempBytes.IEEE(3) TempBytes.IEEE(3) = TempBytes.IEEE(0) TempBytes.IEEE(0) = Hold Hold = TempBytes.IEEE(2) TempBytes.IEEE(2) = TempBytes.IEEE(1) TempBytes.IEEE(1) = Hold LSet TempLong = TempBytes calc2long = TempLong.IEEE End Function VG Oli

Integer/Hex -> Single	173	Oliver_Ebert	03.12.02 15:40
Re: Integer/Hex -> Single	443	illuminator	03.12.02 16:15
Re: Integer/Hex -> Single	74	Oliver_Ebert	03.12.02 17:22
Re: Integer/Hex -> Single	408	michi-bib	07.12.02 11:37
Re: Integer/Hex -> Single	424	michi-bib	04.12.02 12:21
Re: Integer/Hex -> Single	65	Lösung..	09.12.02 09:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen