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.