Syntax
ToolsRevisionDate()
Remarks
Returns a serial number corresponding to the date and time the selected revision was made, or –1 if the selection contains no revisions. For information on serial numbers, see DateSerial().
Example
This example finds the next revision and checks the revision date. The revision
is rejected if it was made more than 10 days before the current date.
ToolsRevisions .ViewRevisions = 1 ToolsReviewRevisions .FindNext If (Now() - ToolsRevisionDate()) > 10 Then ToolsReviewRevisions .RejectRevisions End If
See Also
ToolsReviewRevisions, ToolsRevisionAuthor$(), ToolsRevisionDate$(), ToolsRevisions, ToolsRevisionType()