Julian Date
 

Dear all
I hope I addressing the correct group. Is there a way to
program excel to fill an array with the julian date
example.

If activecell.value < " " then ...
actuvecell = Julian Date (today = 216)
End if

thanks
jer

Julian Date
 

jer,

Try

ActiveCell = Int(Now) - DateSerial(Year(Now), 1, 0)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"jer" wrote in message
...
Dear all
I hope I addressing the correct group. Is there a way to
program excel to fill an array with the julian date
example.

If activecell.value < " " then ...
actuvecell = Julian Date (today = 216)
End if

thanks
jer

Julian Date
 

On Mon, 4 Aug 2003 12:05:25 -0700, "jer" wrote:

Dear all
I hope I addressing the correct group. Is there a way to
program excel to fill an array with the julian date
example.

If activecell.value < " " then ...
actuvecell = Julian Date (today = 216)
End if

thanks
jer

You seem to be using a definition of Julian Date as being the day number of the
current year.

If that is the case, then:

=TODAY()-DATE(YEAR(TODAY()),1,0)

will give the desired result.


--ron

Julian Date
 

On Mon, 4 Aug 2003 12:05:25 -0700, "jer" wrote:

Dear all
I hope I addressing the correct group. Is there a way to
program excel to fill an array with the julian date
example.

If activecell.value < " " then ...
actuvecell = Julian Date (today = 216)
End if

thanks
jer

Sorry, I forgot this was the programming group when I gave you a worksheet
formula. Chip's formula is the same as mine, but in VBA.


--ron

Julian Date
 

Thanks Chip, the formula works just fine
jer
-----Original Message-----
jer,

Try

ActiveCell = Int(Now) - DateSerial(Year(Now), 1, 0)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"jer" wrote in message
...
Dear all
I hope I addressing the correct group. Is there a way
to
program excel to fill an array with the julian date
example.

If activecell.value < " " then ...
actuvecell = Julian Date (today = 216)
End if

thanks
jer


.

Julian Date
 

Thanks Chip, the formula works just fine
jer
-----Original Message-----
jer,

Try

ActiveCell = Int(Now) - DateSerial(Year(Now), 1, 0)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"jer" wrote in message
...
Dear all
I hope I addressing the correct group. Is there a way
to
program excel to fill an array with the julian date
example.

If activecell.value < " " then ...
actuvecell = Julian Date (today = 216)
End if

thanks
jer


.