Denne vejledning viser, hvordan du bruger CDbl VBA -funktionen til at konvertere udtryk til dobbelt datatype.
CDbl -funktion
VBA CDbl Konverter udtryk til heltal
VBA CDbl -funktionen kan bruges til at konvertere udtryk til dobbelt datatype inde i VBA -kode.
| 123456 | Sub CDblExample_1 ()MsgBox CDbl (12.345) 'Resultat er: 12.345MsgBox CDbl (-124) 'Resultat er: -124MsgBox CDbl (0.000034) 'Resultat er: 0.000034MsgBox CDbl (-12.000034) 'Resultat er: -12.000034Afslut Sub |
VBA CDbl -konvertering af streng til dobbelt
VBA CDbl -funktionen kan bruges til at konvertere strenge til doubler, hvis tegnene i strengen har en betydning som tal.
| 123456789101112131415161718 | Sub CDblExample_2 ()Dim StrEx som strengStrEx = "112"MsgBox CDbl (StrEx)'Resultatet er: 112StrEx = "0,0003"MsgBox CDbl (StrEx)'Resultatet er: 0,0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Resultatet er: 1100002, ignoreresStrEx = "$ 112"MsgBox CDbl (StrEx)'Resultatet er: 112 $ ignoreresAfslut Sub |
VBA -programmering | Kodegenerator virker for dig!
VBA CDbl Kørselsfejl 13 Fejl i type
Brug af VBA CDbl-funktion med strenge, der indeholder ikke-numeriske tegn eller tegn, der ikke har betydning i numerisk kontekst, vil resultere i en Run-Time-fejl '13': Type mismatch.
| 1234567 | Sub CDblExample_3 ()'Koden herunder vil resultere i en FEJL -meddelelse'CDbl kan ikke håndtere ikke -numeriske tegnDim StrEx som strengStrEx = "Ab13"MsgBox CDbl (StrEx)Afslut Sub |
VBA CDbl regionale indstillinger
VBA CDbl -funktionen har forskellige adfærdskonverterende strenge med komma eller prik. Det bruger de regionale indstillinger i operativsystemet til decimalseparator og ciferseparator.
| 12345678910111213141516 | Sub CDblExample_4 ()Dim StrEx som strengStrEx = "1,9"MsgBox CDbl (StrEx)'Hvis regionale indstillinger har, som en grupperingsadskiller derefter'Resultatet er: 19'Hvis regionale indstillinger har, som en decimalseparator derefter'Resultatet er: 1,9StrEx = "1.9"MsgBox CDbl (StrEx)'Hvis regionale indstillinger har. som en gruppering separator derefter'Resultatet er: 19'Hvis regionale indstillinger har. som decimalseparator derefter'Resultatet er: 1.9Afslut Sub |
VBA CDbl Konvertering af booleske til doubler
VBA CDbl -funktion kan konvertere boolske variabler til doubler. Hvis det evaluerede udtryk er sandt, er den resulterende dobbelte -1, og hvis det evaluerede udtryk er falsk, er den resulterende dobbelte 0.
| 12345678910 | Sub CDblExample_5 ()Dim BoolEx Som boolskBoolEx = SandtMsgBox CDbl (BoolEx) 'Resultat er: -1MsgBox CDbl (2 = 2) 'Resultat er: -1BoolEx = FalskMsgBox CDbl (BoolEx) 'Resultat er: 0MsgBox CDbl (1 = 2) 'Resultat er: 0Afslut Sub |
Træt af at søge efter eksempler på VBA -kode? Prøv AutoMacro!
VBA CDbl Konvertering af datoer til doubler
VBA CDbl -funktion kan konvertere en datovariabel til et helt tal. Den returnerede værdi er det interne nummer, der bruges af excel til datalagring afrundet.
| 123456789101112 | Sub CDblExample_6 ()Dim DateEx As DateDateEx = #2/3/1940 #MsgBox CDbl (DateEx)'Resultatet er: 14644DateEx = #8/7/1964 22:41:00 PM #MsgBox CDbl (DateEx)'Resultatet er: 23596.9451388889DateEx = #3/7/1934 11:32:04 AM #MsgBox CDbl (DateEx)'Resultatet er: 12485.4806018519Afslut Sub |
