如何在Haskell中将纪元转换为公历日期时间

假设我有一个表示大纪元时间的整数，例如epoch = 1499055085，我想将其转换为UTCTimeHaskell。我怎样才能做到这一点？

在其他语言中，这是一项非常琐碎的任务，为什么在haskell中如此困难？

谁说很难？

您可以简单地使用fromIntegral :: (Integral a, Num b) => a -> b将纪元（整数）转换为POSIXTime。

接下来，我们可以使用posixSecondsToUTCTime :: POSIXTime -> UTCTime获取UTCTime，最后使用utctDay :: UTCTime -> Day来获取的天部分UTCTime。

如果您想要一个（年，月，日）元组，则可以使用该toGregorian :: Day -> (Integer,Int,Int)方法。

因此我们可以使用以下方法：

import Data.Time.Calendar(toGregorian)
import Data.Time.Clock(utctDay,UTCTime)
import Data.Time.Clock.POSIX(posixSecondsToUTCTime)

epochToUTC :: Integral a => a -> UTCTime
epochToUTC = posixSecondsToUTCTime . fromIntegral

epochToGregorian :: Integral a => a -> (Integer,Int,Int)
epochToGregorian = toGregorian . utctDay . epochToUTC

然后例如：

Main> epochToGregorian 1234567
(1970,1,15)
Main> epochToGregorian 123456789
(1973,11,29)
Main> epochToGregorian 1234567890
(2009,2,13)