Function ss(s)
Dim a As String, b As Long, c As Long, d As Long, e As Long, f As Integer, res As Double
a = CStr(s)
b = InStr(1, a, “.”)
f = 65
If b > 0 Then
e = Mid(a, b + 1)
d = Mid(a, 1, b)
res = (d * 20 + e) * f
Else
d = a
res = (d * 20) * f
End If
ss = res / 100
End Function