Convertisseur Franc Euro
Publié: 19 Juil 2005 à 13:18- 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