Data.Astro.Time.JulianDate

Julian date is the continuous count of days since noon on January 1, 4713 BC, the beginning of the Julian Period.

Examples

JulianDate

import Data.Astro.Time.JulianDate

-- 2017-06-25 9:29:00 (GMT)
jd :: JulianDate
jd = fromYMDHMS 2017 6 25 9 29 0
-- JD 2457929.895138889

LocalCiviTime and LocalCivilDate

import Data.Astro.Time.JulianDate
import Data.Astro.Types

-- 2017-06-25 10:29:00 +0100 (BST)
lct :: LocalCivilTime
lct = lctFromYMDHMS (DH 1) 2017 6 25 10 29 0
-- 2017-06-25 10:29:00.0000 +1.0

lctJD :: JulianDate
lctJD = lctUniversalTime lct
-- JD 2457929.895138889

lctTZ :: DecimalHours
lctTZ = lctTimeZone lct
-- DH 1.0

lcd :: LocalCivilDate
lcd = lcdFromYMD (DH 1) 2017 6 25

lcdJD :: JulianDate
lcdJD = lcdDate lcd
-- JD 2457929.5

lcdTZ :: DecimalHours
lcdTZ = lcdTimeZone lcd
-- DH 1.0

Documentation

newtype JulianDate

A number of days since noon of 1 January 4713 BC

Constructors

JD TimeBaseType

Instances

Eq JulianDate

Defined in Data.Astro.Time.JulianDate

Methods

(==) :: JulianDate -> JulianDate -> Bool

(/=) :: JulianDate -> JulianDate -> Bool

Num JulianDate

Defined in Data.Astro.Time.JulianDate

Methods

(+) :: JulianDate -> JulianDate -> JulianDate

(-) :: JulianDate -> JulianDate -> JulianDate

(*) :: JulianDate -> JulianDate -> JulianDate

negate :: JulianDate -> JulianDate

abs :: JulianDate -> JulianDate

signum :: JulianDate -> JulianDate

fromInteger :: Integer -> JulianDate

Show JulianDate

Defined in Data.Astro.Time.JulianDate

Methods

showsPrec :: Int -> JulianDate -> ShowS

show :: JulianDate -> String

showList :: [JulianDate] -> ShowS

julianStartDateTime :: JulianDate

Beginning of the Julian Period

data LocalCivilTime

Represents Local Civil Time

Constructors

LCT

Fields

• lctTimeZone :: DecimalHours
• lctUniversalTime :: JulianDate

Instances

Eq LocalCivilTime

Defined in Data.Astro.Time.JulianDate

Methods

(==) :: LocalCivilTime -> LocalCivilTime -> Bool

(/=) :: LocalCivilTime -> LocalCivilTime -> Bool

Show LocalCivilTime

Defined in Data.Astro.Time.JulianDate

Methods

showsPrec :: Int -> LocalCivilTime -> ShowS

show :: LocalCivilTime -> String

showList :: [LocalCivilTime] -> ShowS

data LocalCivilDate

Local Civil Date, used for time conversions when base date is needed

Constructors

LCD

Fields

• lcdTimeZone :: DecimalHours
• lcdDate :: JulianDate

Instances

Eq LocalCivilDate

Defined in Data.Astro.Time.JulianDate

Methods

(==) :: LocalCivilDate -> LocalCivilDate -> Bool

(/=) :: LocalCivilDate -> LocalCivilDate -> Bool

type TimeBaseType = Double

numberOfDays :: JulianDate -> JulianDate -> TimeBaseType

Return number of days since the first argument till the second one

numberOfYears :: JulianDate -> JulianDate -> TimeBaseType

Return number of years since the first argument till the second one

numberOfCenturies :: JulianDate -> JulianDate -> TimeBaseType

Return number of centuries since the first argument till the second one

addHours :: DecimalHours -> JulianDate -> JulianDate

add Decimal Hours

fromYMD :: Integer -> Int -> Int -> JulianDate

Create Julian Date. It takes year, month [1..12], Day [1..31].

fromYMDHMS :: Integer -> Int -> Int -> Int -> Int -> TimeBaseType -> JulianDate

Create Julian Date. It takes year, month [1..12], Day [1..31], hours, minutes, seconds.

toYMDHMS :: JulianDate -> (Integer, Int, Int, Int, Int, TimeBaseType)

It returns year, month [1..12], Day [1..31], hours, minutes, seconds.

dayOfWeek :: JulianDate -> Int

Get Day of the Week: 0 is for Sunday, 1 for Monday and 6 for Saturday

splitToDayAndTime :: JulianDate -> (JulianDate, JulianDate)

Extract Day and Time parts of Date

lctFromYMDHMS :: DecimalHours -> Integer -> Int -> Int -> Int -> Int -> TimeBaseType -> LocalCivilTime

Create LocalCivilTime from tize zone, local year, local month, local day, local hours, local minutes and local seconds.

lctToYMDHMS :: LocalCivilTime -> (Integer, Int, Int, Int, Int, TimeBaseType)

Get from LocalCivilTime local year, local month, local day, local hours, local minutes and local seconds.

lcdFromYMD :: DecimalHours -> Integer -> Int -> Int -> LocalCivilDate

printLctHs :: LocalCivilTime -> String

Print local civil time in machine readable format