Why wouldn't you give the gent what he wants? It's not that much of a big deal.
Public Function GetJulianInc() As String
Dim jl As String, ljl As String, hival As String, lchar As String, acode As Byte
jl = Format(DatePart("y", Date), "000")
hival = DMax("jul", "Jtable"): ljl =...