Julian Dates (not Dicks)

[SmagO]

In VB, is there a command that will give you the Julian date? i.e. the 320th day in the year, or is there a way that I can create the Julian date from other functions?
Thanks

[JordanChris]

You might find that DateDiff gives you what you want.
Get the difference in days between Now and the start of the year.

[vbud]

try

Dim JulianDate as Long
 
JulianDate = (Date - DateSerial(Year(Date), 1, 1)) + 1

[Hack]

Private Sub ConvertDateToJulian(MyDate As String)
Dim JYear As Integer
Dim JDate As String
JYear = Right(MyDate, 1)
JDate = Right(MyDate, 1) + Format(DateDiff("y", "01-Jan-" & JYear, MyDate) + 1, "0##")
MsgBox JDate
End Sub
 
Private Sub Command1_Click()
ConvertDateToJulian Text1.Text
End Sub

[krtxmrtz]

Check http://www.nr.com/julian.html and download the page. Then you can open the document in a text editor and browse through the javascript code that you can convert to vb if it suits you.

[yrwyddfa]

It's not highly polished (or either finished) but the Julian/Gregorian stuff works . . .

[mel_flynn]

Try this:

    firstOfYear = "01/01/" & Year(Now)
    noOfDays = DateDiff("d", firstOfYear, Date + 1)

[yrwyddfa]

...