DouKaku?beta

Comment detail

ミリ秒まで含んだ時刻文字列 (Nested Flatten) 
ミリ秒未満は切り捨て
実行例

*Main> :main
20080615084301.575

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
module Main where

import Data.Time
import System.Locale

($$) = flip ($)
main = getCurrentTimeZone >>= \ tz ->
       getCurrentTime     >>= \ ct ->
       utcToLocalTime tz ct $$ formatTime defaultTimeLocale "%Y%m%d%H%M%S.%q"
                            $$ take 18
                            $$ putStrLn

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]