Donnez votre avis..
INTERFACE GAMBAS
LOGICIELS GAMBAS 3
TUTORIELS
=Bibliothèque
|
Finance - Combien ca coute
How much combien ça coute?
![]() Ce petit utilitaire est bien pratique pour décomposer une somme que vous saisirez dans la boite texte, en une combinaison de billets et de pièces pour arriver à la somme exacte. Il utilise les deux commandes principales qui sont MOD et DIV Voici le code de l'application : Public Sub bok_Click() Dim lasomme As Integer Dim lecombien As Integer Dim lereste As Integer Dim lesdecimales As Float lasomme = vsomme.Value lecombien = lasomme Div 200 l1.Text = lecombien lereste = lasomme Mod 200 lasomme = lereste lesdecimales = vsomme.Value - (lecombien * 200) lecombien = lasomme Div 100 l2.Text = lecombien lereste = lasomme Mod 100 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 100) lecombien = lasomme Div 50 l3.Text = lecombien lereste = lasomme Mod 50 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 50) lecombien = lasomme Div 20 l4.Text = lecombien lereste = lasomme Mod 20 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 20) lecombien = lasomme Div 10 l5.Text = lecombien lereste = lasomme Mod 10 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 10) lecombien = lasomme Div 5 l6.Text = lecombien lereste = lasomme Mod 5 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 5) lecombien = lasomme Div 2 l7.Text = lecombien lereste = lasomme Mod 2 lasomme = lereste lesdecimales = lesdecimales - (lecombien * 2) lecombien = lasomme Div 1 l8.Text = lecombien lereste = lasomme Mod 1 lasomme = lereste lesdecimales = lesdecimales - lecombien lasomme = lesdecimales * 100 lecombien = lasomme Div 50 l9.Text = lecombien lereste = lasomme Mod 50 lasomme = lereste lecombien = lasomme Div 20 l10.Text = lecombien lereste = lasomme Mod 20 lasomme = lereste lecombien = lasomme Div 10 l11.Text = lecombien lereste = lasomme Mod 10 lasomme = lereste lecombien = lasomme Div 5 l12.Text = lecombien lereste = lasomme Mod 5 lasomme = lereste lecombien = lasomme Div 2 l13.Text = lecombien lereste = lasomme Mod 2 lasomme = lereste lecombien = lasomme Div 1 l14.Text = lecombien lereste = lasomme Mod 1 lasomme = lereste End Date de création : 07/02/2022 @ 19:39 ![]()
| ACCES RAPIDE
RECHERCHE
LES INSTRUCTIONS
LES COMPOSANTS
Divers
INSTRUCTIONS
Où ça, qui ça?
VISITES
ARCHIVES GAMBAS 1/2
|