Section courante

A propos

Section administrative du site

ABS

Valeur absolue
Visual Basic

Syntaxe

Function ABS(n As Byte) As Byte
Function ABS(n As Decimal) As Decimal
Function ABS(n As Double) As Double
Function ABS(n As Integer) As Integer
Function ABS(n As Long) As Long
Function ABS(n As Short) As Short
Function ABS(n As Single) As Single
Function ABS(n As Variant) As Variant

Paramètres

Nom Description
n Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter. Le paramètre numérique peut être n'importe quelle expression numérique valide. Si nombre contient Null, Null est renvoyé; s'il s'agit d'une variable non initialisée, zéro est renvoyé.

Retour

Valeur Description
0 ou supérieur Ces valeurs sont les seules pouvant être retourné. La valeur absolue d'un nombre est toujours positive.

Description

Cette fonction retourne la valeur absolue d'un nombre. Ainsi, le signe (négatif), s'il existe, est retiré de façon à conserver uniquement les chiffres du nombre sans toutefois changer sa valeur. Voici un graphique de représentation de la distribution de cette valeur :

Algorithme

MODULE ABS(valeur)
   SI valeur < 0 ALORS
      RETOURNE - valeur
   SINON
      RETOURNE valeur
   FIN SI

Remarques

Exemples

Voici un exemple montrant une utilisation de la valeur absolue avec des parenthèses :

  1. Sub Main()
  2.  MsgBox "Abs(9*(-7))=" & ABS(9*(-7))
  3. End Sub

on obtiendra le résultat suivant :

Abs(9*(-7))=63

Voici un exemple montrant une utilisation plus classique de la valeur absolue :

  1. Sub Main()
  2.  MsgBox "Abs(1)=" & Abs(1) & vbCrLf & _
  3.         "Abs(-1)=" & Abs(-1) & vbCrLf & _
  4.         "Abs(30.2)=" & Abs(30.2) & vbCrLf & _
  5.         "Abs(-35.4)=" & Abs(-35.4)
  6. End Sub

on obtiendra le résultat suivant :

Abs(1)=1
Abs(-1)=1
Abs(30.2)=30.2
Abs(-35.4)=35.4

Voici un exemple montrant la différence de résultats avec la fonction «SGN» :

  1. Sub Main()
  2.  MsgBox "abs(1)=" & abs(1) & ", sgn(1)=" & sgn(1) & vbCrLf & _
  3.         "abs(-1)=" & abs(-1) & ", sgn(-1)=" & sgn(-1) & vbCrLf & _
  4.         "abs(0)=" & abs(0) & ", sgn(0)=" & sgn(0) & vbCrLf & _
  5.         "abs(5)=" & abs(5) & ", sgn(5)=" & sgn(5) & vbCrLf & _
  6.         "abs(10)=" & abs(10) & ", sgn(10)=" & sgn(10) & vbCrLf & _
  7.         "abs(-17)=" & abs(-17) & ", sgn(-17)=" & sgn(-17)  & vbCrLf & _
  8.         "abs(27.4)=" & abs(27.4) & ", sgn(27.4)=" & sgn(27.4)  & vbCrLf & _
  9.         "abs(-12.13)=" & abs(-12.13) & ", sgn(-12.13)=" & sgn(-12.13)
  10. End Sub

on obtiendra le résultat suivant :

abs(1)= 1 , sgn(1)= 1
abs(-1)= 1 , sgn(-1)=-1
abs(0)= 0 , sgn(0)= 0
abs(5)= 5 , sgn(5)= 1
abs(10)= 10 , sgn(10)= 1
abs(-17)= 17 , sgn(-17)=-1
abs(27.4)= 27.3999996185303 , sgn(27.4)= 1
abs(-12.13)= 12.1300001144409 , sgn(-12.13)=-1

Voici un exemple montrant comment effectuer une comparaison avec Abs :

  1. Sub Main()
  2.  A = -10
  3.  B = 6
  4.  If Abs(A) > Abs(B)Then MsgBox "|a| > |b|"
  5.  If Abs(A) = Abs(B)Then MsgBox "|a| = |b|"
  6.  If Abs(A) < Abs(B)Then MsgBox "|a| < |b|"
  7. End Sub

on obtiendra le résultat suivant :

|a| > |b|

Voici un exemple montrant comment calculer la distance entre deux nombres à l'aide de la fonction Abs :

  1. Sub Main()
  2.  MsgBox "La distance entre -8 et 10 = " & abs(-8 - 10) & vbCrLf & _
  3.         "La distance entre 4 et 8 = " & abs(4 - 8) & vbCrLf & _
  4.         "La distance entre 0 et 5 = " & abs(0 - 5) & vbCrLf & _
  5.         "La distance entre -100 et 100 = " & abs(-100 - 100)
  6. End Sub

on obtiendra le résultat suivant :

La distance entre -8 et 10 = 18
La distance entre 4 et 8 = 4
La distance entre 0 et 5 = 5
La distance entre -100 et 100 = 200

Voir également

Langage de programmation - Visual Basic - Référence de procédures et fonctions - SGN

Dernière mise à jour : Lundi, le 19 novembre 2012