Questo tutorial dimostrerà come utilizzare la funzione CDbl VBA per convertire le espressioni in un doppio tipo di dati.
Funzione CDbl
VBA CDbl Converti espressione in intero
La funzione VBA CDbl può essere utilizzata per convertire le espressioni in un doppio tipo di dati all'interno del codice VBA.
123456 | Sub CDblEsempio_1()MsgBox CDbl(12.345) 'Il risultato è: 12.345MsgBox CDbl(-124) 'Il risultato è: -124MsgBox CDbl(0,000034) 'Il risultato è: 0,000034MsgBox CDbl(-12.000034) 'Il risultato è: -12.000034Fine sottotitolo |
VBA CDbl Conversione di stringhe in doppie
La funzione VBA CDbl può essere utilizzata per convertire le stringhe in doppi se i caratteri nella stringa hanno un significato come numeri.
123456789101112131415161718 | Sub CDblEsempio_2()Dim StrEx As StringStrEx = "112"MsgBox CDbl(StrEx)"Il risultato è: 112"StrEx = "0,0003"MsgBox CDbl(StrEx)"Il risultato è: 0,0003"StrEx = "11.0002"MsgBox CDbl(StrEx)'Il risultato è: 1100002, viene ignoratoStrEx = "$ 112"MsgBox CDbl(StrEx)'Il risultato è: 112 $ viene ignoratoFine sottotitolo |
Programmazione VBA | Il generatore di codice funziona per te!
Errore di runtime di VBA CDbl 13 Mancata corrispondenza del tipo
L'utilizzo della funzione VBA CDbl con stringhe che contengono caratteri non numerici o caratteri che non hanno significato nel contesto numerico si tradurrà in un errore di runtime '13': tipo mancata corrispondenza.
1234567 | Sub CDblEsempio_3()'Il codice seguente risulterà in un messaggio di ERRORE"CDbl non può gestire caratteri non numerici"Dim StrEx As StringStrEx = "Ab13"MsgBox CDbl(StrEx)Fine sottotitolo |
VBA CDbl Impostazioni regionali
La funzione VBA CDbl ha un comportamento diverso convertendo le stringhe con virgola o punto. Utilizza le Impostazioni internazionali del sistema operativo per il separatore decimale e il separatore di cifre.
12345678910111213141516 | Sub CDblEsempio_4()Dim StrEx As StringStrEx = "1,9"MsgBox CDbl(StrEx)'Se le impostazioni internazionali hanno , come separatore di raggruppamento allora'Il risultato è: 19'Se le impostazioni internazionali hanno , come separatore decimale allora'Il risultato è: 1,9StrEx = "1.9"MsgBox CDbl(StrEx)'Se le impostazioni internazionali hanno . come separatore di raggruppamento quindi'Il risultato è: 19'Se le impostazioni internazionali hanno . come separatore decimale allora'Il risultato è: 1.9Fine sottotitolo |
VBA CDbl Conversione da booleani a doppi
La funzione VBA CDbl può convertire le variabili booleane in double. Se l'espressione valutata è vera, il doppio risultante è -1 e se l'espressione valutata è falsa il doppio risultante è 0.
12345678910 | Sub CDblEsempio_5()Dim BoolEx As BooleanBoolEx = TrueMsgBox CDbl(BoolEx) 'Il risultato è: -1MsgBox CDbl(2 = 2) 'Il risultato è: -1BoolEx = FalseMsgBox CDbl(BoolEx) 'Il risultato è: 0MsgBox CDbl(1 = 2) 'Il risultato è: 0Fine sottotitolo |
Stanco di cercare esempi di codice VBA? Prova AutoMacro!
VBA CDbl Conversione di date in doppio
La funzione VBA CDbl può convertire una variabile di data in un numero intero. Il valore restituito è il numero interno utilizzato da excel per l'archiviazione della data arrotondata.
123456789101112 | Sub CDblEsempio_6()Dim DateEx come dataDataEx = #2/3/1940#MsgBox CDbl(DateEx)"Il risultato è: 14644"DateEx = #8/7/1964 10:41:00 PM#MsgBox CDbl(DateEx)"Il risultato è: 23596.9451388889"DateEx = #3/7/1934 11:32:04 AM#MsgBox CDbl(DateEx)"Il risultato è: 12485.4806018519"Fine sottotitolo |