Yesod Persistent - 如何將日期與UTCTime進行比較？ （如何轉換它們？）

Question

我有一個UTCTime類型的值代表當前時間，以及類型Day其他值，我想知道它是否大於或等於當前時間。

Answer 1

UTCTime由Day （ utctDay ）和自午夜（ utctDayTime ）以來的秒數utctDayTime 。 這是一個GHCi會話，展示如何訪問當天：

ghci > import Data.Time
ghci > time <- getCurrentTime
ghci > :t time
time :: UTCTime
ghci > utctDay time
2016-04-30
ghci > :t utctDay time
utctDay time :: Day

一旦您有權訪問該Day ，您就可以使用標准比較函數（ > ， >= == ， <和<= ）：

ghci > t1 <- getCurrentTime
ghci > t2 <- getCurrentTime
ghci > t1
2016-04-30 21:59:06.808488 UTC
ghci > t2
2016-04-30 21:59:11.920389 UTC
ghci > (utctDay t1) >= (utctDay t2)
True

您可能還想查看Haddocks for UTCTime 。