将NominalDiffTime打印为小时，分钟和秒

Question

我很惊讶以前没有人问过这个问题，但是......我怎么能在几小时，几分钟和几秒钟内轻松打印NominalDiffTime？ （可能天，如果碰巧那么久......）

由于未知原因，Show实例打印总秒数，这显然是无用的。 （多长时间是13,055.22秒？那几分钟？一天？半小时？我不知道！）

FormatTime课程，但它并不适用于NominalDiffTime。

您似乎可以使用floor方法将总秒数作为实际的数字，但那么您如何使用它？

据我所知，DiffTime也没有帮助。

必须才能真正打印持续时间......

Answer 1

您可以打印DiffTime - 实际上代表持续时间，可能是您应该使用的类型 - 通过TimeOfDay。正确地掌握DiffTime实际上有点棘手;你需要：

• 闰秒表。 type documentation，a page with a leap second table;您希望有一种方法让您的程序在运行时读取它，因为它们每隔几个月就会更改一次。
• 从那里，您可以使用utcToTAITime转换为AbsoluteTime和
• diffAbsoluteTime获取DiffTime和
• timeToTimeOfDay让图书馆为你做你的divmod，最后
• formatTime打印此内容。

Answer 2

floor [1]为您提供（如您所说）秒数，然后您可以使用div和mod转换为小时，分钟和秒。

例如：

floor ndt `div` 60 -- minutes, which may be more than 59
floor ndt `mod` 60 -- seconds

[1]与fromEnum不同，后者是＆＃34;转换函数＆＃34;但不会转换为秒，这与文档说的相反。

Answer 3

myFormatDiffTime :: NominalDiffTime -> String
myFormatDiffTime = formatTime defaultTimeLocale "%H:%M:%S" . posixSecondsToUTCTime

Answer 4

time-1.10对NominalDiffTime具有formatTime支持。

formatTime defaultTimeLocale "%H:%M:%S" ndt