DEFINE VARIABLE lvDate AS DATE NO-UNDO.
lvDate = TODAY.
MESSAGE (lvDate - DATE(1,1,YEAR(lvDate)) + 1)
VIEW-AS ALERT-BOX INFO BUTTONS OK.
Woops I did not see that you had posted the code.Essentially what I posted above, but mine will work for any date in any year.