I've been presented with a numeric field in this format 2003032

The 2003 is the year. The 032 is the 32nd day of the year which would
translate this date into 02/01/2003.

Is there anything set up in Foxpro to convert this for me or does
anyone have a good idea of how to do it?

Thanks.

Monica

"Monica J. Braverman" <monica (AT) datashark (DOT) net> schrieb im Newsbeitrag
news:d70cd025.0405241824.76f37370 (AT) posting (DOT) google.com...
Hi, This seems to work

? DayNumber(2003032)

Function DayNumber(tnCustomDate)
Local nYear, nDayNo
nYear = Floor(m.tnCustomDate / 1000)
nDayNo = m.tnCustomDate - m.nYear * 1000

Return Date(m.nYear,1,1) + m.nDayNo - 1
EndFunc


hth
-Stefan

Assuming the field name is julian_date which contains the 7 character string
'2003032' where the first four character are the year and the last three
character are the day number, then the conversion to get the data value can
be as follows:
SYS(10,VAL(SYS(11,EVAL('{^'+SUBSTR(julian_date,1,4 )+'-01-01}')))+VAL(SUBSTR(
julian_date,5,3)))


--
Robert Hoogstraat
Software Intellect

"Monica J. Braverman" <monica (AT) datashark (DOT) net> wrote

Error correction, the conversion should read:
SYS(10,VAL(SYS(11,EVAL('{^'+SUBSTR(julian_date,1,4 )+'-01-01}')))+VAL(SUBSTR(
julian_date,5,3))-1)


Robert

monica (AT) datashark (DOT) net (Monica J. Braverman) wrote:

yyddd="2003032"
yymmdd=date(val(left(yyddd,4)),1,1)+(val(right(yyd dd,3))-1)

Sincerely,

Gene Wirchenko


Computerese Irregular Verb Conjugation:
I have preferences.
You have biases.
He/She has prejudices.