vb转换股票数据的问题

Question

用vb读出大智慧股票数据为16进制格式，如0A 8D 32 01,但是用数组读出后0A显示为A，这一组数据为日期格式，必须整体转换少个零就不能正确转换
另外读文件时可以一次读4字节的数据并整体转换吗？
Text2.Text = (Val("&H" & Format(Hex(bit(3)), "00") & Format(Hex(bit(2)), "00") & Format(Hex(bit(1)), "00") & Format(Hex(bit(0)), "00"))) 这种方式也不能正确转换，有什么好的方法吗？
实在对不住大家了，刚注册的，只有25分，拿不出手啊。
二楼很感谢你哦，可是你能不能说详细点，俺初学，你定义了几个long变量，那么从文件中取数据赋值给变量，还有把变量数据转换为正确的日期，开高低收量等，不用太正规只要把关键性的话写出就可以了。期待中。

Answer 1

大智慧股票数据
每个记录40 byte
格式
long Date 0'相对开头偏移量 byte
long Open=4
long High=8
long Low=12
long Close=16
long Volume=20

不是二进制方式，使用随机方式 Random 读取， 读取以后 价格 /1000 就行了

定义类型
Private Type ddzh
Date As Long
Open As Long
High As Long
Low As Long
Close As Long
Volume As Long
End1 As Long
End2 As Long
End3 As Long
End4 As Long
End Type

Private Type dzh
Date As Long
Open As Single
High As Single
Low As Single
Close As Single
Volume As Long
End Type

用 Get 读取记录到 就可以了

ReDim ddzh(1 To 1) As ddzh
ReDim dzh(1 To 1) As dzh
Open "000001.day" For Random As #1 Len= Len(ddzh(1))
ReDim ddzh(1 To Lof(1)/Len(ddzh(1))) As ddzh
For i = 1 To ReadToTal
Get #1, i, ddzh(i)
Next i
Close #1

读取以后转换到
dzh里就可以了

大福星数据比较好用，分中图都可以读取

Answer 2

你给0分啊？
我不爱累脑袋。