FreeVBCode code snippet: Convert a Date to a Julian Date (one-line function)