Tässä artikkelissa luomme mukautetun funktion, joka muuntaa negatiiviset merkkijonot kokonaisluvuksi.
Tämän artikkelin raakatiedot koostuvat merkkijonoista, joita seuraa miinusmerkki (-).
Haluamme muuntaa nämä merkkijonot kokonaisluvuiksi.
Looginen selitys
Tässä artikkelissa olemme luoneet mukautetun funktion ConvertNegNumbers, joka muuntaa merkkijonon kokonaislukuksi. Tämä toiminto ottaa merkkijonoarvon syötteeksi ja palauttaa kokonaisluvun tulostena.
Koodin selitys
Oikea (Var, 1) = "-"
Yllä olevaa koodia käytetään tarkistamaan, onko merkkijonon viimeinen merkki miinusmerkki (-).
ConvertNegNumbers = CInt (" -" & vasen (Var, Len (Var) - 1))
Yllä olevassa koodissa vasenta funktiota käytetään poimimaan kaikki merkkijonon merkit, paitsi viimeinen. CInt -toimintoa käytetään merkkijonon muuntamiseen kokonaislukuksi.
Seuraa koodia alla
Vaihtoehto Explicit Function ConvertNegNumbers (vaihtelee merkkijonona) 'Tarkistetaan onko merkkijonon viimeinen merkki miinus (-) If Right (Var, 1) = "-" Sitten "Muunna merkkijonon arvo negatiiviseksi kokonaisluvuksi ConvertNegNumbers = CInt ("-"& Left (Var, Len (Var) - 1)) Muu 'Merkkijonon arvon muuntaminen kokonaisluvuksi ConvertNegNumbers = CInt (Var) End If End -funktio
Jos pidit tästä blogista, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse