Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: 143253=>1.4325 auto umwandeln
Autor: Preisser
Datum: 18.11.10 17:49
Oder noch einfacher: Dim Zahl1 As Double, Zahl2 As Double Zahl1 = 12345 If Zahl1 = 0 Then Zahl2 = 0 Else Zahl2 = Zahl1 / 10 ^ ((Val(Log(Abs(Zahl1)) / _ Log(10)))) ' ergibt 1,2345 Die If-Abfrage wird benötigt, da der Logarithmus von 0 nicht definiert ist. Val muss statt Int verwendet werden, obwohl es das Argument zuerst in eine Zeichenfolge konvertiert, da Gleitpunktzahlen nicht exakt sind und beispielsweise Int(0.3 * 10) = 2 ist, aber Val(0.3 * 10) = 3. Probleme, die bei der Stringzerlegung auftreten können (also Zahl in String konvertieren, in der Mitte ein Komma einfügen und wieder zusammensetzn) sind: - Man darf nicht einfach ein "," einfügen, sondern muss das Trennzeichen benutzen, das in den Regionsoptionen von Windows eingestellt ist - Man müsste vorher prüfen, ob die Zahl negativ ist, da sich dann die Stelle, wo das Komma einzufügen ist, verschiebt - Gleitkommazahlen wie 1.4E+30 (also in der Exponentendarstellung) müsste man gesondert behandeln. Edit: Sorry, die Val-Funktion ist hierfür auch nicht unbedingt geeignet, da sie einen "." als Dezimaltrennzeichen erkennt. Ich weiß jetzt nicht, ob VB6 andere Abrundugnsfunktionen hat (glaub eher nicht). Das beste wäre da wohl trotzdem, die Zahl so lange durch 10 zu teilen, bis sie < 10 ist. Beitrag wurde zuletzt am 18.11.10 um 18:22:31 editiert.

143253=>1.4325 auto umwandeln	1.239	marvin_94	08.11.10 14:21
Re: 143253=>1.4325 auto umwandeln	875	Manfred X	08.11.10 15:07
Re: 143253=>1.4325 auto umwandeln	825	marvin_94	09.11.10 18:14
Re: 143253=>1.4325 auto umwandeln	898	Radames	09.11.10 19:05
Re: 143253=>1.4325 auto umwandeln	882	marvin_94	09.11.10 19:16
Re: 143253=>1.4325 auto umwandeln	866	marvin_94	09.11.10 19:20
Re: 143253=>1.4325 auto umwandeln	880	ElTosalet	18.11.10 16:41
Re: 143253=>1.4325 auto umwandeln	868	Preisser	18.11.10 17:49
Re: 143253=>1.4325 auto umwandeln	885	marvin_94	21.11.10 10:15
Re: 143253=>1.4325 auto umwandeln	903	Preisser	21.11.10 12:19
Re: 143253=>1.4325 auto umwandeln	815	ElTosalet	21.11.10 13:45
Re: 143253=>1.4325 auto umwandeln	784	Preisser	21.11.10 15:45

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen