榆木日期显示

Question

如何使用 elm 显示日期？我使用 toString 但显示太长。

let
    date =
        Date.fromTime <| toFloat risk.last_modified
in
    tr []
       [ td [] [ text risk.id ]
       , td [] [ text <| toString date ]
       , td [] [ text risk.title ]
       , td [] [ text risk.admin.comment ]
       , td [] <| badge risk.admin.status
       ]

Answer 1

使用 elm-strftime

您可以使用 elm-strftime:

elm-package install thaterikperson/elm-strftime

然后：

import Strftime exposing (format)

showDate : Date -> String
showDate date =
    format "%A %B %d %Y %H:%M" date

旧版本使用 elm-time

之前我是这样使用elm-time的：

showDate : DateTime -> String
showDate datetime =
    let
        day =
            DateTime.day datetime

        month =
            DateTime.month datetime

        year =
            DateTime.year datetime

        hour =
            DateTime.hour datetime

        minute =
            DateTime.minute datetime
    in
        (zfill day) ++ "/" ++ (zfill month) ++ "/" ++ (toString year) ++ " " ++ (zfill hour) ++ ":" ++ (zfill minute)


zfill : Int -> String
zfill value =
    let
        string =
            toString value
    in
        if (String.length string) == 1 then
            "0" ++ string
        else
            string

如果您想在正确的时区显示时间，您也可以使用 ZonedDateTime。

榆木日期显示

Date Display with elm

date

elm

使用 elm-strftime

旧版本使用 elm-time