Unsigned to Long converter 1

[elquixiote]

Hi!. I'm reading a binary file that was created in a VMS plattform (probably in C++ or something alike). This file contains fields that were declared as unsigned integer, so, at the time I try to read these fields as integers I got negative numbers. For example, i got -14044 and the actual value of the field is about 52000. Is there a way to convert this unsigned integer value read into an integer variable to its real value in a long integer value ?

Thanks, ...

elQuixiote

 

[Hypetia]

Try this;
___
[tt]
Private Sub Form_Load()
MsgBox SignedToUnSingned(-14044)
End Sub

Function SignedToUnSingned(SignedInt As Integer) As Long
SignedToUnSingned = CLng("&H" & Hex$(SignedInt))
End Function[/tt]

 

[Hypetia]

And this is even better.
___
[tt]
Function SignedToUnSingned(SignedInt As Integer) As Long
If SignedInt < 0 Then SignedToUnSingned = 65536
SignedToUnSingned = SignedToUnSingned + SignedInt
End Function
[/tt]

 

[elquixiote]

Thank you...

Maybe you want to write a faq. I think could be useful to many persons ...

Thanks again...

elQuixiote ...

 

[johnwm]

Even easier:
Unsigned = (Signed + 65536) Mod 65536

Note all these solutions only work for standard 2-byte integers

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'