| Copyright | Alexander Ignatyev 2016 |
|---|---|
| Safe Haskell | Safe |
| Language | Haskell2010 |
Data.Astro.Time.JulianDate
Description
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
Synopsis
- newtype JulianDate = JD TimeBaseType
- julianStartDateTime :: JulianDate
- data LocalCivilTime = LCT {}
- data LocalCivilDate = LCD {}
- type TimeBaseType = Double
- numberOfDays :: JulianDate -> JulianDate -> TimeBaseType
- numberOfYears :: JulianDate -> JulianDate -> TimeBaseType
- numberOfCenturies :: JulianDate -> JulianDate -> TimeBaseType
- addHours :: DecimalHours -> JulianDate -> JulianDate
- fromYMD :: Integer -> Int -> Int -> JulianDate
- fromYMDHMS :: Integer -> Int -> Int -> Int -> Int -> TimeBaseType -> JulianDate
- toYMDHMS :: JulianDate -> (Integer, Int, Int, Int, Int, TimeBaseType)
- dayOfWeek :: JulianDate -> Int
- splitToDayAndTime :: JulianDate -> (JulianDate, JulianDate)
- lctFromYMDHMS :: DecimalHours -> Integer -> Int -> Int -> Int -> Int -> TimeBaseType -> LocalCivilTime
- lctToYMDHMS :: LocalCivilTime -> (Integer, Int, Int, Int, Int, TimeBaseType)
- lcdFromYMD :: DecimalHours -> Integer -> Int -> Int -> LocalCivilDate
- printLctHs :: LocalCivilTime -> String
Documentation
newtype JulianDate Source #
A number of days since noon of 1 January 4713 BC
Constructors
| JD TimeBaseType |
Instances
| Eq JulianDate Source # | |
Defined in Data.Astro.Time.JulianDate | |
| Num JulianDate Source # | |
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 Source # | |
Defined in Data.Astro.Time.JulianDate Methods showsPrec :: Int -> JulianDate -> ShowS # show :: JulianDate -> String # showList :: [JulianDate] -> ShowS # | |
julianStartDateTime :: JulianDate Source #
Beginning of the Julian Period
data LocalCivilTime Source #
Represents Local Civil Time
Constructors
| LCT | |
Fields | |
Instances
| Eq LocalCivilTime Source # | |
Defined in Data.Astro.Time.JulianDate Methods (==) :: LocalCivilTime -> LocalCivilTime -> Bool # (/=) :: LocalCivilTime -> LocalCivilTime -> Bool # | |
| Show LocalCivilTime Source # | |
Defined in Data.Astro.Time.JulianDate Methods showsPrec :: Int -> LocalCivilTime -> ShowS # show :: LocalCivilTime -> String # showList :: [LocalCivilTime] -> ShowS # | |
data LocalCivilDate Source #
Local Civil Date, used for time conversions when base date is needed
Constructors
| LCD | |
Fields | |
Instances
| Eq LocalCivilDate Source # | |
Defined in Data.Astro.Time.JulianDate Methods (==) :: LocalCivilDate -> LocalCivilDate -> Bool # (/=) :: LocalCivilDate -> LocalCivilDate -> Bool # | |
type TimeBaseType = Double Source #
numberOfDays :: JulianDate -> JulianDate -> TimeBaseType Source #
Return number of days since the first argument till the second one
numberOfYears :: JulianDate -> JulianDate -> TimeBaseType Source #
Return number of years since the first argument till the second one
numberOfCenturies :: JulianDate -> JulianDate -> TimeBaseType Source #
Return number of centuries since the first argument till the second one
addHours :: DecimalHours -> JulianDate -> JulianDate Source #
add Decimal Hours
fromYMD :: Integer -> Int -> Int -> JulianDate Source #
Create Julian Date. It takes year, month [1..12], Day [1..31].
fromYMDHMS :: Integer -> Int -> Int -> Int -> Int -> TimeBaseType -> JulianDate Source #
Create Julian Date. It takes year, month [1..12], Day [1..31], hours, minutes, seconds.
toYMDHMS :: JulianDate -> (Integer, Int, Int, Int, Int, TimeBaseType) Source #
It returns year, month [1..12], Day [1..31], hours, minutes, seconds.
dayOfWeek :: JulianDate -> Int Source #
Get Day of the Week: 0 is for Sunday, 1 for Monday and 6 for Saturday
splitToDayAndTime :: JulianDate -> (JulianDate, JulianDate) Source #
Extract Day and Time parts of Date
lctFromYMDHMS :: DecimalHours -> Integer -> Int -> Int -> Int -> Int -> TimeBaseType -> LocalCivilTime Source #
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) Source #
Get from LocalCivilTime local year, local month, local day, local hours, local minutes and local seconds.
lcdFromYMD :: DecimalHours -> Integer -> Int -> Int -> LocalCivilDate Source #
printLctHs :: LocalCivilTime -> String Source #
Print local civil time in machine readable format