使用Time.now获取Elm 0.18中的时区日期

import Time exposing (Posix, Zone, toHour, toMinute, toSecond, toMillis, zone)

now : Task x (Posix, Zone)
now = Time.now

getTimezoneDate : Task x String
getTimezoneDate =
    Task.map2 (\(posix, zone) _ -> toTimezoneDate posix zone) now (Task.succeed ())

toTimezoneDate : Posix -> Zone -> String
toTimezoneDate posix zone =
    let
        hour = toHour zone
        minute = toMinute zone
        second = toSecond zone
        millis = toMillis zone
        date = Time.millisToPosix posix |> Time.toUtc |> Time.posixToMillis |> Time.millisToPosix |> Time.toYearMonthDay
    in
    toString date.year ++ "-" ++ padZero date.month ++ "-" ++ padZero date.day ++ " " ++ padZero hour ++ ":" ++ padZero minute ++ ":" ++ padZero second ++ "." ++ padZero millis

padZero : Int -> String
padZero num =
    if num < 10 then
        "0" ++ toString num
    else
        toString num