Acest tutorial va arăta cum să utilizați funcția CDbl VBA pentru a converti expresiile în tip de date dublu.
Funcția CDbl
VBA CDbl Convertește expresia în număr întreg
Funcția VBA CDbl poate fi utilizată pentru a converti expresiile în tipul de date dublu din interiorul codului VBA.
123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) „Rezultatul este: 12.345MsgBox CDbl (-124) „Rezultatul este: -124MsgBox CDbl (0,000034) „Rezultatul este: 0,000034MsgBox CDbl (-12.000034) 'Rezultatul este: -12.000034Sfârșitul Sub |
VBA CDbl Conversia șirului în dublu
Funcția VBA CDbl poate fi utilizată pentru a converti șirurile în duble dacă caracterele din șir au un sens ca numere.
123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx Ca șirStrEx = "112"MsgBox CDbl (StrEx)„Rezultatul este: 112StrEx = "0.0003"MsgBox CDbl (StrEx)'Rezultatul este: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Rezultatul este: 1100002, este ignoratStrEx = "112 USD"MsgBox CDbl (StrEx)'Rezultatul este: 112 $ este ignoratSfârșitul Sub |
Programare VBA | Generatorul de coduri funcționează pentru dvs.!
VBA CDbl Run-Time Error 13 Type Mismatch
Utilizarea funcției VBA CDbl cu șiruri care conțin caractere nenumerice sau caractere care nu au semnificație în context numeric va avea ca rezultat o eroare în timp de execuție „13”: Tip nepotrivire.
1234567 | Sub CDblExample_3 ()„Codul de mai jos va avea ca rezultat un mesaj de EROARE„CDbl nu poate gestiona caractere nenumericeDim StrEx Ca șirStrEx = "Ab13"MsgBox CDbl (StrEx)Sfârșitul Sub |
Setări regionale VBA CDbl
Funcția VBA CDbl are un comportament diferit de conversie a șirurilor cu virgulă sau punct. Utilizează setările regionale ale sistemului de operare pentru separatorul zecimal și separatorul de cifre.
12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx Ca șirStrEx = "1,9"MsgBox CDbl (StrEx)„Dacă setările regionale au, ca separator de grupare atunci„Rezultatul este: 19'Dacă setările regionale au, ca separator zecimal atunci„Rezultatul este: 1,9StrEx = "1.9"MsgBox CDbl (StrEx)„Dacă setările regionale au. ca separator de grupare atunci„Rezultatul este: 19„Dacă setările regionale au. ca separator zecimal atunci„Rezultatul este: 1.9Sfârșitul Sub |
VBA CDbl Conversia booleenilor în dublu
Funcția VBA CDbl poate converti variabilele booleene în duble. Dacă expresia evaluată este adevărată, dubla rezultată este -1 și dacă expresia evaluată este falsă, dubla rezultată este 0.
12345678910 | Sub CDblExample_5 ()Dim BoolEx Ca booleanBoolEx = AdevăratMsgBox CDbl (BoolEx) 'Rezultatul este: -1MsgBox CDbl (2 = 2) 'Rezultatul este: -1BoolEx = FalsMsgBox CDbl (BoolEx) 'Rezultatul este: 0MsgBox CDbl (1 = 2) „Rezultatul este: 0Sfârșitul Sub |
V-ați săturat să căutați exemple de cod VBA? Încercați AutoMacro!
VBA CDbl Conversia datelor în duble
Funcția VBA CDbl poate converti o variabilă de dată într-un număr întreg. Valoarea returnată este numărul intern utilizat de excel pentru stocarea datei rotunjită.
123456789101112 | Sub CDblExample_6 ()Dim DateEx Ca datăDateEx = # 3/3/1940 #MsgBox CDbl (DateEx)'Rezultatul este: 14644DateEx = # 8/7/1964 22:41:00 PM #MsgBox CDbl (DateEx)'Rezultatul este: 23596.9451388889DateEx = # 3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)'Rezultatul este: 12485.4806018519Sfârșitul Sub |