📅  最后修改于: 2022-03-11 14:51:54.947000             🧑  作者: Mango
'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