Hva er VBA DateValue-funksjon?
En DateValue-funksjon er en innebygd funksjon i Excel VBA under kategorien Date / time-funksjon. Det fungerer både som VBA-funksjon og regnearkfunksjon i VBA. Denne funksjonen returnerer serienummeret eller verdien til datoen som er oppgitt i formatet for strengrepresentasjon, og ignorerer tidsinformasjonen som er gitt av datostrengen. Den brukes på to forskjellige måter i Excel. Denne funksjonen brukes som en regnearkformel som går inn i en regnearkcelle. Den brukes som makrokode i VBA-applikasjonen, og skriver den inn via Visual Basic Editor tilknyttet Microsoft Excel.
I denne artikkelen skal vi lære eksempler på VBA DATEVALUE og hvordan du bruker den med en klar forklaring.
Forklaring av VBA Datevalue Funksjon
I VBA bruker DATEVALUE følgende syntaks.
Denne funksjonen bruker bare det eneste argumentet eller parameteren
- Dato : Det er datoen som er representert i strengformatet
- Returnerer: Denne funksjonen returnerer verdien av datoen da den brukes som en VBA-funksjon. Den returnerer datoverdien når den brukes som en regnearkfunksjon
VBA DateValue-funksjonen er i stand til å tolke data representert i tekstformat som er nevnt i et gyldig Excel-format. Det er ikke i stand til å returnere datoverdien hvis strengen inkluderte tekstrepresentasjonen av ukedag.
Fordelene med VBA DateValue-funksjonen er å trekke ut datoverdi fra streng og konvertere dato med tid til eneste dato. Vi kan ganske enkelt at når en dato er gitt med tid, vil denne funksjonen bare datoværdi unngå tidsverdien.
Hvordan bruker jeg Excel VBA DATEVALUE?
For å bruke DateValue-funksjonen i Excel, må du først åpne VBA-redigereren.
Kommandoknappen må plasseres i Excel-regnearket for å legge til linjene i VBA-programmet til det. For å implementere linjene i programmet, må brukeren klikke på kommandoknappen i Excel-arket. For å ha en gyldig utgang fra programmet, gis gyldig innspill gjennom argumentet. For eksempel hjelper følgende kode med å lage en makro for å kjøre DateValue-funksjonen for å trekke ut datoverdien fra teksten i VBA.
VBA-program:
Underdataknapp () Dim myDate as Date myDate = DateValue (“15. August 1991”) MsgBox Date (myDate) End Sub
Denne koden resulterer i datoen som 15 fra den gitte innspillingen.
Eksempler på Excel VBA DATEVALUE
Nedenfor er eksemplene på DateValue i Excel VBA.
Eksempel 1 - Få dag, måned og år fra en dato
Få trinn følges for å opprette og gjennomføre programmet i VBA. Disse inkluderer
Trinn 1: Gå til kategorien Utvikler, plasser markøren på en celle i Excel-arket og klikk på alternativet 'Sett inn' og velg 'Kommando-knapp' under ActiveX-kontroll, som vist på figuren.
Dra knappen dit du vil, og gi bildeteksten som dataknapp fra vinduet med egenskaper.
Trinn 2: Dobbeltklikk på knappen; det vil omdirigere til VBA-prosjektet og skrive koden mellom knappen Privat underkommando og sluttsuben.
Koden bør utvikles som nedenfor for å få en dato, måned og år.
Kode:
Privat underdataknapp1_Click () Dim eksamplert dato som eksamensdato = DateValue ("19. april 2019") MsgBox dato MsgBox år (eksamplet) MsgBox måned (eksamensdato) Slutt sub
I denne koden er Datebutton1_Click () navnet og eksempeldatoen kan variere med datadatatype og Msgbox for å vise utdataene.
Trinn 3: Mens du utvikler kode, vil VBA-type feilparringer oppstå og må ta vare på dem.
Trinn 4: I dette trinnet, kjør programmet ved å klikke på alternativet for å kjøre.
Eller vi kan sjekke eller feilsøke programmet trinn for trinn, ved å velge alternativet Steg inn i Debug-menyen. Hvis koden vår er uten feil, viser den utdataene.
Trinn 5 : Når programmet kjøres, viser det først meldingsboksen med datoen gitt i tekstinntastingen. Klikk deretter på OK for å se årverdien igjen, klikk OK i meldingsboksen for å se månedens verdi.
Eksempel 2 - Bruke DatePart for å få de forskjellige delene av datoen
Trinn 1: Gå til Excel-utviklerfanen, plasser markøren på en celle i Excel-arket og klikk på alternativet 'Sett inn' og velg 'Kommando-knapp' under ActiveX-kontroll, som vist i figuren.
Trinn 2: Dra knappen og gi bildeteksten som DatePart under egenskaper.
Dobbeltklikk på denne knappen. Den leder til Visual Basic Editor-arket og vises som følger.
Step 3: Develop the code using the DatePart with DateValue, as shown in the figure.
Code:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub
In this program, DatePart1 is the macro name, and partDate is the argument name with data type ‘variant.’ For displaying year, date, month, and a quarter, the format is applied as “yyyy,” “d,” “m,” and “q.” If we make any mistake in the format, it displays the following error.
Step 4: After successful debugging of the program, run the program by clicking on the run button to use excel shortcut key F5.
The code first displays the full date, and then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value, respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is a proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name),’ it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program.
- Når DatePart brukes til å hente verdiene, bør riktig format følges. Ellers fører det 'kjøretidsfeil 5' med meldings ugyldig prosedyreanrop eller argument.
