How to compare two UTCTime values and get the difference in days?

Question

I want to take away from UTCTime - UTCTime. I found the following function:

diffUTCTime :: UTCTime -> UTCTime -> NominalDiffTime

But I get the difference in NominalDiffTime , and I need to get the difference in days

Is there any function for this?

Something other than nominalDiffTimeToSeconds ?!

Answer 1

NominalDiffTime is, among others, a Fractional , so you can divide your result with nominalDay :

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

You can use its RealFrac instance to round , floor , etc. it:

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