Haskell:
การคำนวณวันที่ในอนาคตหรืออดีต

import Data.Time

-- เพิ่มวันให้กับวันที่ปัจจุบัน
addDaysToCurrent :: Integer -> IO Day
addDaysToCurrent n = do
  today <- getCurrentTime
  timezone <- getCurrentTimeZone
  let localToday = utcToLocalTime timezone today
  return $ addDays n (localDay localToday)

-- การใช้งาน: addDaysToCurrent 10 เพื่อเพิ่ม 10 วันให้กับวันที่ปัจจุบัน

-- คำนวณวันที่ในอนาคตหรืออดีตโดยการเพิ่มหรือลบวัน
calculateDate :: Day -> Integer -> Day
calculateDate start n = addDays n start

-- ตัวอย่างการใช้งาน:
-- let futureDate = calculateDate (fromGregorian 2023 1 1) 90

-- การจัดการกับเดือนและปี เราใช้ `addGregorianMonthsClip` และ `addGregorianYearsClip`
calculateDateMonths :: Day -> Integer -> Day
calculateDateMonths start n = addGregorianMonthsClip n start

-- การใช้งาน:
-- let futureMonth = calculateDateMonths (fromGregorian 2023 1 1) 2

-- การแสดงผลวันที่ในรูปแบบ YYYY-MM-DD
printFormattedDate :: Day -> IO ()
printFormattedDate date = putStrLn $ formatTime defaultTimeLocale "%F" date

-- การใช้งาน:
-- printFormattedDate futureDate