PETIT CONVERTISSEUR FRANC / EUROS
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
-
8 sept. 2002 à 23:08
Evonay Messages postés 4 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 14 avril 2003 - 9 sept. 2002 à 19:11
Evonay Messages postés 4 Date d'inscription dimanche 8 septembre 2002 Statut Membre Dernière intervention 14 avril 2003 - 9 sept. 2002 à 19:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12138-petit-convertisseur-franc-euros
https://codes-sources.commentcamarche.net/source/12138-petit-convertisseur-franc-euros
9 sept. 2002 à 19:11
8 sept. 2002 à 23:08
*.PAS *.DFM *.DPR *.RES
Ainsi le ZIP de ton source ne fera que quelques Ko...
Mais surtout il est dommage que ton convertisseur donne de faux résultats !
Essaye de convertir 1.0677 Euros, tu obtients 7.365 Francs, or le résultat exact est 7.00365 Francs.
Ceci vient de ta manière ( compliquée ) d'afficher le résultat :
franc.text:=inttostr( trunc(eur*tau) )+'.'+inttostr(round(frac(eur*tau)*100000));
Alors qu'il faut convertir un flotant :
franc.text:=FloatToStrF(eur*tau,ffFixed,5,5);
Et dans l'autre sens :
euro.text:=FloatToStrF(fra/tau,ffFixed,5,5);
Nono