Haskell 如何比较两个UTCTime值并以天为单位计算差异？

我想从UTCTime-UTCTime中拿走。我发现了以下功能：

diffUTCTime:：UTCTime->UTCTime->NominalDiffTime

但是我在

NominalDiffTime

中得到差异，我需要在天中得到差异

这有什么功能吗

---

除了

nominalDiffTimeToSeconds

NominalDiffTime

是一个分数，因此您可以将结果除以

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

---

以整天为单位，或以浮点形式（考虑到剩余的小时数等）？与

NominalDiffTime

或

nominalDiffTimeToSeconds

的

Pico

相比，您更喜欢哪种类型？（…为什么？）。在我的代码中，我从用户输入的日期取当前日期。示例：//“请输入日期”2018-10-06，从该日期起，我取下当前日期，并以天为单位获得差值，即该数字为4