【erlang】时间管理

获取当前时间

获取从1970年1月1日零时起，到现在经过的时间，结果为{MegaSecs, Secs, MicroSecs}。

erlang:now()

同样获取当前时间，但更接近于操作系统时间。

os:timestamp()

注意
erlang:now()在实现上对时间多做了一个校正，相对os:timestamp()有点失真，同时也会有多余的开销。但是erlang:now()每次都生成唯一的值，有时候也是一大利好。

默认初始时间

Date = calendar:universal_time_to_local_time({{1970, 1, 1}, {0, 0, 0}}),
calendar:datetime_to_gregorian_seconds(Date).
=> 62167248000

获取当前时间戳

• 秒

now() ->
    {M, S, _} = os:timestamp(),
    M * 1000000 + S.

• 毫秒

now_ms() ->
    {A, B, C} = os:timestamp(),
    A * 1000000000 + B * 1000 + C div 1000.

• 微秒

now_us() ->
    {A, B, C} = os:timestamp(),
    A * 1000000000000 + B * 1000000 + C.

• 时间差

time_diff({A1,A2,A3} = erlang:now(), {B1,B2,B3}) ->
    (B1 - A1) * 1000000 + (B2 - A2) + (B3 - A3) / 1000000.0 .

获取当前时间

• 本地时间

local_time() ->
    calendar:local_time().

• 世界时间

world_time() ->
   calendar:universal_time().

获取年月日，时分秒

{{Year, Month, Day}, {Hour, Minite, Second}} = calendar:local_time().
erlang:local_time().

获取星期

Date = erlang:local_time(),
calendar:day_of_the_week(Date).

时间转换

• 秒转时间

calendar:seconds_to_daystime(86000).
{0,{23,53,20}}
calendar:seconds_to_daystime(86400).
{1,{0,0,0}}
calendar:seconds_to_daystime(1086400).
{12,{13,46,40}}

• 时间转秒

calendar:time_to_seconds({23,53,20}).
86000

• 日期转天

calendar:date_to_gregorian_days({2018,8,8}).
737279

时间与时间戳的转换

• 时间转时间戳，格式：{{2013,11,13}, {18,0,0}}

datetime_to_timestamp(DateTime) ->
    calendar:datetime_to_gregorian_seconds(DateTime) - calendar:datetime_to_gregorian_seconds({{1970,1,1}, {0,0,0}}).

• 时间戳转时间

timestamp_to_datetime(Timestamp) ->
    calendar:gregorian_seconds_to_datetime(Timestamp + calendar:datetime_to_gregorian_seconds({{1970,1,1}, {0,0,0}})).

时间戳作为随机种子

random:seed(erlang:now()).
random:uniform().

时间格式化

-module(print_time).
-export([format_utc_timestamp/0]).
format_utc_timestamp() ->
    TS = {_,_,Micro} = os:timestamp(),
    {{Year,Month,Day},{Hour,Minute,Second}} = 
	calendar:now_to_universal_time(TS),
    Mstr = element(Month,{"Jan","Feb","Mar","Apr","May","Jun","Jul",
			  "Aug","Sep","Oct","Nov","Dec"}),
    io_lib:format("~2w ~s ~4w ~2w:~2..0w:~2..0w.~6..0w",
		  [Day,Mstr,Year,Hour,Minute,Second,Micro]).

运行如下：

1> io:format("~s~n",[print_time:format_utc_timestamp()]).
29 Apr 2009  9:55:30.051711

计时器

注意
erlang的计时器timer是通过一个唯一的timer进程实现的，该进程是一个gen_server，每个用户的计时器都是一条记录，保存在timer的ets表timer_tab中，timer的时序驱动通过gen_server的超时机制实现。若同时使用timer的用户过多，则timer将响应不过来，会成为瓶颈。

send_after(Time, Pid, Message) -> {ok, TRef} | {error, Reason} %发消息
timer：apply_after(Time, Module, Function, Arguments) -> {ok, TRef} | {error, Reason} %函数形式

erlang的原生计时器erlang:send_after和erlang:start_timer，把计时器附着在进程自己身上。

erlang:send_after(Time, PID, Msg) -> Ref.   
=> handle_info(Msg).
erlang:start_timer(Time, PID, Msg) -> Ref.  
=> handle_info({timeout, Ref, Msg}).
erlang:cancel_timer(TimeRef) -> Time|false.