vb6 バイトオーダエンディアン変換の高速化

お世話になります。

VB6にて下記ソースの様にバイトオーダのエンディアン変換を行っているのですが、
一旦Stringに入れ込んでいるせいなのか、
非常に処理が遅く困っております。

２Btyteのデータの入れ替えだけなのですが、
高速化もしくは単純化する方法がございましたら教えていただけないでしょうか

Public Function Swap(ByVal L As Long) As Integer
Dim S As String

S = Right(String(4, "0") & Hex(L), 4)
Swap = CInt("&H" & Right(S, 2) & Left(S, 2))
End Function

No.2 ベストアンサー 回答者： Hayashi_Trek 回答日時： 2013/08/21 13:13

構造体を使ってバイトを入れ替える方法。

Public Type Data4Byte2
myByte(1) As Byte
End Type

Public Type Data4Byte4
myByte(3) As Byte
End Type

Public Type Data4Integer
myInteger As Integer
End Type

Public Type Data4Long
myLong As Long
End Type

Public Function Swap(ByVal L As Long) As Integer
Dim d4b2 As Data4Byte2
Dim d4b4 As Data4Byte4
Dim d4i As Data4Integer
Dim d4l As Data4Long
'
d4l.myLong = L
LSet d4b4 = d4l
d4b2.myByte(0) = d4b4.myByte(1)
d4b2.myByte(1) = d4b4.myByte(0)
LSet d4i = d4b2
Swap = d4i.myInteger
End Function

この回答へのお礼

ありがとうございました
おかげさまで、
なんと２３sかかっていた処理が13sと大幅に短縮ができました。
構造体を使うなんて、なんて発想が柔軟なんでしょう！！

お礼日時：2013/08/21 14:15

No.1 回答者： TooManyBugs 回答日時： 2013/08/20 13:46

Swap = L / 256 + (L Mod 256) * 256

など

この回答への補足

回答ありがとうございます。
教えていただいた方法ですと、符号付の値がずれてしまいませんか？

補足日時：2013/08/20 18:59