1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
|
Dim dateFactureVal As Variant
Dim honorairesHTVal, honorairesTVAVal, honorairesTTCVal, prejudiceHTVal, prejudiceTVAVal, prejudiceTTCVal As Single
Dim valeurAvantSinistreVal, valeurSauvetageVal As Single
honorairesHTVal = Replace(Format(Me.honorairesHT.Value, "0.00"), ",", ".")
honorairesTVAVal = Replace(Format(Me.honorairesTVA.Value, "0.00"), ",", ".")
honorairesTTCVal = Replace(Format(Me.honorairesTTC.Value, "0.00"), ",", ".")
prejudiceHTVal = Replace(Format(Me.prejudiceHT.Value, "0.00"), ",", ".")
prejudiceTVAVal = Replace(Format(Me.prejudiceTVA.Value, "0.00"), ",", ".")
prejudiceTTCVal = Me.prejudiceTTC.Value
prejudiceTTCVal = Format(prejudiceTTCVal, "0,00")' ARRONDI
prejudiceTTCVal = Replace(prejudiceTTCVal, ",", ".") 'FONCTIONNE PAS
kilometrageVehiculeVal = Str(Me.kilometrageVehicule.Value)
valeurAvantSinistreVal = Replace(Format(Me.valeurAvantSinistre.Value, "0.00"), ",", ".")
valeurSauvetageVal = Replace(Format(Me.valeurSauvetage.Value, "0.00"), ",", ".")'Fonctionne pas |
Partager