A1: = (number of seconds)
A2: = DATE(1970, 1, 1) + (A1/24/60/60)
or
A2: = DATE(1970,1,1) + A1/86400
If you want a UDF:
Public Function UNIXtoXL(UTime As Double) As Date
Const CONVERT = 86400 'days to seconds
Dim adj1904 As Double
If ActiveWorkbook.Date1904 Then adj1904 = 1462
UNIXtoXL = DateSerial(1970, 1, 1) + UTime / CONVERT - adj1904
End Function
In article <9oqf3s$sptl$1...@reader01.wxs.nl>,
"Robert Vissers" <robert....@planet.nl> wrote:
--
J.E. McGimpsey ar...@zptvzcfrl.pbz
ROT13 encoding, decode for real mail
"J.E. McGimpsey" <ar...@zptvzcfrl.pbz> schreef in bericht
news:arjf-F220AD.1...@msnews.microsoft.com...