如果我有这个代码：
let time = read "2013-02-03 17:00:07.687" :: UTCTime
如何从 中提取分钟和秒组件UTCTime？
问问题
426 次
2 回答
13
AUTCTime有两个组成部分：一天和一个DiffTime。您可以DiffTime使用utctDayTime或通过模式匹配来获取。从那里，您可以将其转换为TimeOfDayusing timeToTimeOfDay。然后，您只需对 进行模式匹配TimeOfDay即可获得小时、分钟和秒。
所以你可以这样做：
let TimeOfDay hours minutes seconds = timeToTimeOfDay (utctDayTime time)
您还可以使用todMin和todSec函数分别从TimeOfDay.
于 2013-03-25T04:16:59.547 回答
2
您可以使用time-lens包，它使时间和日期的操作更加容易。例如
> let time = read "2013-02-03 17:00:07.687" :: UTCTime
> getL seconds time
7.687000000000
如果你 import Data.Lens.Common，还有一个中缀版本getL：
> time ^. minutes
0
于 2013-03-26T06:37:29.997 回答