>You can substract the first day of the year from the curranet date
>
> FUNCTION DayOfTheYear(dDate)
> SET DATE GERMAN
> fday = CTOD("01.01."+STR(YEAR(dDate),4))
>RETURN dDate - fDay + 1
>
I believe that if VFP6 or later is available, the use of CTOD() should be discouraged, in favor of the safer, and easier, date() function.
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)