TROUVER SI UN NOMBRE EST UN MULTIPLE D'UN AUTRE

cs_lermite222
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
- 13 avril 2007 à 05:20
cs_lermite222
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
- 13 avril 2007 à 05:20
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/1027-trouver-si-un-nombre-est-un-multiple-d-un-autre

cs_lermite222
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
4
13 avril 2007 à 05:20
bonjour,
huummm, peut être un peu plus simple ?
Private Sub Command1_Click()
MsgBox Multiple(Text1.Text, Text2.Text)
End Sub
'problème avec INT R=6223 et int(R)=6222 ???
'aux grand maux les grands remèdes
Function Multiple(n1 As Double, n2 As Double) As Boolean
Dim R As Double, V As Double
'si les valeurs sont inversées
If n2 > n1 Then R n2: n2 n1: n1 = R
R n1 / n2: V Round(R)
Multiple = (R Like V)
End Function
fontionne également avec des décimales
je ne l'ai pas testé sur des nombre négatif
essaie la
A+
louis