Le Modulo en VB6 [Résolu]
elkasmi_ahmed
- Messages postés
- 5
- Date d'inscription
- jeudi 31 mars 2005
- Dernière intervention
- 13 septembre 2006
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Dernière intervention
- 23 décembre 2008
A voir également:
- Vb6 modulo
- Modulo vb6 - Meilleures réponses
- Vb6 mod - Meilleures réponses
- Modulo vba - Guide
- [visual basic] [général] comment exploiter efficacement l'ide vb6 ? - Conseils pratiques - Visual Basic / VB.NET
- [vb6] portées des variables - Conseils pratiques - Visual Basic / VB.NET
- [vb6] accés à une base de données access en ado - Conseils pratiques - Visual Basic / VB.NET
- Les appels d'apis en vb6 - Conseils pratiques - Visual Basic / VB.NET
2 réponses
Meilleure réponse
- Messages postés
- 17308
- Date d'inscription
- mercredi 2 janvier 2002
- Dernière intervention
- 22 août 2018
le modulo, c'est "le reste de la division entière."
tu peux donc le remplacer par :
R1 = t1 - fix(t1 / 97) * 97
Renfield
Admin CodeS-SourceS- MVP Visual Basic
tu peux donc le remplacer par :
R1 = t1 - fix(t1 / 97) * 97
Renfield
Admin CodeS-SourceS- MVP Visual Basic
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 90 internautes ce mois-ci
Meilleure réponse
- Messages postés
- 4066
- Date d'inscription
- mardi 13 mai 2003
- Dernière intervention
- 23 décembre 2008
Salut,
Le problème a déjà été rencontré sur VBFRance. Voici la réponse qui a été apportée ce jour-là par us_30 :
L'utilisation de la fonction MOD ne fonctionne que dans la plage des
nombres en LONG. C'est à dire que tu peux l'utiliser avec des DOUBLE à
la condition de ne pas dépasser la limite 2147483647 (limite du type
LONG) alors que le type DOUBLE va au-delà.
Par conséquent, il
faut réécrire la fonction MOD, avec des instructions compatibles avec
le type DOUBLE, pour toute sa plage. Cette fonction peut être
programmée comme suit :
=
Function MOD2(ByVal D As Double, ByVal N As Double) As Double
'Renvoi le modulo de D et N pour des nombres jusqu'à Double
'contrairement à MOD d'Excel ou de VBA
'Converti en entierD Int(D): N Int(N)
'Calcul du reste
MOD2 = D - N * Int(D / N)
End Function
=
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Le problème a déjà été rencontré sur VBFRance. Voici la réponse qui a été apportée ce jour-là par us_30 :
L'utilisation de la fonction MOD ne fonctionne que dans la plage des
nombres en LONG. C'est à dire que tu peux l'utiliser avec des DOUBLE à
la condition de ne pas dépasser la limite 2147483647 (limite du type
LONG) alors que le type DOUBLE va au-delà.
Par conséquent, il
faut réécrire la fonction MOD, avec des instructions compatibles avec
le type DOUBLE, pour toute sa plage. Cette fonction peut être
programmée comme suit :
=
Function MOD2(ByVal D As Double, ByVal N As Double) As Double
'Renvoi le modulo de D et N pour des nombres jusqu'à Double
'contrairement à MOD d'Excel ou de VBA
'Converti en entierD Int(D): N Int(N)
'Calcul du reste
MOD2 = D - N * Int(D / N)
End Function
=
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 90 internautes ce mois-ci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.