将日期转换为日期序列

Question

我正在尝试将日期(日期类型)转换为长整型。这个长度应该类似于自1900年1月1日以来的天数。如何在VBA中实现这一点？在excel中，当我将一个日期和一个字符串连接起来时，我会自动得到这个。

Answer 1

Function dateToLong(ByVal d As Date) As Long

dateToLong = CLng(d)
End Function 

如果你需要在很长一段时间内捕获时间，请使用以下命令：

Function Dt2Lng(aDate As Date) As Long
   '-- acept datetime range from MinDate to
   '-- (MinDate + 49710 days + 6:28:15) ~ 136 years
   Dt2Lng = CLng((aDate - MinDate) * 86400 - 2 ^ 31)
End Function

Answer 2

假设你在A1中有"1/1/2016“，你可以使用Range("A1").Value2来获取日期序列号。