|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function strJulian(dtDate As Date) As String
' Procedure : strJulian
' Description: Return given date in Julian format.
' Copyright: Chris Greaves Inc.
' Inputs: DATE
' Returns: STRING.
' Assumes: Nothing
' Side Effects: None.
' Tested: By the calls shown below.
'i can 't see a way to do it using Word fields.
'Legare Coleman
strJulian = Right(Year(dtDate), 2) & Right("000" & CStr(dtDate - DateSerial(Year(dtDate), 1, 0)), 3)
'Sub TESTstrJulian()
'MsgBox strJulian(Date)
'MsgBox strJulian(Date - 1)
'MsgBox strJulian(Date - 365)
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |