CDATE-funksjon i VBA
VBA CDATE er en datatypekonverteringsfunksjon som konverterer en datatype som enten er tekst eller streng til en datodatatype. Når verdien er omgjort til datatype, kan vi leke med dato ting.
Syntaks for CDATE
Nedenfor er syntaksen til CDATE-funksjonen i VBA.
Uttrykk: Uttrykk kan være en streng- eller tekstverdi eller en variabel som inneholder en verdi som skal konverteres til datadatatypen.
CDATE identifiserer dato og klokkeslettformat på datamaskinen vi jobber med, og konverterer den medfølgende verdien til samme datatype. Hvis du bare leverer dag og måned og ignorerer år, tar CDATE-funksjonen systemårene, viser sammen med den medfølgende dagen og måneden.
Vi vil se flere og flere eksempler i avsnittet nedenfor.
Hvordan bruker jeg CDATE-funksjonen i Excel VBA?
Eksempler på CDATE-funksjon i Excel VBA.
Eksempel 1
Før jeg viser deg eksemplet på CDATE, se først på koden nedenfor.
Kode:
Sub CDATE_Example1 () Dim k As String k = "25-12" MsgBox k End Sub
I variabelen “k” har jeg tilordnet verdien “25-12”. Når jeg utfører denne koden, vil vi se den samme verdien i meldingsboksen i VBA.
Men dette kan konverteres til dato ved hjelp av VBA CDATE-funksjonen, for dette definerer du en variabel til som Dato.
Kode:
Dim k1 Som dato
For denne variabelen tildeler "k1" CDATE-funksjonen og leverer variabelen "k", som inneholder strengen "25-12". Og for meldingsboksen viser du variabelverdien til “k1” i stedet for “k.”
Kode:
k1 = CDate (k)
Kjør nå koden og se resultatet i en meldingsboks.
Så resultatet er “25.12.2019”.
Se nøye på verdien vi har levert. Vi har levert "25-12" vi har ikke levert år.
Mens jeg skrev denne artikkelen, var gjeldende år i systemet mitt 2019, så VBA CDATE konverterte strengverdien "25-12" til dags dato og la til systemåret 2019 i den. Så endelige resultatene leses slik 12/25/2019 dvs. 25 th desember 2019.
Eksempel 2
Nå, se på koden nedenfor.
Kode:
Sub CDATE_Example2 () Dim k As Variant Dim kResult As Date k = 43889 kResult = CDate (k) MsgBox kResult End Sub
I ovennevnte kode for variabelen “k” har jeg brukt nummeret “43889”. Vi vet alle at dette er et serienummer, men for en annen variabel, "KResult", har vi konvertert denne verdien til dags dato ved å bruke "CDATE" -funksjonen.
Samme resultat av variabelen “KResult” vises i meldingsboksen.
Kjør koden og se magien til funksjonen "CDATE."
Det viser resultatet som “28.02.2020” hvis du ikke er kjent med datoer i excel, så må du lure på hvordan dette skjedde.
Skriv for eksempel inn det samme nummeret (43889) i en av cellene i regnearket.
For dette, bruk formatet som "DD-MM-ÅÅÅÅ."
Klikk nå på Ok og se resultatet.
Nå er resultatet endret fra serienummer til dags dato. Fordi vi har brukt datoformat øverst på serienummeret, har det vist den aktuelle datoen.
Så dette betyr at serienummeret 43889 er lik datoen 28-02-2020.
Så i vår VBA-kode har CDATE-funksjonen utført det samme ved å konvertere strengverdien til en datadatatype.
Eksempel 3
For dette eksemplet, se på koden nedenfor.
Sub CDATE_Example3 () Dim Verdi1 Dim Verdi2 Dim Verdi3 Verdi1 = "24. desember 2019" Verdi2 = # 6/25/2018 # Verdi3 = "18:30:48 PM" MsgBox CDate (Verdi1) MsgBox CDate (Verdi2) MsgBox CDate ( Verdi3) End Sub
Når vi kjører denne koden, får vi resultatene nedenfor.
Så alle verdiene blir konvertert til datodatatypen med CDATE-funksjonen.
Ting å huske
- CDATE konverterer bare tall og strengverdier til datatypen.
- Dette er nyttig når vi bruker det med andre funksjoner.
- Hvis feil datatypeverdi leveres, vil vi få en type feilparring.
- Siden dato og tid er en del av serienummeret, konverterer det tid så vel som riktig tid.
