Hvad er VBA DateValue-funktion?
En DateValue-funktion er en indbygget funktion i Excel VBA under kategorien Date / time-funktion. Det fungerer både som VBA-funktion og regnearkfunktion i VBA. Denne funktion returnerer serienummeret eller værdien for datoen, der er angivet i strengrepræsentationsformatet, og ignorerer oplysningerne om tid leveret af datostrengen. Det bruges på to forskellige måder i Excel. Denne funktion bruges som en regnearkformel, der indtaster en regnearkcelle. Det bruges som makrokoden i VBA-applikationen og indtaster den via Visual Basic Editor tilknyttet Microsoft Excel.
I denne artikel vil vi lære eksempler på VBA DATEVALUE, og hvordan man bruger det med en klar forklaring.
Forklaring af VBA Datevalue-funktion
I VBA bruger DATEVALUE følgende syntaks.
Denne funktion bruger kun det enkelte argument eller parameter
- Dato : Det er den dato, der er repræsenteret i strengformatet
- Returnerer: Denne funktion returnerer datoen, når den bruges som en VBA-funktion. Den returnerer datoværdien, når den bruges som en regnearksfunktion
VBA DateValue-funktionen er i stand til at fortolke data repræsenteret i tekstformat, der er nævnt i et gyldigt Excel-format. Det er ikke i stand til at returnere datoværdien, hvis strengen indeholdt tekstrepræsentation af hverdag.
Fordelene ved VBA DateValue-funktionen er at udtrække datoværdi fra streng og konvertere dato med tid til den eneste dato. Vi kan simpelthen, at når en dato er givet med tiden, denne funktion kun dato værdi undgå tidsværdien.
Sådan bruges Excel VBA DATEVALUE?
For at bruge DateValue-funktionen i Excel skal du først åbne VBA-editoren.
Kommandoknappen skal placeres i Excel-regnearket for at tilføje linjerne i VBA-programmet til det. For at implementere programmets linjer skal brugeren klikke på kommandoknappen i excel-arket. For at have et gyldigt output fra programmet gives gyldigt input gennem argumentet. For eksempel hjælper følgende kode oprettelsen af en makro til at køre DateValue-funktionen for at udtrække datoværdien fra teksten i VBA.
VBA-program:
Underdataknap () Dim myDate som dato myDate = DateValue (“15. august 1991”) MsgBox Date (myDate) End Sub
Denne kode resulterer i datoen som 15 fra det givne input.
Eksempler på Excel VBA DATEVALUE
Nedenfor er eksemplerne på DateValue i Excel VBA.
Eksempel # 1 - Få dag, måned og år fra en dato
Få trin følges for at oprette og udføre programmet i VBA. Disse inkluderer
Trin 1: Gå til fanen Udvikler, placer markøren på en celle i Excel-arket, og klik på 'Indsæt' og vælg 'Kommando-knap' under ActiveX-kontrol, som vist i figuren.
Træk knappen, hvor du vil, og angiv billedteksten som dataknap fra egenskabsvinduet.
Trin 2: Dobbeltklik på knappen; det omdirigeres til VBA-projektet og skriver koden mellem knappen Privat underkommando og slutunderen.
Koden skal udvikles som nedenfor for at få en dato, måned og år.
Kode:
Privat underdataknap1_Click () Dim eksamplet dato som eksamensdato = Datoværdi ("19. april 2019") MsgBox dato MsgBox år (eksamplet dato) MsgBox måned (eksamplet) Slut sub
I denne kode er Datebutton1_Click () navnet og eksempeldatoen er variabel med datadatatype og Msgbox for at vise output.
Trin 3: Mens der udvikles kode, vil der opstå VBA-typefejlfejl og skal tage sig af dem.
Trin 4: Kør programmet i dette trin ved at klikke på kørselsindstillingen.
Eller vi kan kontrollere eller fejle programmet trin for trin ved at vælge indstillingen Trin ind i menuen Fejlfinding. Hvis vores kode er uden fejl, viser den output.
Trin 5 : Når programmet udføres, viser det først meddelelsesfeltet med den dato, der er angivet i tekstinput. Klik derefter på OK for at se årværdien igen, klik OK i meddelelsesfeltet for at se månedsværdien.
Eksempel 2 - Brug af DatePart til at hente de forskellige dele af datoen
Trin 1: Gå til Excel-fanen Developer, placer markøren på en celle i Excel-arket og klik på 'Indsæt' og vælg 'Command Button' under ActiveX Control, som vist i figuren.
Trin 2: Træk på knappen og angiv billedteksten som DatePart under egenskaber.
Dobbeltklik på denne knap. Det dirigerer 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 bruges til at hente værdierne, skal det relevante format følges. Ellers fører det 'run time error 5' med besked ugyldig procedureopkald eller argument.
