Consistent Version Numbers

For consistency’s sake, use this routine wherever your version numbers appear in code:

 Public Function GetMyVersion() As String        ' Turn version info into something         ' like "1.02.0001"        Static strMyVer As String        If strMyVer = "" Then                ' Only call once for performance                strMyVer = Trim$(Str$_                        (App.Major)) & "." & _                        Format$(App.Minor, "##00") _                        & "." Format$(App.Revision, _                        "000")        End If        GetMyVersion = strMyVerEnd Function
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: