Data.Time.Calendar.Jalaali

Functions for converting Jalaali and Gregorian calendar systems.

Documentation

toJalaali :: GregorianYear -> GregorianMonth -> GregorianDay -> JalaaliDate

Converts a Gregorian date to Jalaali.

toGregorian :: JalaaliYear -> JalaaliMonth -> JalaaliDay -> GregorianDate

Converts a Jalaali date to Gregorian.

isValidJalaaliDate :: JalaaliYear -> JalaaliMonth -> JalaaliDay -> Bool

Checks whether a Jalaali date is valid or not.

isJalaaliLeapYear :: JalaaliYear -> Bool

Is this a leap year or not?

jalaaliMonthLength :: JalaaliYear -> JalaaliMonth -> Int

Number of days in a given month in a Jalaali year.

jalCal :: JalaaliYear -> (LeapOffset, GregorianYear, DayInMarch)

This function determines if the Jalaali (Persian) year is leap (366-day long) or is the common year (365 days), and finds the day in March (Gregorian calendar) of the first day of the Jalaali year (jy).

param jy Jalaali calendar year (-61 to 3177) return leap: number of years since the last leap year (0 to 4) gy: Gregorian year of the beginning of Jalaali year march: the March day of Farvardin the 1st (1st day of jy) see: http:www.astro.uni.torun.pl~kbPapersEMPPersianC-EMP.htm see: http:www.fourmilab.chdocumentscalendar/

j2d :: JalaaliYear -> JalaaliMonth -> JalaaliDay -> JulianDayNumber

Converts a date of the Jalaali calendar to the Julian Day number.

param jy Jalaali year (1 to 3100) param jm Jalaali month (1 to 12) param jd Jalaali day (1 to 29/31) return Julian Day number

d2j :: JulianDayNumber -> JalaaliDate

Converts the Julian Day number to a date in the Jalaali calendar.

param jdn Julian Day number return jy: Jalaali year (1 to 3100) jm: Jalaali month (1 to 12) jd: Jalaali day (1 to 29/31)

g2d :: GregorianYear -> GregorianMonth -> GregorianDay -> JulianDayNumber

Calculates the Julian Day number from Gregorian or Julian calendar dates. This integer number corresponds to the noon of the date (i.e. 12 hours of Universal Time). The procedure was tested to be good since 1 March, -100100 (of both calendars) up to a few million years into the future.

param gy Calendar year (years BC numbered 0, -1, -2, ...) param gm Calendar month (1 to 12) param gd Calendar day of the month (1 to 282930/31) return Julian Day number

d2g :: JulianDayNumber -> GregorianDate

Calculates Gregorian and Julian calendar dates from the Julian Day number (jdn) for the period since jdn=-34839655 (i.e. the year -100100 of both calendars) to some millions years ahead of the present.

param jdn Julian Day number return gy: Calendar year (years BC numbered 0, -1, -2, ...) gm: Calendar month (1 to 12) gd: Calendar day of the month M (1 to 282930/31)

type JalaaliYear = Int

An Int representing a Jalaali year.

type JalaaliMonth = Int

An Int representing a Jalaali month (1-based).

type JalaaliDay = Int

An Int representing a Jalaali day.

type GregorianYear = Int

An Int representing a Gregorian year.

type GregorianMonth = Int

An Int representing a Gregorian month (1-based).

type GregorianDay = Int

An Int representing a Gregorian day.

type JulianDayNumber = Int

An Int representing a Julian Day Number

type DayInMarch = Int

An Int representing the day in March when converting a Jalaali year to Gregorian.

type LeapOffset = Int

An Int representing number of years since the last leap year.

type JalaaliDate = (JalaaliYear, JalaaliMonth, JalaaliDay)

A tuple for a Jalaali date.

type GregorianDate = (GregorianYear, GregorianMonth, GregorianDay)

A tuple for a Gregorian date.