PrintToolsRevisionDate()

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()