當前年和月中的天數

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)