Discussion :

[dot-_-net]

Salut a tous
y a-t-il une fonction en VB qui teste si une variable est une float ou non .
Si non comment puis je créer cette fonction

[ProgElecT]

VarType, fonction
Renvoie une valeur de type Integer qui indique le sous-type d'une variable.

[Delbeke]

Tu risque d'être déçu, il n'y a pas de type float en vb

[DarkVader]

Float (représentation en simple précision d'un nombre avec virgule en C - codage sur 4 octets)
correspond à Single en VB.

=> vartype=vbSingle (4)

Pour les autres conversions :
Short => Integer (2)
Long => Long (3)
Float => Single (4)
Double => Double (5)

[ucfoutu]

Bonjour,


je suggère à notre ami ce petit exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
  toto = 1
  titi = 1.1
  tata = 1.32
  Dim tutu As Single
  tutu = 1.1
  MsgBox "toto = " & toto & " ====>> de type " & VarType(toto) & " ( soit " & TypeName(toto) & " Integer)" & vbCrLf & _
  "titi = " & titi & " ====>> de type " & VarType(titi) & " ( soit " & TypeName(titi) & " Double-precision floating-point number)" & vbCrLf & _
  "tata= " & tata & " ====>> de type " & VarType(tata) & " ( soit " & TypeName(tata) & " Double-precision floating-point number)" & vbCrLf & vbCrLf & _
  "mais tutu, défini par dim, = " & tutu & " ====>> de type " & VarType(tutu) & " ( soit " & TypeName(tutu) & " Single-precision floating-point number)"
End Sub

[dot-_-net]

Bonjour,


je suggère à notre ami ce petit exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
  toto = 1
  titi = 1.1
  tata = 1.32
  Dim tutu As Single
  tutu = 1.1
  MsgBox "toto = " & toto & " ====>> de type " & VarType(toto) & " ( soit " & TypeName(toto) & " Integer)" & vbCrLf & _
  "titi = " & titi & " ====>> de type " & VarType(titi) & " ( soit " & TypeName(titi) & " Double-precision floating-point number)" & vbCrLf & _
  "tata= " & tata & " ====>> de type " & VarType(tata) & " ( soit " & TypeName(tata) & " Double-precision floating-point number)" & vbCrLf & vbCrLf & _
  "mais tutu, défini par dim, = " & tutu & " ====>> de type " & VarType(tutu) & " ( soit " & TypeName(tutu) & " Single-precision floating-point number)"
End Sub

C'est quoi ce code???