Dans cet article, nous allons créer une fonction personnalisée pour convertir des chaînes négatives en un entier.

Les données brutes de cet article se composent de chaînes suivies d’un signe moins (-).

ArrowRawData

Nous voulons convertir ces chaînes en entiers.

ArrowOutput

Explication logique

Dans cet article, nous avons créé une fonction personnalisée ConvertNegNumbers pour convertir la chaîne en entier. Cette fonction prend une valeur de chaîne en entrée et renvoie un entier en sortie.

Explication du code

Droite (Var, 1) = « -« 

Le code ci-dessus est utilisé pour vérifier si le dernier caractère de la chaîne est égal au signe moins (-).

ConvertNegNumbers = CInt (« – » & Left (Var, Len (Var) – 1))

Dans le code ci-dessus, la fonction de gauche est utilisée pour extraire tous les caractères de la chaîne, sauf le dernier. La fonction CInt est utilisée pour convertir une valeur de chaîne en entier.

Veuillez suivre ci-dessous pour le code

Option Explicit

Function ConvertNegNumbers(Var As String)

'Checking whether last character in the string is minus(-)

If Right(Var, 1) = "-" Then



'Converting string value to negative integer

ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))

Else

'Converting string value to integer

ConvertNegNumbers = CInt(Var)

End If

End Function

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous aimerions avoir de vos nouvelles, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]