Convertir VBA Corde à Double

Je suis en utilisant les codes de base de VBA pour word pour créer un modèle qui extrait des données à partir d'autres écrans dans windows. Quand il tire les chiffres, ils sont formatés comme des chaînes de caractères. J'ai maintenant besoin d'obtenir les cordes à être converti en double, afin d'ajouter/soustraire eux. J'ai tout essayé mais n'arrive pas à le comprendre. 

Me.salesprice = Trim(scrn.GetString(11, 65, 10))
'This would be formatted as 25,000.00
Me.salestax = Trim(scrn.GetString(12, 66, 10))
Me.pastdue = Trim(scrn.GetString(14, 65, 10))
Me.assessedppt = Trim(scrn.GetString(18, 66, 10))
Me.secdep = Trim(scrn.GetString(17, 65, 10))

assessedppt = Convert.ToDouble(Me.assessedppt)
uappt = Convert.ToDouble(Me.uappt)
salesprice = Convert.ToDouble(Me.salesprice)
salestax = Convert.ToDouble(Me.salestax)
pastdue = Convert.ToDouble(Me.pastdue)
lc = Convert.ToDouble(frmDetails.lc)

totalfinance = salesprice + salestax + pastdue - secdep + assessedppt + uappt + lc
totalsalesprice = salesprice + pastdue
ppt = assessedppt + uappt

Quand je fais cela, j'obtiens l'erreur suivante:

Erreur de compilation: Variable non définie, et il met en évidence la première
Fonction de conversion.

Convert.ToDouble est VB.NET, qui est une langue entièrement différente. En VBA, la fonction est CDbl.

OriginalL'auteur c.olson | 2017-02-27

  1. 14

    Vous utilisez la mauvaise fonction pour convertir. Vous avez besoin d'utiliser CDbl, en VBA, nous avons la suite les fonctions de conversion:

    numberDouble = CDbl("10") 'For convert to double
numberInteger = CInt("12") 'For convert to Integer
varString = CStr("11") 'For convert to String
bool = CBool("true") 'For convert to Boolean

    Donc, si vous changez votre Convertir.toDouble, votre code ressemble à ça:

    Me.salesprice = Trim(scrn.GetString(11, 65, 10))
'This would be formatted as 25,000.00
Me.salestax = Trim(scrn.GetString(12, 66, 10))
Me.pastdue = Trim(scrn.GetString(14, 65, 10))
Me.assessedppt = Trim(scrn.GetString(18, 66, 10))
Me.secdep = Trim(scrn.GetString(17, 65, 10))

assessedppt = CDbl(Me.assessedppt.value)
uappt = CDbl(Me.uappt.value)
salesprice = CDbl(Me.salesprice.value)
salestax = CDbl(Me.salestax.value)
pastdue = CDbl(Me.pastdue.value)
lc = CDbl(frmDetails.lc.value)

totalfinance = salesprice + salestax + pastdue - secdep + assessedppt + uappt + lc
totalsalesprice = salesprice + pastdue
ppt = assessedppt + uappt
    Il y a beaucoup plus fonctions de conversion que le 4, mais je suppose qu'ils sont les principaux.

    OriginalL'auteur Guilherme Felipe Reis