Julian Date

Calculates Julian Date.
The example below uses Today, but any valid date object will work.
Sub Initialize
Dim dt As New notesdatetime(Today)
Dim x As Long, y As Long
'Get the correct julian day
x& = Datenumber(Year(dt.localtime),Month(dt.Localtime),Day(dt.LocalTime))
y& = Datenumber(Year(dt.localtime),1,1)
tdif = Trim(Str((x& - y&) + 1))
threedigit = Right("000",3-Len(tdif)) + tdif ' Pad julian date with 0's
Msgbox "Today's julian date is: " + threedigit
End Sub
This was first published in November 2000

Dig deeper on Lotus Notes Domino Calendar and Contact Management

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

-ADS BY GOOGLE

SearchWinIT

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchEnterpriseLinux

SearchVirtualDataCentre.co.UK

Close