Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Public Function Extract_Number_With_Decimal(Phrase As String) As Double Dim Length_of_String As Integer Dim Current_Pos As Integer Dim Temp As String Length_of_String = Len(Phrase) Temp = "" For Current_Pos = 1 To Length_of_String If (Mid(Phrase, Current_Pos, 1) = "-") Then Temp = Temp & amp & Mid(Phrase, Current_Pos, 1) End If If (Mid(Phrase, Current_Pos, 1) = ".") Then Temp = Temp & amp & Mid(Phrase, Current_Pos, 1) End If If (IsNumeric(Mid(Phrase, Current_Pos, 1))) = True Then Temp = Temp & amp & Mid(Phrase, Current_Pos, 1) End If