DateDiff entre deux dates avec les mois non arrondis

Pourriez-vous m'aider à comprendre d'où vient cette erreur d'incompatibilité dans le code suivant ?

Private Sub Calculprime_Click()
If rmhremplace.Value = "" Then
rmhcompare = rmhremplacé.Value
Else
rmhcompare = rmhremplace.Value
End If

If rmhremplacant.Value < rmhcompare Then
'montantprime.Value = CDbl(rmhcompare) - CDbl(rmhremplacant.Value)
montantprime.Value = rmhcompare - rmhremplacant.Value
Else
montantprime.Value = 0
End If

 Dim Calculprime
 'DEFINITION DES VARIABLES POUR LE CALCUL
 Calculprime = montantprime.Value * convertiondatehaut
 montantprime = Calculprime

 Dim tauxremplacement

 Select Case tauxremplacement
    Case Is = "100%"
    montantprime = montantprime
    Case Is = "75%"
    montantprime = montantprime / 0.75
    Case Is = "50%"
    montantprime = montantprime / 2
    Case Is = "25%"
    montantprime = montant / 3

 End Select

End Sub

Ces deux lignes de code retournent une erreur d'incompatibilité que ce soit l'une ou l'autre...

L'objectif final est de calculer une prime qui est calculée selon le code ci-dessus

montantprime.Value = CDbl(rmhcompare) - CDbl(rmhremplacant.Value)
montantprime.Value = rmhcompare - rmhremplacant.Value

Essayez :

montantprime.Value = Val(rmhcompare) - Val(rmhremplacant)

Merci pour votre temps et votre aide, le calcul fonctionne et le problème est normalement résolu

Votre message m'a échappé ce matin, c'est bien une ligne de code qui permettrait d'afficher le résultat du bouton "générer les mois" en décimal ? Où doit être placée cette ligne de code ? Elle est en commentaire actuellement

Private Sub CommandButton1_Click()
Dim premieredate As Date
Dim secondedate As Date
Dim nb_mois As Integer

premieredate = datedebut.Value
secondedate = datefin.Value

'convertiondatehaut = WorksheetFunction.Days360(premieredate - 1, secondedate, True) / 30 'nb_mois

nb_mois = DateDiff("m", premieredate, secondedate)

convertiondatehaut = nb_mois
End Sub