Problème avec la conversion d'un string et son utilisation dans des calculs mathématiques

Version imprimable

10/09/2013, 15h09
tinhinan6

Problème avec la conversion d'un string et son utilisation dans des calculs mathématiques

Bjr;
j'ai passé plusieurs jours à essayer de résoudre ce pb seule mais en veine c'est pourquoi je fais appel à votre aide
voilà j'ai un string "9999900008015281"
que je doit multiplier par 100
puis calculer son modulo au nombre 97
puis le nombre moins le modulo
le pb c'est quelque soit la conversion CDbl, Cint u autre je tombe sur un chiffre du genre ....E+15
ce qui me donne un résultat faux merci à l'avance pour votre aide et excuser mon ignorance(j'ai jamais travailler avec vb6)
10/09/2013, 15h51
DAUDET78

Citation:

Envoyé par tinhinan6

et excuser mon ignorance(j'ai jamais travailler avec vb6)

Ce n'est pas un problème de VB6 ..... mais de tous les langages de programmation qui ont une limite sur la taille maximum d'un entier. Sinon, il passe en flottant

Citation:

sur un chiffre du genre ....E+15

En VB6 tu as le type Currency Entier qui pourrait être une piste. Sinon, c'est un problème mathématique qui consiste à scinder "9999900008015281" en "9999900" et "008015281" qui sont stockables sur deux variables de type Entier Long et ensuite, faire la cuisine pour calculer le modulo

Salut

A vérifier avec diffèrent chiffres

Code:

1
2
3
Dim Chiffre As String
Chiffre = "9999900008015281"
MsgBox Round(((CDec(Chiffre) * 100) / 97), 0)

Bonjour,

sauf erreur de ma part, le code de ProgElect ne fonctionne pas pour des nombres plus importants (Salut au passage ;) )

Voila un code "un peu" tordu, pas documenté, mais qui doit te donner le résultat attendu :

Il te faut 2 zones text, dans la première tu mets ton nombre (9999900008015281 dans ton exemple), dans la deuxième le nombre par lequel tu divises (97 dans ton exemple)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub Command1_Click()
Dim Div As Integer
Dim TempoGrp As String
Dim TempoMod As Double
Dim MaValeur As String
Dim Longueur As Integer
Dim LongueurModulo As Integer
Dim i As Integer, j As Integer
Dim TempoVal As String
 
Div = Val(Text2.Text)
 
MaValeur = Text1.Text
Do
  i = i + 1
  Longueur = Len(Text2.Text)
  TempoGrp = Mid(MaValeur, i, Longueur)
  If Val(TempoGrp) < Div Then
    Longueur = Longueur + 1
    TempoGrp = Mid(MaValeur, i, Longueur)
  End If
 
  TempoMod = Val(TempoGrp) Mod Div
 
  LongueurModulo = Len(Trim(Str(TempoMod)))
  TempoGrp = Trim(Str(TempoMod))
  TempoVal = ""
  For j = 0 To i - 2
    TempoVal = TempoVal & "0"
  Next j
  For j = 1 To (Longueur - LongueurModulo)
    TempoVal = TempoVal & "0"
  Next j
  TempoVal = TempoVal & Trim(Str(TempoMod))
  TempoVal = TempoVal & Mid(MaValeur, i + Longueur)
  MaValeur = TempoVal
Loop Until Val(MaValeur) < Div
 
Debug.Print "Modulo final : " & Val(MaValeur)
i = 0
Do
  i = i + 1
  TempoGrp = Right(Text1.Text, i)
Loop Until Val(TempoGrp) >= Div
TempoGrp = Trim(Str(Val(TempoGrp) - Val(MaValeur)))
TempoVal = Left(Text1.Text, Len(Text1.Text) - i)
For j = 1 To i - Len(TempoGrp)
  TempoVal = TempoVal & "0"
Next j
TempoVal = TempoVal & TempoGrp
Debug.Print "partie entière : " & TempoVal
 
End Sub

J'ai fait quelques essais, ça semble fonctionner (à vérifier tout de même).

Salut

OhMonBato tu me connais, je ne suis pas du tout ennuyé de ta remarque, mais je ne suis pas d'accord, il est possible que nous n'ayons pas compris le même besoin de calcul formulé par tinhinan6.

Il est possible aussi que je n'ai pas su faire fonctionné ton code.

Ce que j'ai compris Résultat = partie entière d'un (chiffre multiplié par 100) divisé par un autre chiffre.

Donc je persiste avec une (peut être) amélioration.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Chiffre As String Dim Diviseur As Integer Dim Multipl As Integer Chiffre = "779919999999919919999999998" ' maximum Multipl = 100 Diviseur = 97 On Error Resume Next MsgBox CDec(Left$(CStr(CDec((CDec(Chiffre) * Multipl) / Diviseur)), (InStr(1, CStr(CDec((CDec(Chiffre) * Multipl) / Diviseur)), ",", vbTextCompare) - 1))) If Err.Number <> 0 Then MsgBox "Erreur n° " & Err.Number & vbNewLine & Err.Description, vbCritical End If
Avec Chiffre = "9999900008015287"
Multipl = 100
Diviseur = 91
Ma premiére proposition donnait: 10988901107709107
La derniére proposition donne: ... 10988901107709106
En effet, Round(Chiffre,0) arrondi à l'unité supérieure si la décimal => à 0.5
C'est pourquoi la nouvelle formule supprime tous les caractères de droite compris le séparateur décimal.

ATTENTION: Chiffre doit être <= 779 919 999 999 919 919 999 999 998

12/09/2013, 15h31
OhMonBato

:mouarf: Alors on a peut être pas compris la même chose.

Si je prends un exemple simple, je pensais qu'avec le nombre 97 et le diviseur 13, on voulait 6 et 91 comme résultat (7*13 = 91, reste 6). J'oublie la multiplication par 100 qui "ne sert à rien" ou alors toujours avec les mêmes nombres on obtient 2 et 9698 (746 * 13). C'est pas ça le résultat attendu ?
18/03/2015, 14h22
DarkVader

Bonjour,
L'opérateur \ est effectivement limité aux longs et l'expression d'un nombre autre qu'au format décimal (Cdec(variant))
retournera une expression au format scientifique.
Concernant l'opération voulue, je n'ai pas du non plus comprendre car pour moi c'était :
value - Mod (100 * value, 97) soit avec la librairie VB6i

Code:

SubZ(value, ModuloZ(MultZ(value, "100"), "97")) '= 9999900008015276

Mais comme de toute manière il semble que l'initiateur de la file s'en tape lol