Is there a day number in a year 4

[ZOR]

I am trying to make a day planner for a year. Is there such a thing as a daynumber of the year. If so, if I have 12/03/2003 how do I get the DayNumber. If there is no such thing, any ideas how it could be got. Many thanks.

 

[SkipVought]

ZOR,

I cant find a Julian Function. but how bout this...

Function DayOfYear(dte As Date) As Integer
    DayOfYear = dte - DateSerial(Year(dte), 1, 1)
End Function

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com

 

[SkipVought]

Think I need to add 1 to the return value...

Function DayOfYear(dte As Date) As Integer
    DayOfYear = dte - DateSerial(Year(dte), 1, 1) + 1
End Function

sorry!

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com

 

[Golom]

Or the format alternative

Function DayOfYear(dte As Date) As Integer
    DayOfYear = Val ( Format ( dte, "y" ) )
End Function

 

[SkipVought]

Golom,

I like your solution! ==>*

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

Skip,

http://www.TheOfficeExperts.com

 

[ZOR]

You both did well guys. Star for you both. Do you happen to know how to get a year date back from a day number. I would presume it would have to be given the year to work with. Many thanks again

 

[DrJavaJoe]

You could do something like:
DateAdd("d", DayOfYear, "1/1/" & strYear)

 

[DrJavaJoe]

actually you'll have to subtract a day from DayOfYear because DayOfYear = 1 represents Jan. 1 and you would want to add 1 day to it.

DateAdd("d", DayOfYear -1, "1/1/" & strYear)

 

[ZOR]

Many thanks, getting my date back works splendid. You too have a star, and thanks again