/*=======( Umwandeln eines Datums ins julianische Format )=======*/
/*=====( Author: Janosch R. Kowalczyk, URL: www.jakoxx.de )======*/
JulianDate: Procedure
Parse Arg targetDate, targetFormat

If targetFormat = '' Then targetFormat = "N"
If targetDate = '' Then targetDate = Date( targetFormat )

Parse Value Date( "N", targetDate, targetFormat ) With  . . jjjj .
ddd = Right( Date( "D", targetDate, targetFormat ), 3, "0" )

/* For Mainframe replace "||" in the next line by "!!": */
Return jjjj || "." || ddd
/*** End JulianDate ***/