>I am using Visual Foxpro 6.0 and I want to convert Julain Date (format CYYDDD : C = Century, YY = Year, DDD = Days 1 to 366) to dd/mm/yyyy. Pl. Help. Thanks in Advance.
lparameters tcYYYYDDD
assert pcount() = 1 and vartype(tcYYYYDDD) = "C" and len(tcYYYYDDD) = 7 ;
message "Wrong parameter passed! cvtyyyydddd2date(tcYYYYDDD)"
if pcount() = 0 or vartype(tcYYYYDDD) != "C" or len(tcYYYYDDD) != 7
return {}
endif
LOCAL nDays
nDays = VAL(SUBST(tcYYYYDDD,5))
RETURN EVAL("{^" + LEFT(tcYYYYDDD,4) + "-01-01}") + nDays - 1
