Test si une variable est un float

Version imprimable

19/09/2008, 04h30
dot-_-net

Test si une variable est un float

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
:merci:
19/09/2008, 07h02
ProgElecT

Citation:

Envoyé par MSDN

VarType, fonction
Renvoie une valeur de type Integer qui indique le sous-type d'une variable.
19/09/2008, 09h12
Delbeke

Tu risque d'être déçu, il n'y a pas de type float en vb :mouarf:
19/09/2008, 09h28
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)

Bonjour,

je suggère à notre ami ce petit exemple :

Code:

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

Citation:

Envoyé par ucfoutu

Bonjour,

je suggère à notre ami ce petit exemple :

Code:

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???

20/09/2008, 08h50
DarkVader

Une interférence parasite :mouarf:
20/09/2008, 08h53
ucfoutu

Exact ;)
20/09/2008, 09h56
ProgElecT

Citation:

Envoyé par dot-_-net

C'est quoi ce code???

une demonstration de l'utilisation de la fonction VarType()

Citation:

Envoyé par DarkVader

Une interférence parasite :mouarf:

pas vraiment, mais je te l'accorde, une façon personnelle de ucfoutu de l'illustrer ;)