如何把日期转为16进制数据

Question

例如把：2009-8-19 8:52:51 转换为4字节16进制 0x121E79E3

Answer 1

Dim i As Long
Dim dt As DataTime
dt = "2009-8-19 8:52:51"
i = dt
Msgbox "0x" & Hex(i)

Answer 2

谢谢caozhy 结果不正确啊，算出来是0x9C6C，2字节

Answer 3

121E79E3是怎么得来的。Msgbox "0x" & Format("00000000", Hex(i))

Answer 4

http://zhidao.baidu.com/question/53949313.html
我也不知道什么规则，算出来结果和上面一样就对了

Answer 5

你和5楼链接的起点日期不一样。
dim l as long 
l = datediff("s",#2000-1-1#,#2009-8-19 8:52:51#)
debug.print hex(l)

Answer 6

http://zhidao.baidu.com/question/53949313.html这个人家已经解释的很清楚了，后面的16进制数是从1970-01-01 00:00:00到某个时间所经历的秒数，比如：0x4817EEE1是从1970-01-01 00:00:00到2008-04-30 14:02:00之间的秒数，用代码来算就是：
Hex(DateDiff("s", "1970-01-01 00:00:00", "2008-04-30 14:02:00"))你这个16进制数应该是从2000-01-01 00:00:00到2009-08-19 08:52:51所经历的秒数。
Hex(DateDiff("s", "2000-01-01 00:00:00", "2009-08-19 08:52:51"))