Description

Increments the major revision component of the supplied revision. The method assumes the major revision has a single digit prefix.

e.g. PXX.XX (where X is a numeric character)

The supplied minor revision argument is appended to the incremented major revision. If the minor revision is nothing, then the minor revision is omitted.

Syntax

Function IncrementMajorRevision(Revision As String, MinorRevision As String) As String

Parameters

Name

Data Type

Description

Revision

String

The complete revision code

MinorRevision

String

Minor revision of the incremented revision. 

Return

Returns the incremented revision string.

Example

'create Pentagon DOCS Script Library object

Set scriptLib = GetExtensionObject("PentagonDOCS.Core.ScriptLibrary")


'increment major revision

Output = scriptLib.IncrementMajorRevision("P01.05", "01")

'returns "P02.01"


'increment major revision

Output = scriptLib.IncrementMajorRevision("P01.05", Nothing)

'returns "P02"