epoch Prime

[salvomic]

(01-06-2018 08:53 AM)Dieter Wrote:  ...
Or you could return something according to the ISO standard.

Dieter

Right!
However, I'll write a simple pretty_date() function to convert the Prime output (2018.0106, 2.0181145) in yy mm dd, hh mm ss.frac

At the moment the simplified program (with MOD) is:

Code:


// Epoch Unix time from 1970 Jan 1. Inspired by a Bill Duncan's program for HP-41CX
// Thanks to Dieter

// Epoch seconds in UTC time
EXPORT epoch()
BEGIN
RETURN 86400*(DDAYS(1970.0101,Date))+3600*HMS→(Time)-3600;
END;

EXPORT epoch2date(epoch)
BEGIN
local da, ti;
da:=DATEADD(1970.0101, IP(epoch/86400));
ti:=(epoch MOD 84600)/3600;
RETURN({da, ti});
END;

// EXPORT pretty_date({yymmdd,hhmmss})
// BEGIN
// local aa;
//
// RETURN();
// END;

Now here local time is 10:25
epoch() returns 1515230706
epoch2date(1515230706) returns {2018.0106, 12.41833333}
→HMS(12.41833333) returns 12°25'06'', that two hours later, but still I must set UTC problem...

Salvo