X-Git-Url: http://git.euphorik.ch/?p=euphorik.git;a=blobdiff_plain;f=modules%2Ferl%2Feuphorik_common.erl;h=f9e3f68ccba71de8e9d019456342f496367a0999;hp=e516322f87fb07931c19287f4d626067cbbb457e;hb=808fb60f6c10dfcaccee94c6a49f768de84dc2ef;hpb=81393a74d648e4830dc8c7c562fa203f50a105f6 diff --git a/modules/erl/euphorik_common.erl b/modules/erl/euphorik_common.erl index e516322..f9e3f68 100644 --- a/modules/erl/euphorik_common.erl +++ b/modules/erl/euphorik_common.erl @@ -17,10 +17,10 @@ % along with Euphorik. If not, see . % % Module with some useful stuffs. -% @author G.Burri -module(euphorik_common). +-author("Greg Burri "). -export([ ceiling/1, delta_date_ms/2, @@ -42,7 +42,7 @@ ceiling(X) -> end. -% Retourne la difference entre deux timestamp (erlang:now()) en miliseconde +% Retourne la difference entre deux timestamp (erlang:timestamp()) en miliseconde delta_date_ms(D1, D2) -> 1000000000 * abs(element(1, D1) - element(1, D2)) + 1000 * abs(element(2, D1) - element(2, D2)) + trunc(abs(element(3, D1) - element(3, D2)) / 1000).