Public Function JulianDate( _
ByVal vYear As Variant _
, ByVal vMonth As Variant _
, ByVal vDay As Variant _
) As Variant JulianDay(1965, 1, 1) = 2438762
JulianDay(1899, 1, 1) = 2414656
JulianDay(1776, 7, 4) = 2369916See also: JulianDay Function
DayNumber Function
DaysSinceZero FunctionvYear: Must use the full four-digit year; cannot use 96, for example, to mean 1996. Function returns Null if vYear is Null or cannot be interpreted as an integer number. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.