Convert DAY IN YEAR to date

[fdnyfish via AccessMonster.com]

I have a number "312" and I know it's year 2007. How do I figure convert 312
to the 312th day of 2007?

 

[Klatuu]

With the year and the day number, what you have is a Julian date. Here is a
function that will convert a Julian date to a serial date:

Public Function JulianToSerial(lngJulianDate As Long) As Date
Dim serialdate As Date
JulianToSerial = DateSerial(((Year(Date) \ 10) * 10) + Int(lngJulianDate
/ 1000), 1, lngJulianDate Mod 1000)
End Function

 

[fdnyfish via AccessMonster.com]

no way to do this in a query?

With the year and the day number, what you have is a Julian date. Here is a
function that will convert a Julian date to a serial date:

Public Function JulianToSerial(lngJulianDate As Long) As Date
Dim serialdate As Date
JulianToSerial = DateSerial(((Year(Date) \ 10) * 10) + Int(lngJulianDate
/ 1000), 1, lngJulianDate Mod 1000)
End Function

 

[Klatuu]

You can call a function in a query. The function has to be a Public function
in a standard module. Then you use a calculated field to return the results:

RealDate: JulianToSerial(Clng(Format(Year(SomeDAte),"##") + DayNumber))

 

[John W. Vinson]

I have a number "312" and I know it's year 2007. How do I figure convert 312
to the 312th day of 2007?

Klatuu's code may be overkill for this case: you can put a calculated field in
a Query

TheDate: DateSerial(Year(Date()), 1, [yournumberfield])


John W. Vinson [MVP]

 

[Klatuu]

Now why didn't I think of that?
--
Dave Hargis, Microsoft Access MVP

I have a number "312" and I know it's year 2007. How do I figure convert 312
to the 312th day of 2007?

Klatuu's code may be overkill for this case: you can put a calculated field in
a Query

TheDate: DateSerial(Year(Date()), 1, [yournumberfield])


John W. Vinson [MVP]