Public Function DotNetDateTimeToVBTime(ByVal inDotNetDateTimeInTicks As Double) As Date On Error GoTo finish Const hundrednanosecondsPerSecond = 10000000 Const vbEpochInDotNetDateTimeTicks = 5.99264352E+17 Dim diffTicks As Double: diffTicks = inDotNetDateTimeInTicks - vbEpochInDotNetDateTimeTicks Dim dSeconds As Double: dSeconds = diffTicks / hundrednanosecondsPerSecond Dim dStart As Double: dStart = dSeconds / (60# * 60# * 24#) Dim vbResult As Date: vbResult = dStart DotNetDateTimeToVBTime = vbResult finish: End Function
Advertisement
160
pages
How to convert .NET DateTime to Variant Time in VBA
Advertisement