Savoir si une valeur est plus ou moins égale à une autre, à autant près


Contenu du snippet

Public Function IsNear(ByVal dValueToHave As Short, ByVal dValueToCompare As Short, ByVal dist As Short) As Boolean
  Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Integer, ByVal dValueToCompare As Integer, ByVal dist As Integer) As Boolean
  Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Long, ByVal dValueToCompare As Long, ByVal dist As Long) As Boolean
  Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Single, ByVal dValueToCompare As Single, ByVal dist As Single) As Boolean
  Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Double, ByVal dValueToCompare As Double, ByVal dist As Double) As Boolean
  Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function
Public Function IsNear(ByVal dValueToHave As Decimal, ByVal dValueToCompare As Decimal, ByVal dist As Decimal) As Boolean
  Return System.Math.Abs(dValueToHave - dValueToCompare) <= System.Math.Abs(dist)
End Function

Compatibilité : VB 2005, VB 2008, VB.NET 1.x

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.