Haskell 日期解析和格式化

Question

我一直在使用 Haskell 的 Date.Time 模块来解析像 12-4-1999 或 1-31-1999 这样的日期。我尝试过：

parseDay :: String -> Day
parseDay s = readTime defaultTimeLocale "%m%d%Y" s

而且我认为它希望我的月份和日期恰好有两位数而不是 1 或 2...

执行此操作的正确方法是什么？

另外，我想以这种格式打印我的一天：12/4/1999 Haskell 的方式是什么？

感谢您的帮助。

Answer 1

您可以使用Data.Time.Format 中的函数读取日期。我在下面包含了一个简单的程序，它以一种格式读入日期并以两种不同的格式写回该日期。要以单位数月份或天数读取，请在 % 和格式说明符之间放置一个连字符 (-)。换句话说，要解析 9-9-2012 等格式的日期，请在 % 和格式字符之间包含一个连字符。因此，要解析“9-9-2012”，您需要格式字符串“%-d-%-m-%Y”。

注意：考虑到 Haskell 包的发展速度，这个答案有点过时了。也许是时候寻找更好的解决方案了。我不再写 Haskell，所以如果其他人创建了另一个答案，那就太好了，因为这个问题在 Google 结果中排名很高。

自 2017 年 7 月起，鼓励您使用 parseTimeOrError。代码变为：

import Data.Time

main =
  do
    let dateString = "26 Jan 2012 10:54 AM"
    let timeFromString = parseTimeOrError True defaultTimeLocale "%d %b %Y %l:%M %p" dateString :: UTCTime
    -- Format YYYY/MM/DD HH:MM
    print $ formatTime defaultTimeLocale "%Y/%m/%d %H:%M" timeFromString
    -- Format MM/DD/YYYY hh:MM AM/PM
    print $ formatTime defaultTimeLocale "%m/%d/%Y %I:%M %p" timeFromString

    -- now for a string with single digit months and days:
    let dateString = "9-8-2012 10:54 AM"
    let timeFromString = parseTimeOrError True defaultTimeLocale "%-d-%-m-%Y %l:%M %p" dateString :: UTCTime
    -- Format YYYY/MM/DD HH:MM
    print $ formatTime defaultTimeLocale "%Y/%m/%d %H:%M" timeFromString

.cabal 文件中的版本：
构建依赖：基础 >=4.9 && <4.10, time >= 1.6.0.1

截至 2014 年 8 月，最好从 System.Locale 包获取语言环境，而不是从 Haskell 1998 区域设置包。考虑到这一点，上面的示例代码现在如下所示：

import System.Locale
import Data.Time
import Data.Time.Format

main =
  do
    let dateString = "26 Jan 2012 10:54 AM"
    let timeFromString = readTime defaultTimeLocale "%d %b %Y %l:%M %p" dateString :: UTCTime
    -- Format YYYY/MM/DD HH:MM
    print $ formatTime defaultTimeLocale "%Y/%m/%d %H:%M" timeFromString
    -- Format MM/DD/YYYY hh:MM AM/PM
    print $ formatTime defaultTimeLocale "%m/%d/%Y %I:%M %p" timeFromString

    -- now for a string with single digit months and days:
    let dateString = "9-8-2012 10:54 AM"
    let timeFromString = readTime defaultTimeLocale "%-d-%-m-%Y %l:%M %p" dateString :: UTCTime
    -- Format YYYY/MM/DD HH:MM
    print $ formatTime defaultTimeLocale "%Y/%m/%d %H:%M" timeFromString

输出现在如下所示：

"2012/01/26 10:54"
"01/26/2012 10:54 AM"
"2012/08/09 10:54"

原始，2012 年 1 月 答案：

import Locale
import Data.Time
import Data.Time.Format

main =
  do
    let dateString = "26 Jan 2012 10:54 AM"
    let timeFromString = readTime defaultTimeLocale "%d %b %Y %l:%M %p" dateString :: UTCTime
    -- Format YYYY/MM/DD HH:MM
    print $ formatTime defaultTimeLocale "%Y/%m/%d %H:%M" timeFromString
    -- Format MM/DD/YYYY hh:MM AM/PM
    print $ formatTime defaultTimeLocale "%m/%d/%Y %I:%M %p" timeFromString

输出如下所示：

"2012/01/26 10:54"
"01/26/2012 10:54 AM"

Data.Time.Format可从 time 包中获取。如果您需要解析个位数的月份或日期，换句话说，像 9-9-2012 这样的日期，则在 % 和格式字符之间包含一个连字符。因此，要解析“9-9-2012”，您需要格式字符串“%-d-%-m-%Y”。

Answer 2

使用 %-d 和 %-m 而不是 %d 和 %m 意味着单位数日/月是可以的，即

parseDay :: String -> Day
parseDay s = readTime defaultTimeLocale "%-m%-d%Y" s

这可能就是 sclv 的意思，但他的评论对我来说有点太神秘了。

Answer 3

从最近开始，我建议使用 strptime 包来满足您的所有日期/时间解析需求。

Answer 4

这是一些旧代码，其中包含两种类型的自制日期，仅包含 YMD 的日期，没有时间或时区等。

它展示了如何使用 readDec 将字符串解析为日期。请参阅 parseDate 函数。使用readDec，读取数字，前导空格（因为过滤器）或前导零并不重要，并且解析停止于第一个非数字。然后使用 tail （跳过非数字）到达日期的下一个数字字段。

它显示了几种输出格式设置的方法，但最灵活的方法是使用 Text.printf。请参阅实例显示 LtDate。有了printf，一切皆有可能！

import Char
import Numeric
import Data.Time.Calendar
import Data.Time.Clock
import Text.Printf
-- ================================================================
--                        LtDate
-- ================================================================
type Date=(Int,Int,Int)
data LtDate = LtDate 
  { ltYear :: Int,
    ltMonth:: Int,
    ltDay  :: Int
  } 
instance Show LtDate 
  where show d = printf "%4d-%02d-%02d" (ltYear d) (ltMonth d) (ltDay d)

toLtDate :: Date -> LtDate
toLtDate (y,m,d)= LtDate y m d

-- =============================================================
--                         Date
-- =============================================================
-- | Parse a String mm/dd/yy into tuple (y,m,d)
-- accepted formats
--
-- @
-- 12\/01\/2004
-- 12\/ 1\' 4
-- 12-01-99
-- @
parseDate :: String -> Date
parseDate s = (y,m,d)
    where [(m,rest) ] = readDec (filter (not . isSpace) s)
          [(d,rest1)] = readDec (tail rest)
          [(y, _)   ] = parseDate' rest1

-- | parse the various year formats used by Quicken dates
parseDate':: String -> [(Int,String)]
parseDate' (y:ys) =
  let [(iy,rest)] = readDec ys
      year=case y of '\''      -> iy + 2000
                     _  ->
                       if iy < 1900 then  iy + 1900 else iy
   in [(year,rest)]

-- | Note some functions sort by this format
-- | So be careful when changing it.
showDate::(Int, Int, Int) -> String
showDate (y,m,d)= yy ++ '-':mm ++ '-':dd
    where dd=zpad (show d)
          mm = zpad (show m)
          yy = show y
          zpad ds@(_:ds')
           | ds'==[] = '0':ds
           | otherwise = ds


-- | from LtDate to Date
fromLtDate :: LtDate -> Date
fromLtDate  lt = (ltYear lt, ltMonth lt, ltDay lt)

一旦有了 (Y,M,D)，就可以轻松转换为 Haskell 库类型以进行数据操作。使用完 HS 库后，可以使用 Text.printf 来设置显示日期的格式。