Comment formater un résultat dans une Macro OpenOffice ?

23 décembre 2008 in OpenOffice, Question
Tags: programming, Question

Le résultat est toujours retourné tronqué de ses décimales.
Sub FormaterCorrectement()
rem question : Comment formater

Const EURO As Double = 6.55957
Dim mesFrancs As Double
Dim Resultat As Double

mesFrancs = InputBox("Saisissez la somme en francs")
Resultat = CDbl(Format(mesFrancs / EURO, "##.00"))
' Je convertis en Double le formatage à deux décimales du résultat
' sinon le résultat avant l'affichage est casté et la partie décimale tombe

MsgBox(Resultat, 64 , "Résultat de la conversion")

End Sub