úÎ-)G      !"#$%&'()*+,-./0123456789:;<=>?@ABCDEF None!"*-/59;<=?IT  None!"*-/59;<=?IT ZDmyHmp (DmyHm {day = 12, month = 12, year = 2016, hour = 17, minute = 32},59.727482058000) _(DmyHm {day = "12", month = "12", year = "2016", hour = "17", minute = "32"},"59.727280400000")Date, Time w/out second.convert from more precise to more common type      None!"*-/59;<=?IT! constraint!"#$%&'!"#$&'%$%&'"#!!"#$%&' None!"*-/59;<=?ITG$do calc with current time zone from Hprobably don't need itIGIGIGNone!"*-/59;<=?IT,yyyymmdd -)format UTCTime just as you need it. uses J ÿpimport Text.Regex.Do.Replace.Template import Prelude hiding ((<),(>)) ... it "formatUTCTime" $ do t1 <- getCurrentTime let p1@DmyHm{..} = partFormats traceIO $ formatUTCTime (("{day}/{month} {hour}:{minute}") < [("day",day),("month",month),("hour",hour),("minute",minute)]) t1 12/12 18:39 .%T%Q/%T %Q0%F %T1 %S.%-q second.pico 2some formats  no padding see K for full measure ; day %-d month %-m year %Y hour %-H minute %-M,-see K5. can also make format with functions in this module ./012,-./012,-./012,-./012None!"*-/59;<=?IT3from specified L 5%specified time in specified zone, to DmyHmP 345673455347634567None!"*-/59;<=?IT8#time with Pico in current timezone nowZTz CET (DmyHm {day = 12, month = 12, year = 2016, hour = 19, minute = 33},15.546562180000)9 timestamp second.fraction. UTCt14:41:29.785834836: timestamp second.fraction. UTCt'14:41:29 .785834836;date, time (to second) UTCdt2016-12-12 14:43:13< date stamp yyyymmdd local timezonedTz CET "20161212"89:;<89:;<89:;<89:;<None!"*-/59;<=?IT=pico in 1 second>pico in 1 milli?milli in 1 sec@toPico (Milli 1) 1000000000 AtoMilli (Sec 1) 1000 =>?@ABCD=>?@ABCD=>?@ABCD=>?@ABCDNone!"*-/59;<=?ITEM +/- offsetfrom unit test: ¥getCurrentTime futureUTCTime $ Milli 100 futureUTCTime $ Sec 3 2016-12-12 15:34:03.138798524 UTC 2016-12-12 15:34:03.23893359 UTC 2016-12-12 15:34:06.138978355 UTC Ftime diff in milliEFEFEFEFN         !"#$$%&'()*+,-./0123456789:;<=>?@ABCDEFG HIJK LIMNIOPIQRISTU!hora-1.0.1-7BcX8SXbGgyHufLEm4ICwwData.Time.Hora.Type.YmdHmsData.Time.Hora.Type.DmyHmData.Time.Hora.Type.TimeData.Time.Hora.FormatData.Time.Hora.ParseData.Time.Hora.TimestampData.Time.Hora.ConvertData.Time.Hora.FutureData.Time.Hora.WithTimeZoneYmdHmsyearmonthdayhourminutesecond $fOrdYmdHms $fShowYmdHms $fEqYmdHmsDmyHmpDmyHmp'DmyHm pico2second $fOrdDmyHm $fOrdDmyHmp$fBinaryDmyHmp $fBinaryDmyHm$fFunctorDmyHm $fShowDmyHm $fEqDmyHm $fEqDmyHmp $fShowDmyHmp$fGenericDmyHmp$fGenericDmyHmTwoIntTzTimeSpanSecPicoMilli$fShowTimeSpan $fEqTimeSpan $fOrdTimeSpan$fShowTzymd formatUTCTime hmsFraction hmsFraction'ymdHms spicoFormat partFormatsParseparseparse' $fParse(,) $fParseDmyHmpnowtt'dtdpicoSecpicoMsmsSectoPicotoMillitoSec toDiffTime nominalDiff futureUTCTime timeDiffMs withTimeZone time-1.6.0.1Data.Time.LocalTime.TimeZonegetCurrentTimeZone WithTimeZoneData.Time.Format.LocaledefaultTimeLocaleData.Time.Format formatTimeData.Time.Clock.UTCUTCTimeData.Time.Clock.POSIXgetCurrentTime