Contributed By: Marcus Tettmar [email protected]
Submitted On: 07/08/03
VBSTART
Function Julian
Julian = (Year(Now) Mod 10) * 1000 + DateDiff("d", DateSerial(Year(Now), 1, 1), Now) + 1
End Function
VBEND
VBEval>Julian,myJulianDate
MessageModal>myJulianDate
Get today's date in Julian Date format
Moderators: Dorian (MJT support), JRL, Phil Pendlebury
-
Marcus Tettmar
- Site Admin
- Posts: 7380
- Joined: Thu Sep 19, 2002 3:00 pm
- Location: Dorset, UK
- Contact:
