increase value

[sal21]

I have this value in myvar ="Ver. 1.0.3"
How to increase of 0.0.1 this value?

Similar:
Ver. 1.0.4
Ver. 1.0.5
...
Ver. 2.1.9

[HansV]

What comes after 1.0.9? Is the next value
a) 1.0.10
b) 1.1.0
c) 1.1.1
d) something else - and if so, what?

[sal21]

What comes after 1.0.9? Is the next value
a) 1.0.10
b) 1.1.0
c) 1.1.1
d) something else - and if so, what?

I think this format
a) 1.0.10

but in effect the number refer similar a Version of apps, choice you based your experince the appropriate value:-)

[HansV]

For example:

Code: Select all

    Dim p As Long
    Dim n As Long
    p = InStrRev(myVar, ".")
    n = Mid(myVar, p + 1)
    myVar = Left(myVar, p) & (n + 1)

[sal21]

What comes after 1.0.9? Is the next value
a) 1.0.10
b) 1.1.0
c) 1.1.1
d) something else - and if so, what?

ops...
Hans sorry, but really i need after 1.0.9
1.1.0

Possible to modify yyour code, in effect i need the b option.?

[HansV]

That requires very different code:

Code: Select all

    Dim arrParts As Variant
    Dim n As Long
    Dim v As Long
    arrParts = Split(myVar, ".")
    n = UBound(arrParts)
    v = Val(arrParts(n))
    If v < 9 Then
        arrParts(n) = v + 1
    Else
        arrParts(n) = 0
        v = Val(arrParts(n - 1))
        If v < 9 Then
            arrParts(n - 1) = v + 1
        Else
            arrParts(n - 1) = 0
            v = Val(arrParts(n - 2))
            arrParts(n - 2) = " " & (v + 1)
        End If
    End If
    myVar = Join(arrParts, ".")

[sal21]

That requires very different code:

Code: Select all

    Dim arrParts As Variant
    Dim n As Long
    Dim v As Long
    arrParts = Split(myVar, ".")
    n = UBound(arrParts)
    v = Val(arrParts(n))
    If v < 9 Then
        arrParts(n) = v + 1
    Else
        arrParts(n) = 0
        v = Val(arrParts(n - 1))
        If v < 9 Then
            arrParts(n - 1) = v + 1
        Else
            arrParts(n - 1) = 0
            v = Val(arrParts(n - 2))
            arrParts(n - 2) = " " & (v + 1)
        End If
    End If
    myVar = Join(arrParts, ".")

"That requires very different code" , sorry me.