Как взять UTCTIme из UTCTime и получить разницу в днях?

Question

Я хочу забрать из UTCTime - UTCTime.Я нашел следующую функцию:

diffUTCTime :: UTCTime -> UTCTime -> NominalDiffTime

Но я получаю разницу в NominalDiffTime, и мне нужно получить разницу в днях

Есть ли какая-либо функциядля этого?

Что-то кроме nominalDiffTimeToSeconds?!

Answer 1

NominalDiffTime является, помимо прочего, Fractional, поэтому вы можете разделить свой результат на nominalDay:

Prelude Data.Time.Clock> myDiffTime / nominalDay
2.314814814814s

. Вы можете использовать его RealFrac экземпляр для round, floor и т. Д. Это:

Prelude Data.Time.Clock> round $ myDiffTime / nominalDay
2
Prelude Data.Time.Clock> truncate $ myDiffTime / nominalDay
2
Prelude Data.Time.Clock> floor $ myDiffTime / nominalDay
2
Prelude Data.Time.Clock> ceiling $ myDiffTime / nominalDay
3