Funkce CDEC ve VBA
CDEC je vestavěná funkce převodu datového typu dostupná jako funkce VBA. Funkce VBA CDEC převádí datový typ z jakéhokoli jiného datového typu na desítkový datový typ. Zkratka znamená „Převést na desítkové“.
Když pracujeme s daty a žádáme uživatele o zadání hodnot, může existovat celá řada formátů, ve kterých nám může uživatel poskytnout hodnoty, jako například uživatel může poskytnout desítkovou hodnotu a nedefinovanou hodnotu, funkce CDEC v VBA nám pomáhá převést libovolnou hodnotu na desítkovou hodnotu a je to vestavěná funkce v aplikaci Excel.
Níže je uvedena syntaxe funkce CDEC.
Výraz: Toto není nic jiného než hodnota, kterou se snažíme převést na desítkový datový typ. Může to být buď přímá číselná hodnota, nebo proměnná, která drží číselnou hodnotu.
- Než uvidíme, jak převést hodnotu na desítkové datové typy, dovolte mi podrobně vás seznámit s desítkovým datovým typem.
- Běžné číselné datové typy, které používáme, jsou „Long, Integer a Double.“ Pro uložení dlouhých desetinných hodnot není k dispozici žádný speciální datový typ „Decimal“. Datové typy Long & Integer převádějí číslo na celé číslo, i když je jim přiřazena desetinná hodnota.
- Abychom tedy mohli ukládat desetinné hodnoty do proměnných, musíme proměnnou deklarovat jako datový typ „Variant“. Potom pomocí funkce VBA CDEC můžeme převést na desítkový datový typ.
- K ukládání desetinných hodnot až do 14 číslic můžeme použít datový typ „Double“, ale pomocí funkce převodu VBA CDEC můžeme uložit 28 desetinných míst.
- Pokud jde o obsazení paměti, CDEC spotřebuje 14 bajtů systémové paměti a protože předem deklarujeme datový typ proměnné jako „Variant“, bude hodnota vždy nula.
Příklady použití funkce VBA CDEC
V následující části článku uvidíme několik příkladů.
Podívejte se například na níže uvedený kód VBA.
Kód:
Sub CDEC_Example () Dim k As Integer k = 2.5698979797646 MsgBox k End Sub
Ve výše uvedeném jsme deklarovali proměnnou VBA jako „Integer“, když spustíme kód, a dostaneme hodnotu do pole se zprávou ve VBA, jak je uvedeno níže.
Když jsme přiřadili hodnotu výsledků 2,5698979797646 je 3, je to proto, že datový typ, který jsme proměnné přiřadili, je „Integer“, takže převede číslo na nejbližší celočíselnou hodnotu.
Poznámka: Pokud je desetinná hodnota> 0,5, zaokrouhlí se nahoru na další celočíselnou hodnotu a pokud je desetinná hodnota <0,51, zaokrouhlí se dolů na celočíselnou hodnotu.- Dobře, dovolte mi nyní přiřadit funkci CDEC k převodu hodnoty datového typu na desítkové.
- Jak můžete vidět výše, proměnné „k“ jsem přiřadil hodnotu pomocí funkce převodu VBA CDEC.
- Spusťte kód a podívejte se, co dostaneme.
- Dokonce i teď jsme dostali výsledek jako tři kvůli momentu přidělenému datovému typu Integer a vždy zaokrouhlí číslo na další celočíselnou hodnotu.
Abychom tedy mohli nejprve přiřadit datový typ „Decimal“, musíme datový typ přiřadit jako „Variant“ a poté převést na Decimal pomocí funkce CDEC.
Kód:
Sub CDEC_Example () Dim k As Variant k = CDec (2.5698979797646) MsgBox k End Sub
Nyní proveďte kód a podívejte se, co dostaneme.
Další specialitou tohoto desetinného datového typu je, že můžeme ukládat více než 14 číslic desetinných hodnot, na rozdíl od datového typu Double, který může obsahovat pouze 14 desetinných míst.
Nyní zadám více než 14 číslic do proměnné v uvozovkách.
Kód:
Sub CDEC_Example () Dim k As Variant k = CDec ("2.56989797976466769416958") MsgBox k End Sub Poznámka: Zadejte číslo s uvozovkami, protože bez dvojitých uvozovek po 14 číslicích se bude zaokrouhlovat. Zadávání čísel v uvozovkách.
Nyní spusťte kód a podívejte se, co dostaneme.
Máme všechna desetinná čísla, která jsme zadali do uvozovek.
Věci k zapamatování
- CDEC znamená „Převést na desítkové“.
- Přijímá pouze datový typ „Varianta“.
- Neexistuje žádný datový typ „Decimal“, ale pomocí funkce CDEC můžeme snadno převést na desítkový datový typ.
- Specialitou je, že může obsahovat „28“ číslic desetinných míst.
