VBA DateValue | Hvordan bruke DateValue-funksjonen i Excel VBA?

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 strengrepresentasjonsformatet og ignorerer informasjonen om tid 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 makrokoden i VBA-applikasjonen som går inn i den gjennom Visual Basic Editor tilknyttet Microsoft Excel.

I denne artikkelen skal vi lære eksempler på VBA DATEVALUE og hvordan du bruker den med 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 for ukedag.

Fordelene med VBA DateValue-funksjonen er å trekke ut datoverdi fra streng og konvertere dato med klokkeslett 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-ark. 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.

Du kan laste ned denne VBA DateValue Excel-malen her - VBA DateValue Excel-mal

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 Utvikler-fanen, plasser markøren på en celle i Excel-arket og klikk på 'Sett inn' og velg 'Kommando-knapp' under ActiveX-kontroll som vist i 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-prosjekt og skrive koden mellom kommandoknappen Private Sub og avslutte sub.

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 eksamplet er variabelt 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 og velge trinn inn i alternativet Feilsøkingsmeny. 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ånedsverdien.

Merk: Disse trinnene skal følges tydelig for å få nøyaktige resultater.

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å '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.

Trinn 3: Utvikle koden ved hjelp av DatePart med DateValue som vist i figuren.

Kode:

 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

I dette programmet er DatePart1 makronavnet og partDate er argumentnavnet med datatypen 'variant'. For å vise år, dato, måned og et kvartal brukes formatet som “åååå”, “d”, “m” og “q”. Hvis vi gjør feil i formatet, vises følgende feil.

Trinn 4: Etter vellykket feilsøking av programmet, kjør programmet ved å klikke på Run-knappen og bruk excel-hurtigtasten F5.

Koden viser først hele datoen, og etter å ha klikket på OK fra meldingsboksen, viser den årverdien etter henholdsvis datoverdien, månedverdien og kvartalverdien.

Ting å huske på VBA DATEVALUE

Følgende ting må huskes når du bruker DateValue-funksjonen i Excel VBA

  • Kjøretidsfeil 13 med melding Type Mismatch vises når datoen gitt til DateValue-funksjonen ikke kan konvertere til en gyldig dato. Vi trenger dato er riktig tekstformat
  • Når vi prøver å få den eneste datoen fra strengargumentet med koden 'msgbox date (argument name)', viser den feilfeil med typen mismatch.
  • Vi kan se utdataene fra DateValue-funksjonen uten å åpne VBA-editoren. Det gjøres ved å klikke kommandoknappen og velge makroen som er opprettet for det respektive programmet
  • 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.