Julian Date

[JBats]

I know there is a Julian Date function in Vb.Net but I don't know how to use it I'm new to VB.Net. I want to get the Julian Date of the given system date.

e.g. vDate = #4/15/2005#
m = JulianDate(vdate)
Result: 2005105

Could anybody help me how to do this? In VB6 to get the number of Days in a year I use format function (format(date,"Y")) but don't know in VB.Net

Thanks,
Jbats

[MrPolite]

I'm not sure how to answer your q exactly, but if you want to just format a dateTime object (ie, NOW) then do something like this:
DateTime.Now.ToString("d")
for a list of strings you can use to format dates look up here Date and Time Format Strings (click on Standard DateTime Format Strings on the left hand side)

[MrPolite]

I dunno what the julian calender really is but there is a class for it
System.Globalization.JulianCalendar

[Zero2Cool]

Private Function JulianToStandard(ByVal vDate As String) As Long
 
        JulianToStandard= CLng(Format(Year(vDate), "0000") + Format(DateDiff("d", CDate("01/01/" + Format(Year(vDate), "0000")), vDate) + 1, "000"))
 
End Function

Old thread, but I was trying to figure it out myself and noticed this one might not have been completely answered.

Found code snippet from
http://www.freevbcode.com/ShowCode.asp?ID=5669

[JuggaloBrotha]

Couldn't you simply re-arrange things?

Function GetJulianDate (ByVal TheDate As DateTime) As String
  Return TheDate.Year.ToString & TheDate.Month.ToString & TheDate.Day.ToString
End Function

[Clanguage]

Here is the MSDN link to the Julian Date formating and calculations
http://support.microsoft.com/kb/116281

Hope this helps

[dbasnett]

from MSDN

"The date January 1, 2001 A.D. in the Gregorian calendar is equivalent to the 19th day of December in the year 2000 A.D. in the Julian calendar.

Currently, the JulianCalendar is not used by any of the cultures supported by the CultureInfo class. Therefore, the JulianCalendar class can be used only to calculate dates in the Julian calendar."


The following has formulas:

http://scienceworld.wolfram.com/astr...ulianDate.html

[Zero2Cool]

Couldn't you simply re-arrange things?

Function GetJulianDate (ByVal TheDate As DateTime) As String
  Return TheDate.Year.ToString & TheDate.Month.ToString & TheDate.Day.ToString
End Function

Probably.
I needed to take a standard date (01/01/2008) and convert to julian date (001) and the function I posted worked well.