Discussion :

[zcoul]

je suis un debutant en vb;
voici un echantillon du code pour lequel j'ai de serieux ennui

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim SeDebut As Long
Dim SeFin As Long
 
SerialDebut = Trim(SerialDebut) 'SerialDebut et serialfin st des valeur saisies ds un text box que je recupère...
SerialFin = Trim(SerialFin)
SeFin = CLng(SerialFin)
SeDebut = CLng(SerialDebut)
If (SeFin - SeDebut) > 0 Then
    NbreSup = NbreSup + 1

mon problème c'est que je n'arrive pas a traiter les nombre entier de plus de 10 chiffres tel que 99999999999 (10chiffres) ERREUR:depassement de capacité ;alors que je veux pouvoir traiter des nombre S/N: 9999999999999999 (16 chiffres); le type long n'est til pas approprié? ou y a til une erreur dans mes declarations?? Aider moi SVP

[LePoulot]

Bonjour,

Cela ne fonctionnerait t'il pas en laissant "SerialDebut" et "SerialFin", c'est a dire des types string ???

VB devrait normalement comparer les deux chaines de caractères ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim SerialDebut As String
Dim SerialFin As String
 
SerialDebut = Trim(SerialDebut) 
SerialFin = Trim(SerialFin)
 
If (SerialFin > SerialFin ) Then
    NbreSup = NbreSup + 1
End If

Après si tu veut, vérifie que tes informations saisies soit bien numériques ...

[zcoul]

Merci LePoulot
j'y ai pensé mais le problème qui se pose c'est le suivant: j'utilise le resulta de la difference entre "serialFin et serialdebut" dans une boucle For; cmt pallier a cela? merci d'avance

[zazaraignée]

Le type de données Decimal utilise 12 octets pour stocker une valeur. Cela sera-t-il suffisant ?

Edit : je tenais l'info sur le type Decimal d'un bouquin. Mais ce format n'étant pas supporté directement dans VB, mais pour certaines bases de données, soupir!, je propose donc le type variant qui occupe 16 octets. Je fais des tests mais je doute le pire puisqu'il est indiqué (dans le même bouquin) que variant peut contenir 'toute valeur aussi grande qu'une Double' qui occupe seulement 8 octets...

Edit (bis) : Comme je le redoutais, ça ne marche pas. Il reste la référence donnée par LePoulot.

[LeForestier]

bonjour à tous,

Avec un 'variant' cela a l'air de fonctionner ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_Load()
      Dim a
      a = 999999999999999# + 1
      MsgBox a
 
End Sub

La réponse correspond.
A+

[edit] le signe '#' a été ajouté tout seul par VB
[edit2] affiché en exposant, pour une comparaison ça devrait convenir.