Formaat voor resultaat

[NIh1IlO]

Gegroet specialisten

het resultaat van een berekening vervat in een variabele AFSTG, zoals blijkt uit de MsgBox weergegeven in bijlage (.jpg formaat), wens ik af te ronden tot op 3 cijfers na de komma; ook als het een 0 betreft wil ik die zien verschijnen.
Ik wil dit bereiken met volgende codelijn:
AFSTG = Format(AFSTG, "# ##0.000")
doch het resultaat blijft steken op 2 cijfers na de komma omdat het toevallig op een 0 eindigt bij afronding op 3 cijfers.
Hoe krijg ik het voor mekaar om toch die 0 te doen verschijnenn achteraan.

Met beste dank op voorhand voor het hersenenwerk.

Vriendelijke groeten van

nIh1IlO

 

[Ingrid B]

Ik weet niet hoe je code er momenteel uit ziet, maar dit werkt:

Sub test()
Dim AFSTG As Double
  AFSTG = 108.37986
  MsgBox Format(AFSTG, "# ##0.000")
End Sub

 

[NIh1IlO]

Gegroet Ingrid

de codetekst van mijn macro ziet er als volgt uit wat betreft het voorliggende probleempje:


Sub test()

Dim AFSTG as Double
.....
AFSTG = ((CONS2 / VHO) * (Atn(-XHO / Sqr(1 - XHO ^ 2)) + 2 * Atn(1))) / 1000
AFSTG = Format(AFSTG, "# ##0.000")
MsgBox ("De afstand van " & Range("I1") & " tot " & Range("I3") & " is: " & AFSTG & " Km")

End Sub

de variabele AFSTG, zoals afgebeeld in mijn oorspronkelijk bericht, is het resultaat van berekeningen met allerlei variabelen, alle als Double gedimensioneerd.
De formatfunctie gaat op als het een echt getal betreft, maar blijkbaar doet ze het niet als het getal wodrt voorgesteld door een variabele.
Moet ik een andere benadering aangaan?

Groeten van

nIh1IlO

 

[Ingrid B]

Een variabele die je declareert als Double kan inderdaad geen formaat krijgen. Je moet de functie Format rechtstreeks in de MsgBox zetten.

 

[NIh1IlO]

Beste Ingrid

zeer hartelijk bedankt voor de snelle en adequate reactie.
Het probleem is correct opgelost!

Vriendelijke groeten van nIh1IlO