particular format number

[sal21]

i can have in MYVARCODICE (As Strng fomated) this value:

1039
212009
2751
1073
6202
4636
291
64191

i need to format the var similar:

10.39
21.20.09
27.51
10.73
62.02
46.36
29.1
64.19.1
...

[HansV]

Use:

Code: Select all

Function Fmt(v As String) As String
    Dim i As Long
    For i = 1 To Len(v)
        Fmt = Fmt & Mid(v, i, 1)
        If i Mod 2 = 0 And i < Len(v) Then
            Fmt = Fmt & "."
        End If
    Next i
End Function

For example:

MYVARCODE = "64191"
v = Fmt(MYVARCODE)
Debug.Print v

[sal21]

Use:

Code: Select all

Function Fmt(v As String) As String
    Dim i As Long
    For i = 1 To Len(v)
        Fmt = Fmt & Mid(v, i, 1)
        If i Mod 2 = 0 And i < Len(v) Then
            Fmt = Fmt & "."
        End If
    Next i
End Function

For example:

MYVARCODE = "64191"
v = Fmt(MYVARCODE)
Debug.Print v

TKS BRO!