Date类型是如何存储在8个字节中的。

时间:2023-01-11 17:49:49
如题,Date类型是占8个字节,不知是如何存储,上网找了很多资料都没有,请相关大神方便的话中,出来指导一下。

5 个解决方案

#1


没研究过,不过研究这个有什么意义呢。楼主是不是要写编译器啊

#2


看了下。 2016-2-22对应的16进制是:
00 00 00 00 C0 B6 E4 40
二进制是:
0000 0000 0000 0000 0000 0000 0000 0000  1100 0000  1011 0110 1110 0100 0100 0000
                                                                                  红色这3位数不停递增到绿色段,周期正好是8,估计表示星期。 绿色递增了后估计放后面了。具体不知道vb的开发者怎么设计的数据结构了。。

楼主自己用二进制写入文件,然后ultraedit找规律看看吧。我简单看了下没发现完整的规律。

写入代码:
Dim d As Date
d = Date
Open "c:\日期测试.txt" For Binary As #1
Put #1, , d
Close #1


读取日期:
Dim d As Date
Open "c:\日期测试.txt" For Binary As #1
Get #1, , d
Close #1
MsgBox d

#3


谢谢,是这样的,因为用其他语言读取VB所存的文件,故需要用到这个。

#4


非常有帮助,谢谢版主,其实你已经做到了,因为存储是先低位后高后,你再换换位置就看出规律。

#5


今晚上再回去研究一下规律,就OK了。

#1


没研究过,不过研究这个有什么意义呢。楼主是不是要写编译器啊

#2


看了下。 2016-2-22对应的16进制是:
00 00 00 00 C0 B6 E4 40
二进制是:
0000 0000 0000 0000 0000 0000 0000 0000  1100 0000  1011 0110 1110 0100 0100 0000
                                                                                  红色这3位数不停递增到绿色段,周期正好是8,估计表示星期。 绿色递增了后估计放后面了。具体不知道vb的开发者怎么设计的数据结构了。。

楼主自己用二进制写入文件,然后ultraedit找规律看看吧。我简单看了下没发现完整的规律。

写入代码:
Dim d As Date
d = Date
Open "c:\日期测试.txt" For Binary As #1
Put #1, , d
Close #1


读取日期:
Dim d As Date
Open "c:\日期测试.txt" For Binary As #1
Get #1, , d
Close #1
MsgBox d

#3


谢谢,是这样的,因为用其他语言读取VB所存的文件,故需要用到这个。

#4


非常有帮助,谢谢版主,其实你已经做到了,因为存储是先低位后高后,你再换换位置就看出规律。

#5


今晚上再回去研究一下规律,就OK了。