V tomto článku vytvoříme vlastní funkci pro převod záporných řetězců na celé číslo.
Nezpracovaná data pro tento článek se skládají ze řetězců následovaných znaménkem mínus (-).
Chceme tyto řetězce převést na celá čísla.
Logické vysvětlení
V tomto článku jsme vytvořili vlastní funkci ConvertNegNumbers pro převod řetězce na celé číslo. Tato funkce bere hodnotu řetězce jako vstup a vrací jako výstup celé číslo.
Vysvětlení kódu
Vpravo (Var, 1) = "-"
Výše uvedený kód slouží ke kontrole, zda se poslední znak řetězce rovná znaménku mínus (-).
ConvertNegNumbers = CInt (" -" & Left (Var, Len (Var) - 1))
Ve výše uvedeném kódu se funkce left používá k extrahování všech znaků v řetězci, kromě posledního. Funkce CInt se používá k převodu hodnoty řetězce na celé číslo.
Pro kód prosím postupujte níže
Možnost Explicitní funkce ConvertNegNumbers (Var jako řetězec) 'Kontrola, zda je poslední znak v řetězci minus (-) If Right (Var, 1) = "-" Then' Převod řetězcové hodnoty na záporné celé číslo ConvertNegNumbers = CInt ("-" & Left (Var, Len (Var) - 1)) Jinak 'Převod hodnoty řetězce na celé číslo ConvertNegNumbers = CInt (Var) End If End Function
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail