将日期转换为日期序列

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来获取日期序列号。