Convert Date to Julian Date 1

[vamoose]

Hello, I am using Access 2003 and the following VBA code to convert todays date into Julian date. But this keeps producing the Julian date of: 1999364 no matter what the actual date is.

Function DateToJulian(ByVal dateval): DateToJulian = Year(dateval) * 1000 + DatePart("y", dateval): End Function

Function StartUp()

intJToday = DateToJulian(Today): DateCode = Mid(intJToday, 3, 5)

Any ideas or suggestions please. Thank you.

 

[Golom]

The function for the current date is "Date()" ... not "Today