16,553
社区成员
发帖
与我相关
我的任务
分享
Function big2little(ByVal code As System.Int32) As System.UInt64
Dim value As System.UInt64
value = _
((CType(code, System.UInt64) And CType(&HFFUI, System.UInt64)) << 24) _
Or ((CType(code, System.UInt64) And CType(&HFF00UI, System.UInt64)) << 8) _
Or ((CType(code, System.UInt64) And CType(&HFF0000, System.UInt64)) >> 8) _
Or ((CType(code, System.UInt64) And CType(&HFF000000UI, System.UInt64)) >> 24)
Return value
End Function