Vocabulary
calendar

Inputs and outputs

year	an integer
month	an integer
day	an integer
n	an integer

Word description
Calculates the Julian day number from a year, month, and day. The difference between two Julian day numbers is the number of days that have elapsed between the two corresponding dates.



See also
julian-day-number>date

Definition

USING: locals math ;

IN: calendar

:: julian-day-number ( year month day -- n )
14 month - 12 /i :> a year 4800 + a - :> y month 12 a * +
3 - :> m day 153 m * 2 + 5 /i + 365 y * + y 4 /i + y 100 /i
- y 400 /i + 32045 - ;