Public Function DateTimeToJulianDay( _ ByVal vDateTime As Variant _ ) As Variant
DateTimeToJulianDay(#1/1/1899#) = 2414655.5 DateTimeToJulianDay(#1/1/1899 9:00#) = 2414655.875 DateTimeToJulianDay(#1/1/1965#) = 2438761.5 DateTimeToJulianDay(#1/1/1965 9:00#) = 2438761.875vDateTime: The date/time value whose Julian day number is returned. Function returns Null if vDateTime is Null or cannot be fixed up to a Date.
Note: This function DOES support pre-1900 Date/time values.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.