excel 自定义函数 （vb）

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