Selles artiklis loome kohandatud funktsiooni negatiivsete stringide teisendamiseks täisarvuks.
Selle artikli toorandmed koosnevad stringidest, millele järgneb miinusmärk (-).
Soovime need stringid teisendada täisarvudeks.
Loogiline seletus
Selles artiklis oleme loonud kohandatud funktsiooni ConvertNegNumbers, mis teisendab stringi täisarvuks. See funktsioon võtab stringi väärtuse sisendina ja tagastab väljundina täisarvu.
Koodi selgitus
Paremal (var, 1) = "-"
Ülaltoodud koodi abil kontrollitakse, kas stringi viimane märk on võrdne miinusmärgiga (-).
ConvertNegNumbers = CInt (" -" & vasak (Var, Len (Var) - 1))
Ülaltoodud koodis kasutatakse vasakpoolset funktsiooni, et eraldada stringist kõik märgid, välja arvatud viimane. Funktsiooni CInt kasutatakse stringi väärtuse teisendamiseks täisarvuks.
Palun järgige koodi allpool
Valik Selgesõnaline funktsioon ConvertNegNumbers (variandina stringina) 'Kontrollimine, kas stringi viimane märk on miinus (-) If Right (Var, 1) = "-" then' Stringi väärtuse teisendamine negatiivseks täisarvuks ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1)) Muu 'Stringiväärtuse teisendamine täisarvuks ConvertNegNumbers = CInt (Var) End if End Function
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile