Hallo!
Ich sollte von einigen Prozentwerten den Mittelwert berechnen. Da diese Werte wegen dem %-Zeichen nicht als Zahl gehandhabt wird, scheitert das Programm bei der Berechnung des Mittelwertes. Wie kann ich dies verhindern?
Mit bestem Dank im Voraus
Remo
Nimm die Val-Funktion:
MW = (Val("12%") + Val("16 %") + Val("17 %")) / 300
Oder - vielleicht besser so etwas:
Public Function ConvPercent(Byval S As String) As Double
If Instr(S,",") then Replace(S,",",".")
ConvPercent = Val(S)
If Instr(S,"%") then ConvPercent = ConvPercent / 100#
end function
und dann damit weiterarbeiten…
Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - VB(A) Tipps & Tricks)