急！急！急！如何把 日期格式“2007-7-1”转换为：“1188734170”这种格式？
如何把 日期格式“2007-7-1”转换为：“1188734170”这种格式？

[解决办法]
很简单


Dim d As Date
d = CDate( "2007-7-1 ")
Debug.Print (CLng(d) - 25569) * 86400
[解决办法]
01/01/1970 等于 25569


原理就是这样
Debug.Print (CLng(CDate( "2007-7-1 ")) - CLng(CDate( "1970-1-1 "))) * 86400
[解决办法]
datediff( "s ", "1970-1-1 ", "2007-7-1 ")