![Vasey](./pictures/avatars/5a81437bc5b09.jpg)
aha, tak zkus fci >>
Function secti3(i)
Dim Text1 As String
Dim Start As Integer
Dim PozicePlus As Integer
Start = 1
Text1 = Replace(i, " ", "")
PozicePlus = InStr(Start, Text1, "+")
Do While PozicePlus > 0
secti3 = Val(Mid(Text1, Start, PozicePlus - Start)) + secti3
Start = PozicePlus + 1
PozicePlus = InStr(Start, Text1, "+")
Loop
secti3 = Val(Mid(Text1, Start, Len(Text1) - Start + 1)) + secti3
End Function
Function secti3(i)
Dim Text1 As String
Dim Start As Integer
Dim PozicePlus As Integer
Start = 1
Text1 = Replace(i, " ", "")
PozicePlus = InStr(Start, Text1, "+")
Do While PozicePlus > 0
secti3 = Val(Mid(Text1, Start, PozicePlus - Start)) + secti3
Start = PozicePlus + 1
PozicePlus = InStr(Start, Text1, "+")
Loop
secti3 = Val(Mid(Text1, Start, Len(Text1) - Start + 1)) + secti3
End Function
Příloha:
3597_sucet-funkce.rar (18kB, staženo 27x)
citovat![rar](./plugins/extend/postattach/icons/archive.png)