Function Juliandate(IDate : Date) Jdate : Integer C/AL locals Name DataType Subtype Length year Integer Firstofjan Date year := DATE2DMY(IDate,3); Firstofjan := DMY2DATE(01 , 01 , year); Jdate := (IDate - Firstofjan) + 1; Call the function like this MESSAGE (FORMAT(Juliandate(WORKDATE))); Here is a new version [:D]