Excel date to unix timestamp

'VBA functions to convert between Excel and Unix date-times.

'These work on Windows and optionally the Mac:

Function UnixDateTime#(ExcelDateTime As Date, Optional Mac As Boolean)
    Dim OSOffset: OSOffset = IIf(Mac, 24107, 25569)
    UnixDateTime = (ExcelDateTime - OSOffset) * 86400
End Function
         
Function ExcelDateTime(UnixDateTime#, Optional Mac As Boolean) As Date
    Dim OSOffset: OSOffset = IIf(Mac, 24107, 25569)
    ExcelDateTime = (UnixDateTime / 86400) + OSOffset
End Function

Source: academy.excelhero.com

Similar codes

4 votes134 views1 answer
Vba create directory
VBA
0 vote150 views1 answer
Excel vba set cell value to empty
VBA
8 votes277 views1 answer
Excel vba make word from bytes
VBA
0 vote139 views1 answer
Excel vba hide gridlines
VBA
8 votes128 views1 answer
Excel vba make a short integer from two bytes
VBA
0 vote129 views1 answer
Change "location" of binding navigator vb
VBA
5 votes158 views1 answer
Excel vba get low byte from INTEGER
VBA
0 vote143 views1 answer
Pivot data source not accepting table named range vba
VBA
0 vote128 views1 answer
Replace spaces with underscores vbnet
VBA
0 vote134 views1 answer
Vba apostrophe chr
VBA