Thanks to all! I used this code from briangriffin and it worked great:
whileprintingrecords;
numbervar x;
numbervar y;
x := 2000 + tonumber(mid(totext({juliandate},"#",0),2,2));
y := tonumber(right(totext({juliandate},"#",0),3)) - 1;
dateadd("d",y,date(x,1,1))
Nice job....thanks again!