当前年和月中的天数

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 

来源：

有一个在Date.Time.Calendar称为gregorianMonthLength型整型功能 - >诠释 - >诠释。 需要一年和一个月的时间作为参数，返回天数，就像你需要的一样。 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)