elm:time
差分
このページの2つのバージョン間の差分を表示します。
両方とも前のリビジョン前のリビジョン次のリビジョン | 前のリビジョン | ||
elm:time [2019/06/16] – [Elmでtime] adash333 | elm:time [2019/06/21] (現在) – [Elmでアナログ時計] adash333 | ||
---|---|---|---|
行 1: | 行 1: | ||
====== Elmでtime ====== | ====== Elmでtime ====== | ||
- | |||
- | |||
https:// | https:// | ||
行 17: | 行 15: | ||
ElmとFirebaseでチャットアプリを写経してみる(2)複数ファイルを1個のファイルにする | ElmとFirebaseでチャットアプリを写経してみる(2)複数ファイルを1個のファイルにする | ||
2019年6月13日2019年6月16日 | 2019年6月13日2019年6月16日 | ||
+ | |||
+ | ===== Elmでアナログ時計 ===== | ||
+ | |||
+ | https:// | ||
+ | {{: | ||
+ | |||
+ | [[https:// | ||
+ | |||
+ | |||
+ | https:// | ||
+ | |||
行 67: | 行 76: | ||
https:// | https:// | ||
- | <code> | + | <html> |
- | import Time exposing (Month(..), Posix, Weekday(..), | + | <script src=" |
- | + | ||
- | + | ||
- | + | ||
- | -- --------------------------- | + | |
- | -- TIME Util | + | |
- | -- --------------------------- | + | |
- | + | ||
- | + | ||
- | toDate | + | |
- | toDate zone time = | + | |
- | let | + | |
- | padZero2 = | + | |
- | String.padLeft 2 ' | + | |
- | + | ||
- | month = | + | |
- | Time.toMonth zone time |> toMonthNumber | + | |
- | + | ||
- | day = | + | |
- | Time.toDay zone time |> String.fromInt | + | |
- | + | ||
- | year = | + | |
- | Time.toYear zone time |> String.fromInt | + | |
- | + | ||
- | hour = | + | |
- | Time.toHour zone time |> String.fromInt |> padZero2 | + | |
- | + | ||
- | minutes = | + | |
- | Time.toMinute zone time |> String.fromInt |> padZero2 | + | |
- | + | ||
- | week = | + | |
- | Time.toWeekday zone time |> toJapaneseWeekday | + | |
- | in | + | |
- | year ++ "年" ++ month ++ " | + | |
- | + | ||
- | + | ||
- | toMonthNumber : Time.Month -> String | + | |
- | toMonthNumber month = | + | |
- | case month of | + | |
- | Jan -> | + | |
- | " | + | |
- | + | ||
- | Feb -> | + | |
- | " | + | |
- | + | ||
- | Mar -> | + | |
- | " | + | |
- | + | ||
- | Apr -> | + | |
- | " | + | |
- | + | ||
- | May -> | + | |
- | " | + | |
- | + | ||
- | Jun -> | + | |
- | " | + | |
- | + | ||
- | Jul -> | + | |
- | " | + | |
- | + | ||
- | Aug -> | + | |
- | " | + | |
- | + | ||
- | Sep -> | + | |
- | " | + | |
- | + | ||
- | Oct -> | + | |
- | " | + | |
- | + | ||
- | Nov -> | + | |
- | " | + | |
- | + | ||
- | Dec -> | + | |
- | " | + | |
- | + | ||
- | + | ||
- | toJapaneseWeekday : Weekday -> String | + | |
- | toJapaneseWeekday weekday = | + | |
- | case weekday of | + | |
- | Mon -> | + | |
- | " | + | |
- | + | ||
- | Tue -> | + | |
- | " | + | |
- | + | ||
- | Wed -> | + | |
- | " | + | |
- | + | ||
- | Thu -> | + | |
- | " | + | |
- | + | ||
- | Fri -> | + | |
- | " | + | |
- | + | ||
- | Sat -> | + | |
- | " | + | |
- | + | ||
- | Sun -> | + | |
- | " | + | |
- | + | ||
- | </code> | + | |
+ | </ | ||
elm/time.1560688939.txt.gz · 最終更新: 2019/06/16 by adash333