- Charte d'utilisation de Codes Sources
- Charte de Codes-SourceS -- Neutralité
- Charte d'utilisation de Codes-Sources -- Gestion de communauté
- Charte d'utilisation de CodeS-sourceS-- Respect d'autrui
- Charte d'utilisation de CodeS-SourceS - Aspects légaux
- Charte de CodeS-SourceS - Principes de modération
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:
- Modulo vba
- Vb6 modulo - Meilleures réponses
- Vba modulo - Meilleures réponses
- Fonction modulo en VBA - Forum - Visual Basic
- Vba DoEvents - Conseils pratiques - Visual Basic / VB.NET
- Comment remplacer un caractere par un autre dans une chaine de caractere ? - Forum - Visual Basic
- Vba lire fichier texte - Conseils pratiques - Visual Basic / VB.NET
- Sélectionner uniquement les cellules visibles vba - Forum - Visual Basic
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci ce mois-ci
- 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.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
117 internautes nous ont dit merci 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.