日期类型数据转换为字节数组？？？

Question

日期类型数据转换为字节数组？？？
字节数组转换为日期类型数据？？？？

Answer 1

日期类型 to 字符串　to 字节数组
cstr(),strconv()

Answer 2

发送端：
dim a as date
a="2006-11-11 12:23:30"
socket1.senddata a接受端：dim a() as byte
winsocket1.GetData a, , bytesTotal
怎样将字节数组转换为date类型

Answer 3

dim a as string
winsocket1.GetData a, , bytesTotal
怎样将字节数组转换为date类型ADate = CDate(a)
  

Answer 4

上楼的，当然这个a 还有其他数据，并不是仅仅是date类型，还有其他类型数据。我只是取出其中的部分数据进行转换。

Answer 5

那就先取出来日期的部分，然后再转换了: 
ADate = CDate(a)

Answer 6

如senddata a 
a是里边有整形数据，字符串数据，日期行数据，其中在第5-8个字节是表示日期，怎么弄？
谢谢楼上的，帮我解决，！

Answer 7

byte()  => string  => datedim s as string 
dim d as date
s = strconv(bArr, vbUnicode)
's 截取日期的部分
d=cdate( s )

Answer 8

dim a as date
dim b(7) as byte
a=now
call copymemory(b(0),a,8)
socket1.senddata b************************************************************************
dim a() as byte
dim b as date
redim a(bytesTotal-1) as byte
winsocket1.GetData a
call copymemory(b,a(0),8)
debug.print b

Answer 9

dim data() as bytedata(0)=24
data(1)=1
data(2)=0
data(3)=0
data(4)=222
data(5)=65
data(6)=66
data(7) = 203
data(8) = 14
data(9) = 83
data(10) = 151  其中0-3个字节表示一个整数   4-6表示字符串  7-10表示日期型，怎么分别弄出来？？谢谢

Answer 10

type mydat
  dat1 as long      '4字节 整数
  dat2 as string*3  '3字节 字串
  dat4 as date      '4字节 日期
end typedim revdat as mydat
winsocket1.GetData a
call copymemory(revdat ,a(0),len(revdat))