Dezimal aus String ohne letzte Stelle
10.02.2009 16:50:00
WolfgangN
Ich lasse mir mit einer Funktion DezimalausString die Ziffern aus einem String auslesen.
Der String setzt sich zusammen aus einer Zahl und der Einheit, z.B.: 1,99942 /m3.
Leider ermittelt mir die Funktion außer den vorderen Ziffern auch die 3 von Kubikmeter.
Diese brauche ich natürlich nicht. Den Bereich mit Left((xxx),7) einzugschränken hilft natürlich auch nicht, da die Zahl auch 2 /m3 sein kann. Wie kann ich die Funktion veranlassen die letzte Ziffer von Kubik weg zulassen?
DezimalausString() - Right(),1 geht auch nicht.
Alles befindet sich in einem umfangreichen Makro.
Vielen Dank und Gruß
Wolfgang
Die Funktion lautet:
Function DezimalAusString(Text As String) As Double
Dim Tx As String
Dim Vv As Boolean
Dim Hh As Boolean
Dim i As Long
For i = 1 To Len(Text)
Vv = Hh
If Asc(Mid(Text, i, 1)) >= 48 And Asc(Mid(Text, i, 1))
Anzeige