begin process at 2012 02 14 01:36:48
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Maths & Algorithmes

 > FONCTIONS DE CONVERSION FRANCS <> EUROS

FONCTIONS DE CONVERSION FRANCS <> EUROS


 Information sur la source

Note :
1 / 10 - par 2 personnes
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Maths & Algorithmes Classé sous :convertisseur, euro, franc, conversion, convertir Niveau :Débutant Date de création :15/01/2002 Date de mise à jour :01/06/2010 15:39:55 Vu :19 901
Auteur : BinOff

Ecrire un message privé
Commentaire sur cette source (5)
Ajouter un commentaire et/ou une note

 Description

Il s'agit d'une petite fonction de conversion de francs vers euros, bien que maintenant cela doit être obsolète...



Source

  • <%
  • 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
  • 'Les conversions sont là qu'à titre indicatif, pour renseigner l'utilisateur.
  • Response.Write FrancToEuro (6.60) & "Euros" & "<BR>" 'Converti n francs en Euro
  • Response.Write EuroToFranc (1) & "Francs" & "<BR>" 'Converti n Euros en francs
  • %> 
<% 

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
'Les conversions sont là qu'à titre indicatif, pour renseigner l'utilisateur. 
Response.Write FrancToEuro (6.60) & "Euros"  & "<BR>" 'Converti n francs en Euro

Response.Write EuroToFranc (1) &  "Francs" & "<BR>" 'Converti n Euros en francs
%>



 Historique

01 juin 2010 15:39:55 :
--

 Sources du même auteur

GÉNÉRATION AUTOMATIQUE DE TABLEAUX CROISÉS EN FONCTION D'UNE...
GÉNÉRER UNE CHAINE ALÉATOIRE
VÉRIFICATION D'UNE DATE AVEC GESTION DES ANNÉES BISSEXTILE
Source avec Zip GESTIONNAIRE DE NEWS AVEC COMMENTAIRES
Source avec Zip FAIRE DES TÉLÉCHARGEMENTS EXCLUSIFS
Toutes les sources de BinOff

 Sources de la même categorie

Source avec Zip CARRÉ MAGIQUE par stankov
Source avec Zip Source avec une capture ZIPVIEWER - LISTER LE CONTENU D'UN ZIP par ghuysmans99
AFFICHER LES LIGNES D'UN DATATABLE DS UN ORDRE ALÉATOIRE par taillecrayon
Source .NET (Dotnet) SUITE DE NOMBRES ALESATOIRES DIFFERENTS par ErB
CONVERTIR UN NOMBRE DE BASE 10 EN BASE 36 ET L'INVERSE par Aurelyyy
Toutes les sources de la catégorie Maths & Algorithmes

 Sources en rapport avec celle ci

CONVERTIR RAPIDEMENT UN FICHIER UPLOADÉ (IMAGE) ET OBTENIR L... par ObelixSuisse
Source .NET (Dotnet) ASP.NET - FONCTION DE PASSAGE D'UN FICHIER BINAIRE VERS UN T... par fabrice69
Source .NET (Dotnet) ASP.NET - CLASSE DE PASSAGE D'UN FICHIER XML (BASE64) VERS U... par fabrice69
CONVERIR LES FRANCS EN EURO par bipross
AFFICHER LA DATE EN LETTRE EN FRANCAIS SUR UN SERVEUR ANGLAI... par Mcjo

Commentaires et avis

Commentaire de vbtom le 15/01/2002 20:29:06

Tu prends bcp de précaution... ouaw.... :)

Commentaire de vbtom le 15/01/2002 20:30:25

heureusement quelle est gratuite cette source...qd meme...

Commentaire de BinOff le 17/01/2002 20:55:21

ptdr ;-)
En fait c'est parce qu'elle est gratuite que je ne veux pas être mis responsable en cas de problème, notamment si des entreprises l'utilisent.

Mais le code est relativement correct.

Commentaire de GabSoftware le 13/12/2007 17:43:55 1/10

Je mets 1/10 car on le taux 6.55957 est défini en dur dans le code. De plus ce n'est pas très intéressant.

Commentaire de surfzoid le 13/12/2007 19:59:14 1/10

a ouai cool, tu devrai un snipet franc vers euro qui injecte :
x=y *6.55957
et un snipet euro vers franc qui inject :
x=y/6.55957

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

conversion chiffre Euro et eviter d'avoir 3 chiffre après la virgule/ASP [ par miklkl ] Bonjour Tout le monde j'ai un soucis ASP, je receptionne de ma base de donnée et j'affiche desprix en francs jusque là aucun problème par contre lorsq Conversion Heure anglais français [ par HakNouveau ] bonjour,souhaiterai savoir si vous connaissez un moyen de convertir une date française de type 13h15 en anglais de type 1pm15enfin un système pour con Conversion video: video to FLV [ par jeffwow ] Bonjour.Je cherche un moyen de convertir des videos de formats standarts (.avi, .mpeg) en FLV.  Ce que je désire c'est de convertir  ces fichiers sur Conversion d'un site ASP en ASP.NET [ par pepetcho ] Bonjour,Quelqu'un vient de me donner un site développé en ASP. J'aimerais le convertir en ASP.NET. Connaisseriez-vous des outils qui permettent de con Comment ajouter le fichier CHM sur CHM en PDF Convertisseur? [ par jeanne1987 ] Tout d'abord, nous devons savoir qu'est-ce que c'est le titre et la rubrique. [img]http://www.oxpdf.fr/guide/how-add-chm-in-chm-to-pdf-converter/chm%2 conversion de types( DWORD char[]) [ par koukou1111 ] slt,je trouve un problème au niveau de la conversion d'un DWORD en tableau de char( je travaille sous VC++ avec les MFC) quelqu'un peut m'aider? [cod conversion de types string char[ ] [ par koukou1111 ] slt,est ce que je peux convertir un string en tableau de char? je travaille sous VC++ . [code=cpp] CString str; char ip_adress[15]; ptr5->GetWindowTe


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,622 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)