CSNG |
Conversion en simple précision |
|---|---|
| Visual Basic | |
Syntaxe
| Function CSNG(expression) As Single |
Paramètres
| Nom | Description |
|---|---|
| expression | Ce paramètre permet d'indiquer l'expression scalaire à traiter. Le paramètre expression est n'importe quelle expression valide. |
Description
Cette fonction permet de convertir une expression en un type de simple précision réel.
Remarques
- En général, vous pouvez documenter votre code à l'aide des fonctions de conversion de type de données pour montrer que le résultat d'une opération doit être exprimé sous la forme d'un type de données particulier plutôt que du type de données par défaut. Par exemple, utilisez CDbl ou CSng pour forcer l'arithmétique de double précision ou de simple précision dans les cas où l'arithmétique monétaire ou entière se produirait normalement.
- Utilisez la fonction CSng pour fournir des conversions internationales à partir de tout autre type de données vers un sous-type unique. Par exemple, différents séparateurs décimaux sont correctement reconnus en fonction des paramètres régionaux de votre système, tout comme les milliers de séparateurs.
- Si l'expression se trouve en dehors de l'intervalle acceptable pour le sous-type Single, une erreur se produit.
- L'exemple suivant utilise la fonction CSng pour convertir une valeur en Single :
Dim MyDouble1, MyDouble2, MySingle1, MySingle2 ' MyDouble1, MyDouble2 sont des doubles.
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1) ' MySingle1 contient 75,34211.
MySingle2 = CSng(MyDouble2) ' MySingle2 contient 75,34216.
Exemple
Voici un exemple d'une utilisation typique de cette fonction :
- Sub Main()
- MsgBox "CSng(1)=" & CSng(1) & vbCrLf & _
- "CSng(1.1)=" & CSng(1.1) & vbCrLf & _
- "CSng(1.7)=" & CSng(1.7) & vbCrLf & _
- "CSng(-1)=" & CSng(-1) & vbCrLf & _
- "CSng(-1.1)=" & CSng(-1.1) & vbCrLf & _
- "CSng(-1.7)=" & CSng(-1.7) & vbCrLf & _
- "CSng(30.2)=" & CSng(30.2) & vbCrLf & _
- "CSng(-35.4)=" & CSng(-35.4) & vbCrLf & _
- "CSng(-35.4)=" & CSng(-35.4) & vbCrLf & _
- "CSng(1.31E+15)=" & CSng(1.31E+15)
- End Sub
on obtiendra le résultat suivant :
CSng(1)=1CSng(1.1)=1,1
CSng(1.7)=1,7
CSng(-1)=-1
CSng(-1.1)=-1,1
CSng(-1.7)=-1,7
CSng(30.2)=30,2
CSng(-35.4)=-35,4
CSng(-35.4)=-35,4
CSng(1.31E+15)=1,31E+15
Dernière mise à jour : Lundi, le 19 novembre 2012