In dit artikel zullen we een aangepaste functie maken om negatieve tekenreeksen naar een geheel getal te converteren.
De onbewerkte gegevens voor dit artikel bestaan uit tekenreeksen gevolgd door een minteken (-).
We willen deze strings omzetten naar gehele getallen.
Logische uitleg
In dit artikel hebben we een aangepaste functie ConvertNegNumbers gemaakt om de tekenreeks naar een geheel getal te converteren. Deze functie neemt de tekenreekswaarde als invoer en retourneert een geheel getal als uitvoer.
Code uitleg
Rechts(Var, 1) = "-"
De bovenstaande code wordt gebruikt om te controleren of het laatste teken van de tekenreeks gelijk is aan het minteken (-).
ConvertNegNumbers = CInt("-" & Left(Var, Len(Var) - 1))
In bovenstaande code wordt de linkerfunctie gebruikt om alle tekens in de tekenreeks te extraheren, behalve de laatste. De CInt-functie wordt gebruikt om de tekenreekswaarde om te zetten in een geheel getal.
Volg hieronder voor de code:
Optie Expliciete functie ConvertNegNumbers(Var As String) 'Controleren of het laatste teken in de string min(-) is If Right(Var, 1) = "-" Dan 'Converteren van de tekenreekswaarde naar een negatief geheel getal ConvertNegNumbers = CInt("-" & Left (Var, Len(Var) - 1)) Else 'Converteren van tekenreekswaarde naar geheel getal ConvertNegNumbers = CInt(Var) End If End-functie
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite