Convert unix to date vba

Option Explicit
Const Unix1970 As Double = 25569 'CDbl(DateSerial(1970,1,1)
'' Test in immediate window
'' Print Date2Unix(Timer)
'' Print Unix2Date([paste result from above])

Public Function Date2Unix(ByVal vTimer As Date) As Double
'Always pass value as "Timer" more accurate than "Now" else use a date
    Date2Unix = Split((DateDiff("s", "01/01/1970", Date) + vTimer) * 1000, ".")(0)
End Function

Public Function Unix2Date(vUnixDate As Double) As Date
Dim epochDecimal
    epochDecimal = Left(vUnixDate, 10) & "." & Right(vUnixDate, 3)
    Unix2Date = Format((((epochDecimal / 60) / 60) / 24) + Unix1970, "m/d/yyyy h:nn:ss AM/PM")
End Function

Similar codes

0 vote127 views1 answer
Docker vboxmanage not found
VBA
0 vote145 views1 answer
Putting marquee in vb.net
VBA
0 vote134 views1 answer
Vba first cell in range
VBA
0 vote148 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote143 views1 answer
Como ler subitem de um array em json usando vbnet
VBA
0 vote147 views1 answer
Excel vba protect worksheet without password
VBA
0 vote142 views1 answer
Vba declare 64-bit ptrsafe
VBA
6 votes156 views1 answer
Excel vba get the path of current workbook
VBA
0 vote168 views2 answers
Get unique random number in vb.net
VBA
-1 vote130 views2 answers
How close excel through visual basic
VBA