epoch Prime

[salvomic]

ok, tomorrow I'll see for your solution.
In the meantime I coded this:

Code:


EXPORT epoch()
BEGIN
RETURN 86400*(DDAYS(1970.0101,Date))+3600*HMS→(Time)-3600;
END;

EXPORT epoch2date(ep)
BEGIN
local dd, da, hh, mm, ss;
local yy, mt, dy;
dd:=ep/86400;
da:=DATEADD(1970.0101, IP(dd));
hh:=IP(24*FP(dd));
mm:=IP(60*FP(24*FP(dd)));
ss:=IP(60*FP(60*FP(24*FP(dd))));
yy:=IP(da);
mt:=IP(100*(FP(da)));
dy:=IP(100*FP(100*FP(da)));
RETURN({yy,mt,dy,hh,mm,ss});
END;

maybe it's redundant a lot...
How to make an optional parameter to input (or not) the time zone in epoch()?
I would like to make a versatile function that accept optional parameters: with nothing return epoch for the current date in GMT, with (mydate, myzone) returns a date and a zone...
Then I'll see to return for epoch2date both a "pretty formatted date" and a "calc date" as {2018.0105, 23,9721} for date and time.fractional...

Salvo