53 lines
716 B
Elm
53 lines
716 B
Elm
module TimeUtils exposing (monthToString, pad2)
|
|
|
|
import Time
|
|
|
|
|
|
pad2 : String -> String
|
|
pad2 input =
|
|
if String.length input == 1 then
|
|
"0" ++ input
|
|
|
|
else
|
|
input
|
|
|
|
|
|
monthToString : Time.Month -> String
|
|
monthToString month =
|
|
case month of
|
|
Time.Jan ->
|
|
"01"
|
|
|
|
Time.Feb ->
|
|
"02"
|
|
|
|
Time.Mar ->
|
|
"03"
|
|
|
|
Time.Apr ->
|
|
"04"
|
|
|
|
Time.May ->
|
|
"05"
|
|
|
|
Time.Jun ->
|
|
"06"
|
|
|
|
Time.Jul ->
|
|
"07"
|
|
|
|
Time.Aug ->
|
|
"08"
|
|
|
|
Time.Sep ->
|
|
"09"
|
|
|
|
Time.Oct ->
|
|
"10"
|
|
|
|
Time.Nov ->
|
|
"11"
|
|
|
|
Time.Dec ->
|
|
"12"
|