请教如何获取最后一个日期:

Question

由于VB使用了UniCode字符串，所以应该定义为Byte数组Private Type Record 
    xh(1 to 14) As Byte
    Name(1 to 13) As Byte
    date As Long
    Gongzi As Long
    Jiangjin As Long
End Type

Answer 1

可能是这样：Dim FileSize as Long
Dim RcdCount as long
Dim TempRcd as RecoedOpen 文件名 For Binary as #1
FileSize=Lof(1)
RcdCount=FileSize\LenB(TempRcd)Get #1,1,TempRcd
第一个日期=TempRcd.dateGet #1,(RecdCount-1)*LenB(TempRcd)+1,TempRcd
最后一个日期=TempRcd.dateClose #1