Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
NumFilter
Diese Tabellenfunktion filtert eine Zahl aus einem Text heraus.
Option Explicit
Public Function NumFilter(Text As String) As Double
Dim i&, res$, c$
For i = 1 To Len(Text)
c = Mid$(Text, i, 1)
Select Case c
Case 0 To 9, ","
res = res + c
End Select
Next i
If Not res = "" Then NumFilter = CDbl(res)
End Function
© 2001 -
by Thomas Risi