当月和每月的数量天数

Question

我有两个问题:

我怎样才能获得haskell的当前年份(不是日期)？

我怎样才能在某个月某个月获得数量天数？例如04.2011已经有30天了.

Answer 1

这将为您提供年，月和日：

import Data.Time.Clock
import Data.Time.Calendar

date :: IO (Integer,Int,Int) -- :: (year,month,day)
date = getCurrentTime >>= return . toGregorian . utctDay

资料来源：http : //www.haskell.org/haskellwiki/Date

Date.Time.Calendar中有一个名为gregorianMonthLength的函数，类型为Integer-> Int-> Int。需要一年零一个月作为参数，并根据需要返回天数。 http://www.haskell.org/ghc/docs/7.0.2/html/libraries/time-1.2.0.3/Data-Time-Calendar.html

一个完整的例子：

import Data.Time.Clock
import Data.Time.Calendar

date :: IO (Integer,Int,Int) -- :: (year,month,day)
date = getCurrentTime >>= return . toGregorian . utctDay

main = do
    (year, month, day) <- date
    putStrLn $ "Days in this month: " ++ (show $ gregorianMonthLength year month)