Convertisseur Franc Euro

[Stephane Maillard]

Code : Tout sélectionner

Const taux = 6.55957

Sub Click(Source As Button)
   Set ws = New notesuiworkspace
   Set uidoc = ws.currentdocument
   Set doc = uidoc.document
   If doc.Franc(0) <> 0 Then
      x = Round(Doc.Franc(0) / taux, 2)
      doc.Euro = x
   Else
      If doc.Euro(0) <> 0 Then
         x = Round(doc.Euro(0) * Taux, 2)
         doc.Franc = x
      End If
   End If
End Sub