Manage Learn to apply best practices and optimize your operations.

# Get Exact Notes Version Number

Function GetNotesVersion As String
Dim Session As New NotesSession

' Find out the version information
MyVersion = Session.NotesVersion
' Get the length of the version string
Length = Len(MyVersion)
' Discover What the "half" delimiter is, meaning what's the first
non-alphanumeric character starting from the left
' Note that in the North American and International versions, this first
non-alpha character differs
If MyVersion Like "*Intl*" Then
SepChar = "("
OffSet = 0
Else
SepChar = "|"
OffSet = 2
End If
' Now find this first non-alphanumeric character
SepLoc = Instr(MyVersion, SepChar)
' Get everything to the left of that character
LeftHalf = Left(MyVersion, SepLoc - 1)
' Find the only space in the left half
SpacLoc = Instr(LeftHalf, " ")
' The version number is what's left to the right of the space in the left half,
minus extra spaces
VerNum = Trim(Right(LeftHalf, SpacLoc - OffSet))
' Get the length of the version number
VerLen = Len(VerNum)
' Loop through the version number to remove periods
For x =1 To VerLen
CurChar = Mid(VerNum, x, 1)
If CurChar = "." Then
' Do Nothing
Else
' Keep appending non-period characters until finished
SubVer = SubVer & CurChar
End If
Next

' If the right-most character is a letter, convert it to a number
' "a" becomes "01", and "z" becomes "26"
RSubVer = Right(SubVer, 1)
If Instr("abcdefghijklmnopqrstuvwxyz", RSubVer) Then
' The first 9 letters of the alphabet need a padding leading zero
If Instr("abcdefghi", RSubVer) Then
AlphaNum = Instr("abcdefghi", RSubVer)
NewSubVer = Left(SubVer, Len(SubVer) -1) & "0" & AlphaNum
End If
' The rest of the alphabet are all greater than 10 in position
If Instr("jklmnopqrstuvwxyz", RSubVer) Then
AlphaNum = Instr("abcdefghijklmnopqrstuvwxyz", RSubVer)
NewSubVer = Left(SubVer, Len(SubVer) -1) & AlphaNum
End If
' And the numeric equivalent of the position is
SubVer = NewSubVer
End If

' Assemble it into leftmost character, plus a period, plus the rest of the
iterated sub version
TextVer = Left(SubVer, 1) & "." & Right(SubVer, Len(Subver) -1)

' Convert it to a normal number so we can do quick comparisons.
GetNotesVersion= Cstr(TextVer)

End Function

#### Start the conversation

Send me notifications when other members comment.

## SearchWindowsServer

• ### What's new with the Exchange hybrid configuration wizard?

The Exchange configuration wizard continues to evolve into a refined utility with enhanced capabilities that administrators ...

• ### Top Office 365 MFA considerations for administrators

A complex password only goes so far to stop a breach. Implementing multifactor authorization can help, but make sure the product ...

• ### October Patch Tuesday resolves 59 vulnerabilities

Microsoft attempts to stamp out printing issues that originated from a faulty out-of-band patch for an Internet Explorer zero-day.

## Search400

• ### iSeries tutorials

Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

• ### V6R1 upgrade planning checklist

When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

• ### Connecting multiple iSeries systems through DDM

Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

## SearchDataCenter

• ### IBM quantum computers' usefulness in sight -- using binoculars

IBM's Bob Sutor discusses Big Blue's new quantum systems and computation center, the realities of quantum computing today and how...

• ### Addendum sets ASHRAE 90.4 as energy-efficiency standard

The publication of ASHRAE 90.4 in 2016 brought a new set of energy guidelines, but the industry still used Standard 90.1. A new ...

• ### How to realize the benefits of software-defined infrastructure

Software-based infrastructure and services can streamline management and application data. Before you add them to your data ...

## SearchContentManagement

• ### Digital asset management benefits the future of work

Digital asset management promises to transform digital work, making it easier to tag documents, analyze video and provide image ...

• ### Box cloud content management adds PDF tools, boosts security

Box partners with Adobe in releasing a new set of PDF tools that can be used within Box's content management cloud to enable ...

• ### AI optimizes content management workflows, personalizes CX

AI is poised to revolutionize content management workflows, bringing order to enterprise documents, greater insights into ...

Close