diff --git a/formatting.cabal b/formatting.cabal
--- a/formatting.cabal
+++ b/formatting.cabal
@@ -1,5 +1,5 @@
 name:                formatting
-version:             3.0.2
+version:             3.1.0
 synopsis:            Combinator-based type-safe formatting (like printf() or FORMAT)
 description:         Combinator-based type-safe formatting (like printf() or FORMAT), modelled from the HoleyMonoids package.
 license:             BSD3
@@ -16,10 +16,13 @@
                      Formatting.Holey,
                      Formatting.Formatters,
                      Formatting.ShortFormatters,
-                     Formatting.Examples
+                     Formatting.Examples,
+                     Formatting.Time
   build-depends:     base >= 4 && < 5,
                      text-format,
-                     text
+                     text,
+                     time,
+                     old-locale
   hs-source-dirs:    src
 
 source-repository head
diff --git a/src/Formatting/Formatters.hs b/src/Formatting/Formatters.hs
--- a/src/Formatting/Formatters.hs
+++ b/src/Formatting/Formatters.hs
@@ -80,7 +80,7 @@
 int :: Integral a => Format a
 int = later T.shortest
 
--- | Render some floating point with the usual notation, e.g. 123.32 => "123.32"
+-- | Render some floating point with the usual notation, e.g. 123.32 => \"123.32\"
 float :: Real a => Format a
 float = later (T.shortest)
 
diff --git a/src/Formatting/Time.hs b/src/Formatting/Time.hs
new file mode 100644
--- /dev/null
+++ b/src/Formatting/Time.hs
@@ -0,0 +1,202 @@
+{-# LANGUAGE NoMonomorphismRestriction #-}
+{-# LANGUAGE OverloadedStrings #-}
+
+-- | Formatters for time.
+
+module Formatting.Time where
+
+import           Formatting.Holey
+
+import           Data.Text (Text)
+import qualified Data.Text as T
+import           Data.Text.Buildable
+import           Data.Time
+import           System.Locale
+
+-- * For 'TimeZone' (and 'ZonedTime' and 'UTCTime'):
+
+-- | Timezone offset on the format @-HHMM@.
+tz :: FormatTime a => Format a
+tz = later (build . fmt "%z")
+
+-- | Timezone name.
+tzName :: FormatTime a => Format a
+tzName = later (build . fmt "%Z")
+
+-- | As 'dateTimeFmt' @locale@ (e.g. @%a %b %e %H:%M:%S %Z %Y@).
+datetime :: FormatTime a => Format a
+datetime = later (build . fmt "%c")
+
+-- * For 'TimeOfDay' (and 'LocalTime' and 'ZonedTime' and 'UTCTime'):
+
+-- | Same as @%H:%M@.
+hm :: FormatTime a => Format a
+hm = later (build . fmt "%R")
+
+-- | Same as @%H:%M:%S@.
+hms :: FormatTime a => Format a
+hms = later (build . fmt "%T")
+
+-- | As 'timeFmt' @locale@ (e.g. @%H:%M:%S@).
+hmsL :: FormatTime a => Format a
+hmsL = later (build . fmt "%X")
+
+-- | As 'time12Fmt' @locale@ (e.g. @%I:%M:%S %p@).
+hmsPL :: FormatTime a => Format a
+hmsPL = later (build . fmt "%r")
+
+-- | Day half from ('amPm' @locale@), converted to lowercase, @am@,
+-- @pm@.
+dayHalf :: FormatTime a => Format a
+dayHalf = later (build . fmt "%P")
+
+-- | Day half from ('amPm' @locale@), @AM@, @PM@.
+dayHalfU :: FormatTime a => Format a
+dayHalfU = later (build . fmt "%p")
+
+-- | Hour, 24-hour, leading 0 as needed, @00@ - @23@.
+hour24 :: FormatTime a => Format a
+hour24 = later (build . fmt "%H")
+
+-- | Hour, 12-hour, leading 0 as needed, @01@ - @12@.
+hour12 :: FormatTime a => Format a
+hour12 = later (build . fmt "%I")
+
+-- | Hour, 24-hour, leading space as needed, @ 0@ - @23@.
+hour24S :: FormatTime a => Format a
+hour24S = later (build . fmt "%k")
+
+-- | Hour, 12-hour, leading space as needed, @ 1@ - @12@.
+hour12S :: FormatTime a => Format a
+hour12S = later (build . fmt "%l")
+
+-- | Minute, @00@ - @59@.
+minute :: FormatTime a => Format a
+minute = later (build . fmt "%M")
+
+-- | Second, without decimal part, @00@ - @60@.
+second :: FormatTime a => Format a
+second = later (build . fmt "%S")
+
+-- | Picosecond, including trailing zeros, @000000000000@ -
+-- @999999999999@.
+pico :: FormatTime a => Format a
+pico = later (build . fmt "%q")
+
+-- | Decimal point and up to 12 second decimals, without trailing
+-- zeros. For a whole number of seconds, this produces the empty
+-- string.
+decimals :: FormatTime a => Format a
+decimals = later (build . fmt "%Q")
+
+-- * For 'UTCTime' and 'ZonedTime'
+--
+-- Number of whole seconds since the Unix epoch. For times before
+-- the Unix epoch, this is a negative number. Note that in @%s.%q@ and @%s%Q@
+-- the decimals are positive, not negative. For example, 0.9 seconds
+-- before the Unix epoch is formatted as @-1.1@ with @%s%Q@.
+epoch :: FormatTime a => Format a
+epoch = later (build . fmt "%s")
+
+-- * For 'Day' (and 'LocalTime' and 'ZonedTime' and 'UTCTime'):
+
+-- | Same as @%m\/%d\/%y@.
+dateSlash :: FormatTime a => Format a
+dateSlash = later (build . fmt "%D")
+
+-- | Same as @%Y-%m-%d@.
+dateDash :: FormatTime a => Format a
+dateDash = later (build . fmt "%F")
+
+-- | As 'dateFmt' @locale@ (e.g. @%m\/%d\/%y@).
+dateSlashL :: FormatTime a => Format a
+dateSlashL = later (build . fmt "%x")
+
+-- | Year.
+year :: FormatTime a => Format a
+year = later (build . fmt "%Y")
+
+-- | Last two digits of year, @00@ - @99@.
+yy :: FormatTime a => Format a
+yy = later (build . fmt "%y")
+
+-- | Century (being the first two digits of the year), @00@ - @99@.
+century :: FormatTime a => Format a
+century = later (build . fmt "%C")
+
+-- | Month name, long form ('fst' from 'months' @locale@), @January@ -
+-- @December@.
+monthName :: FormatTime a => Format a
+monthName = later (build . fmt "%B")
+
+-- | @ %H] month name, short form ('snd' from 'months' @locale@),
+-- @Jan@ - @Dec@.
+monthNameShort :: FormatTime a => Format a
+monthNameShort = later (build . fmt "%b")
+
+-- | Month of year, leading 0 as needed, @01@ - @12@.
+month :: FormatTime a => Format a
+month = later (build . fmt "%m")
+
+-- | Day of month, leading 0 as needed, @01@ - @31@.
+dayOfMonth :: FormatTime a => Format a
+dayOfMonth = later (build . fmt "%d")
+
+-- | Day of month, leading space as needed, @ 1@ - @31@.
+dayOfMonthS :: FormatTime a => Format a
+dayOfMonthS = later (build . fmt "%e")
+
+-- | Day of year for Ordinal Date format, @001@ - @366@.
+day :: FormatTime a => Format a
+day = later (build . fmt "%j")
+
+-- | Year for Week Date format e.g. @2013@.
+weekYear :: FormatTime a => Format a
+weekYear = later (build . fmt "%G")
+
+-- | Last two digits of year for Week Date format, @00@ - @99@.
+weekYY :: FormatTime a => Format a
+weekYY = later (build . fmt "%g")
+
+-- | Century (first two digits of year) for Week Date format, @00@ -
+-- @99@.
+weekCentury :: FormatTime a => Format a
+weekCentury = later (build . fmt "%f")
+
+-- | Week for Week Date format, @01@ - @53@.
+week :: FormatTime a => Format a
+week = later (build . fmt "%V")
+
+-- | Day for Week Date format, @1@ - @7@.
+dayOfWeek :: FormatTime a => Format a
+dayOfWeek = later (build . fmt "%u")
+
+-- | Day of week, short form ('snd' from 'wDays' @locale@), @Sun@ -
+-- @Sat@.
+dayNameShort :: FormatTime a => Format a
+dayNameShort = later (build . fmt "%a")
+
+-- | Day of week, long form ('fst' from 'wDays' @locale@), @Sunday@ -
+-- @Saturday@.
+dayName :: FormatTime a => Format a
+dayName = later (build . fmt "%A")
+
+-- | Week number of year, where weeks start on Sunday (as
+-- 'sundayStartWeek'), @00@ - @53@.
+weekFromZero :: FormatTime a => Format a
+weekFromZero = later (build . fmt "%U")
+
+-- | Day of week number, @0@ (= Sunday) - @6@ (= Saturday).
+dayOfWeekFromZero :: FormatTime a => Format a
+dayOfWeekFromZero = later (build . fmt "%w")
+
+-- | Week number of year, where weeks start on Monday (as
+-- 'mondayStartWeek'), @00@ - @53@.
+weekOfYearMon :: FormatTime a => Format a
+weekOfYearMon = later (build . fmt "%W")
+
+-- * Internal.
+
+-- | Formatter call. Probably don't want to use this.
+fmt :: FormatTime a => Text -> a -> Text
+fmt f = T.pack . formatTime defaultTimeLocale (T.unpack f)