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