添加减去和比较天数

给定 Day，我们可以执行简单的算术和比较，例如添加：

import Data.Time

addDays 1 (fromGregorian 2000 1 1)
-- 2000-01-02
addDays 1 (fromGregorian 2000 12 31)
-- 2001-01-01

减去：

addDays (-1) (fromGregorian 2000 1 1)
-- 1999-12-31

addDays (-1) (fromGregorian 0 1 1)
-- -0001-12-31
-- wat

甚至找到差异：

diffDays (fromGregorian 2000 12 31) (fromGregorian 2000 1 1)
365

请注意，订单很重要：

diffDays (fromGregorian 2000 1 1) (fromGregorian 2000 12 31)
-365