VBA CDBL funkcija | Kā konvertēt vērtību dubultā datu tipam?

Excel VBA CDBL funkcija

VBA CDBL ir iebūvēta datu veida konvertēšanas funkcija, un šīs funkcijas izmantošana ir tāda, ka tā pārveido jebkura konkrētā mainīgā vērtības datu tipu Double datu tipā, šai funkcijai ir nepieciešams tikai viens arguments, kas ir paša mainīgā vērtība.

VBA “CDBL” nozīmē “Convert to Double”. Šī funkcija konvertē norādīto numuru uz Double data type. Apskatiet CDBL funkcijas sintaksi.

  • Izteiksme ir vērtība, kuru mēs cenšamies pārveidot par Double datu tipu.

Jebkuru peldošo skaitli, kas tiek glabāts kā dubultdatu tips, var konvertēt, izmantojot CDBL funkciju.

Norādiet šeit, lai atcerētos: Double skaitļa datus var konvertēt tikai skaitliskās vērtības. Visu, kas nav skaitliskā vērtība, nevar pārveidot par divkāršu tipu, tāpēc galu galā parādiet “Type Mismatch Error in VBA”, piemēram, tālāk.

Vai jūs kādreiz esat izmantojis dubultu datu tipu VBA kodēšanā?

Ja nē, tagad ir vērts to apskatīt. Double ir datu tips, ko izmanto, lai saglabātu skaitļa decimāldaļu. Mums var būt līdz 13 peldošiem cipariem aiz komata.

Piemēru skatiet zemāk redzamajā VBA kodā.

Iepriekšminētajā es mainīgā (k) tipu esmu definējis kā veselu skaitli. Dim k kā vesels skaitlis

Pēc tam vērtību esmu piešķīris kā k = 25,4561248694615

Kad es palaidīšu kodu, rezultāts tiks iegūts šādi.

Rezultāts tika iegūts kā 25. Tā kā mainīgo esam definējuši kā veselu skaitli VBA, kas ir līdz tuvākajai veselā skaitļa vērtībai.

Lai parādītu rezultātu tādu, kāds tas ir, mums ir jāmaina mainīgā tips no Integer uz Double.

Tam vajadzētu dot precīzu skaitli, kādu mēs piešķirām mainīgajam.

Labi, paturot to prātā, mēs varam arī pārveidot visus frakciju skaitļus, kas tiek glabāti, kā datu veidu, kas nav dubultā.

VBA CDBL funkcijas izmantošanas piemēri

Šo VBA CDBL funkciju veidni varat lejupielādēt šeit - VBA CDBL funkciju veidne

1. piemērs

Lai sāktu procesu, apskatīsim zemāk redzamo kodu.

Kods:

 Sub Double_Eample1 () Dim k As virkne k = 48.14869569 MsgBox k End Sub 

Tagad es palaidīšu kodu un redzēšu, kas notiks.

Lai gan VBA mainīgā tips ir “String”, tas tomēr parāda decimāldaļas. Tas ir tāpēc, ka virknes var būt jebkura veida dati, tāpēc decimāldaļas vai peldošie skaitļi tiek rādīti tādi, kādi tie ir.

Tagad mainīšu datu tipu no virknes uz Integer.

Kods:

 Sub Double_Piemērs1 () Dim k As Integer k = 48.14869569 MsgBox k End Sub 

Tagad es palaidīšu kodu un redzēšu, kas notiks.

Šeit CDBL funkcijai ir būtiska loma, lai pārveidotu vesela skaitļa datu tipu par divkāršu. Tātad zemāk esošais kods jums ir vienāds.

Kods:

 Sub Double_Eample1 () Dim IntegerNumber kā virkne Dim DoubleNumber As Double IntegerNumber = 48.14869569 DoubleNumber = CDbl (IntegerNumber) MsgBox DoubleNumber End Sub 

Tas pārveidos virknes datu veida vērtību uz Double.

2. piemērs

Tagad pārvērsim skaitli 854.6947, kas tiek saglabāts kā variants, uz Double datu tipu.

Kods:

 Sub Double_Eample2 () Dim VaraintNumber Dim DoubleNumber As Double VaraintNumber = 854.6947 DoubleNumber = CDbl (VaraintNumber) MsgBox DoubleNumber End Sub 

Pirmais mainīgais, kuru esmu deklarējis kā “Variant”. Dim VaraintNumber

Piezīme: Ja mainīgā tips nav deklarēts, tas kļūst par universālu datu tipu Variant.

Pēc tam esmu deklarējis vēl vienu mainīgo, ti, Dim DoubleNumber kā Double

Pirmajam mainīgajam VaraintNumber mēs esam piešķīruši vērtību 854.6947.

Tagad, izmantojot otro mainīgo, mēs esam izmantojuši CDBL funkciju, lai Variantu vērtību pārveidotu par Double datu tipu.

DoubleNumber = CDbl (VaraintNumber)

Pēdējā daļa ir parādīt rezultātu ziņojumu lodziņā. MsgBox DoubleNumber

Tagad es palaidīšu kodu, lai redzētu rezultātu.

Atceramās lietas

  • Divkāršs datu tips var pieņemt tikai skaitliskus skaitļus.
  • Ja tiek ievadīta teksta vērtība, tas izraisīs kļūdas veidu neatbilstība.
  • Divkāršs datu tips var parādīt tikai 13 peldošo skaitļu ciparus.

$config[zx-auto] not found$config[zx-overlay] not found