devxlogo

Consistent Version Numbers

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

devx-admin

Share the Post: