FONCTIONS DE CONVERSION FRANCS <> EURO

<% 

Taux = 6.55957 'en FRANCS
Function FrancToEuro ( PrixDevisenationale )

	Prix = FormatNumber(PrixDevisenationale / Taux,3)
		if Right(cstr(Prix),1) > 5 then
			Prix = Prix + 0.01 
		End If

	Prix = left(Prix, len(Prix) - 1)
   FrancToEuro = FormatNumber(Prix,2)
End function


Function EuroToFranc ( PrixDevisenationale )

	Prix = FormatNumber(PrixDevisenationale * Taux,2)

Centime = 10 - Right(cstr(Prix),1)
'Centime = Right(Centime,1)
Select Case int(Centime)
	Case 1,2,3,4
		Prix = Prix + 0.01 * Centime
	Case 6,7,8,9	
		Prix = Prix - 0.01 * Centime 
End Select

	 EuroToFranc = FormatNumber(Prix,2)


End function
'Un point est une virgule
'Cette source est gratuit et libre de droit, l'auteur initial ne peux etre responsable de l'erreur que cette source peut entrainer sur des conversion.
'Les conversions sont là qu'à titre indicatif, pour renseigner l'utilisateur. 
Response.Write FrancToEuro (6.60) & "Euros"  & "<BR>" 'Couverti X francs en Euro

Response.Write EuroToFranc (1) &  "Francs" & "<BR>" 'Couverti X Euro en francs
%>