---

Moin!

Ich habe mir mit Eurer freundlichen Hilfe einen Code zusammengetragen und zurechtgebastelt, der u. a. das Bauteilvolumen in einer Messagebox anzeigt und dann in ein iProperty einträgt.

In der Messagebox ist es so wie gewünscht, mit führender Null und einem Komma. Im iProp erscheint es aber ohne führende Null und mit einem Dezimalpunkt. Das liegt wohl daran, dass ich in der Messagebox dV verwende und im iProp sV, aber die iProp-Zeile funktioniert nur mit cV. Mit dV kommt type mismatch.

(Wie ) Kann ich das dort in der gewünschten Weise formatieren?
oder
(Wie ) Kann ich iProp dazu bringen, dV zu akzeptieren?

Hier die an dem Vorgang beteiligten Zeilen:

Code:

---

dV = oPart.ComponentDefinition.MassProperties.Volume
dV = Round(dV, 2)
MsgBox "Volumen in cm³:" & vbTab & dV
sV = Str(dV)
Call SetPropertyValue(oPart.PropertySets(4), "cm³", sV)

---

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Hast du das schon probiert?

Code:

---

sV = Format(dV, "0.0")

---

Gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jetzt ja. Danke!
Funktioniert auch so weit, aber ich hab es bisher nur an einem einzigen Bauteil probiert.

Lustig: Man muss einen Punkt schreiben, um ein Komma zu erhalten; so einfach ist es also nicht.
Was bedeutet das Argument 0.0 genau?
In der Befehlsreferenz habe ich keine passende Erklärung gefunden.

------------------
Roland  
www.Das-Entwicklungsbuero.de

It's not the hammer - it's the way you hit!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Normalerweise sollte die VBA-Hilfe zum Formatbefehl etwas auswerfen, wenn MS Office installiert ist...

Aber egal,
"0.0" heißt in dem Falle, dass die Zahl so formatiert wird, dass vor dem Dezimaltrenner mindestens eine Ziffer (also Vornull) steht. Die  Null nach dem Dezimaltrenner, dass dort genau eine Nachkommastelle ausgegeben wird. Bei Bedarf wird gerundet.
Das Komma wird gesetzt, weil das im deutschen Gebietsschema der Dezimaltrenner ist.

Man kann das einfach durchspielen, wenn man im Direktfenster (Strg G im VBA-Editor) bspw.
? Format(345.876,"0.0")
eingibt und mit Enter abschliesst.

Für die Rückwandlung in eine Zahl (bspw. via Val-Funktion) muss man beachten, dass als Deziamltrenner nur der Dezimalpunkt gilt, man also vorher mit der Replace-Funktion den Tausendertrenner und den Dezimaltrenner richtig setzt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP