Newest functions Upload a function Leave a tip My account

There are 2,572 functions in this library.

DateToJD ( thedate ; gregorian )

converts a date into a Julian Day number

  Average rating: 4.5 (31 votes) Log in to vote

Theo Ros - Show more from this author

  Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/* ---------------------------------------------------------- Returns a Julian Daynumber for date in 'thedate' this number is based on November 24 -4713 (=day zero Gregorian) which is January 1 -4712 (January 1 4713 BC) Julian. In: thedate - a FileMaker Date field. if empty, the function uses the current date gregorian - optional: if <> 0 or empty use Gregorian calendar if 0 use Julian calendar defaults to Gregorian calendar Return type: Number Syntax: DateToJD ( thedate ) Return type: Number DateToJD ( Get ( CurrentDate ) ; 1 ) returns 2453521 if today is May 30, 2005 Author - Theo Ros ----------------------------------------------------------*/ Let ( [ dte = If ( IsEmpty ( thedate ) ; Get ( CurrentDate ) ; thedate ) ; y = Year ( dte ) ; m = Month ( dte ) ; d = Day ( dte ) ; jm = Int ( ( 14 - m ) / 12 ) ; // first calculate for the Julian calendar jd = d + Int ( 367 * ( m + ( jm * 12 ) - 2) / 12 ) + Int ( 1461 * ( y + 4800 - jm ) / 4 ) - 32113 ] ; // if needed, correct this for the Gregorian calendar If ( IsEmpty ( gregorian ) or gregorian <> 0 ; jd - ( Int ( 3 * Int ( ( y + 100 - jm ) / 100) / 4 ) - 2 ) ; jd ) ) Click to copy

Returns a Julian Daynumber for date in 'thedate'
this number is based on November 24 -4713 (=day zero Gregorian)
which is January 1 -4712 (January 1 4713 BC) Julian.

In: thedate - a FileMaker Date field.
if empty, the function uses the current date
gregorian - optional: if <> 0 or empty use Gregorian calendar
if 0 use Julian calendar
defaults to Gregorian calendar

Return type: Number
Syntax: DateToJD ( thedate )
Return type: Number

 

Comments

Log in to post comments.

 

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

Support this website.

This library has been a free commmunity resource for FileMaker users and developers for 21 years. It receives no funding and has no advertisements. If it has helped you out, I'd really appreciate it if you could contribute whatever you think it's worth: