begin process at 2012 02 10 00:13:15
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Modules

 > ARONDISSEMENT À 10E-2 PRET (PRATIQUE POUR LES API MONAITAIRE)

ARONDISSEMENT À 10E-2 PRET (PRATIQUE POUR LES API MONAITAIRE)


 Information sur la source

Note :
1 / 10 - par 1 personne
1,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Modules Niveau :Débutant Date de création :23/01/2002 Date de mise à jour :23/01/2002 13:51:54 Vu / téléchargé :3 665 / 112
Auteur : beta47

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

 Description

Ce code sert a arrondire un nombre a 10e-2 pret. Il peut etre tres utile dans les api monnaitaire car meme si vous votre nombre ne possede pas de virgule ce module vous en mettra une et vous fera apparaitre les 2 zeros suivant. S'il votre nombre n'a qu'un nombre apres la virgule, il vous mettra un zero en derniere position  

Source

  • Public Function Aron(entree)
  • test = entree
  • entree = Int(test)
  • sortie = entree
  • test = test - entree
  • test = Round(test, 2)
  • If test = "0" Then
  • sortie = sortie & ",00"
  • Aron = sortie
  • Exit Function
  • End If
  • entree = Int(test * 10)
  • sortie = sortie & "," & entree
  • test = (test * 100) - (entree * 10)
  • If test = "0" Then
  • sortie = sortie & "0"
  • Else
  • sortie = sortie & test
  • End If
  • Aron = sortie
  • End Function 
Public Function Aron(entree)
test = entree
entree = Int(test)
sortie = entree
test = test - entree
test = Round(test, 2)
If test = "0" Then
    sortie = sortie & ",00"
    Aron = sortie
    Exit Function
End If
entree = Int(test * 10)
sortie = sortie & "," & entree
test = (test * 100) - (entree * 10)
If test = "0" Then
    sortie = sortie & "0"
    Else
    sortie = sortie & test
End If
Aron = sortie
End Function

 Conclusion

Voila, alors pour l'utiliser, vous le posé dans un module et dans votre code vous mettez genre

resultat = aron(text1.text)
'text1.text doit etre un nombre
  

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) CRYPTAGE ET DECRYPTAGE par jerichez
Source avec Zip Source avec une capture Source .NET (Dotnet) EXEMPLE MODBUS POUR MODULES ADAM, BECKHOFF, WAGO par mnmsjaune
Source avec Zip Source .NET (Dotnet) CRÉER SON PROPRE DESIGNER COMME CELUI DE VISUAL STUDIO par ShareVB
Source avec Zip Source .NET (Dotnet) CONVERSION UTM VERS LAT/LONG par BarresLTD
Source avec Zip CPROPGROUP : COLLECTION FAITE MAISON par Flocreate
Toutes les sources de la catégorie Modules

Commentaires et avis

Commentaire de shervy le 23/01/2002 13:53:43

Si je ne m'abuse la fonction format de VB le fait très bien :
ma_valeur_arrondie = format(ma_valeur_brute, "#0.00")

Commentaire de beta47 le 23/01/2002 14:11:17

ah bon, et bah voila tu repond a ma question alors. Je cherchais a le faire depuis longtemps, mais je ne trouvais rien. Enfin, c beaucoup plus marrant de le faire comme ca. J'adore me prendre la tete. Mais vous Internaute, utiliser mon code.
@@@@@Telecharge ce code, c un ordre@@@@@
lol

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy Tab (GT-P1000) Tablet PC
Entre 699€ et 699€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Underwater View of the Ocean With LIght Shining Through the WavePhoto Single Large Rock Formation in Monument Valley
Photo Bright Beautiful Daisy and Grass Field 

Visiter la photothèque
 
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 : 0,312 sec (4)

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)