Hva er VBA DateSerial?

VBA DATESERIAL-funksjon er en innebygd funksjon i Excel. DATESERIAL-funksjonen returnerer en dato gitt et år, måned og dagverdi. La oss si for eksempel hvis dagens dato er 18. juli 2019. Noen brukere kan skrive den som 18-jul'19 eller 18-jul-19. Formater for datoer kan være forskjellige for flere brukere. Dette gir oss den kjedelige oppgaven med å jobbe med et større antall datoer i forskjellige formater.

Som problemstillingen definert over, kan formatet for datoer være forskjellig for flere brukere. Det er her seriell datofunksjon kommer i VBA for å hjelpe. Det er en veldig god funksjon å lage vår egen date med de verdiene vi velger å definere. Gi oss beskjed om denne funksjonen i detalj. DateSerial-funksjon i VBA er en dato- og tidsfunksjon, så den returnerte verdien for denne funksjonen er DATE. Metoden for å bruke syntaks for denne funksjonen vil være som følger.

Syntaks for VBA DateSerial

Syntaksen for VBA DateSerial-funksjon i Excel er som følger:

Det tar tre argumenter år, måned og dag.

  • År: Det aksepterte området for denne delen av argumentet i funksjonen er fra 100-9999. Datatypen for argumentet skal være et helt tall.
  • Måned: Det aksepterte området for denne delen av argumentet i funksjonen er fra 1-12. Datatypen for argumentet skal være et helt tall.
  • Dag: Det aksepterte området for denne delen av argumentet i funksjonen er fra 1-31. Datatypen for argumentet skal være et helt tall.

Men her er en kul del av denne funksjonen. Hvis vi gir argumentet over det aksepterte området, returnerer ikke funksjonen en feil i stedet, den beregner den videre delen av området og viser datoen. Hvis jeg for eksempel gir innspill som date-serie (2019, 14, 02), vet vi nå at det bare kan være 12 måneder på et år, men jeg har gitt 14 som et argument. Funksjonen vil ikke returnere en feil i stedet den vil legge til de to ekstra månedene i inneværende år, slik at produksjonen blir 2020-02-02.

Hvordan bruke VBA DateSerial-funksjon i Excel?

Vi lærer hvordan du bruker en VBA DateSerial-funksjon med noen få eksempler i Excel.

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

La oss teste denne funksjonen med noen få eksempler som vil gjøre ting mye tydeligere for oss.

Eksempel 1 - VBA DateSerial

La oss først gi en enkel dato til en variabel ved å bruke den serielle datofunksjonen og se utdataene vi får.

Trinn 1: Før vi begynner med eksemplene våre, må du først sørge for at utvikler-fanen er aktivert og deretter gå til kodedelen for å åpne VB Editor ved å klikke på Visual Basic akkurat som vist på bildet nedenfor.

Trinn 2: Fra vinduet som vises over, klikk på Sett inn -fanen for å sette inn en modul. Vi vil arbeide i den samme modulen for alle eksemplene våre.

Trinn 3: Start en delprosess som følger og erklær en variabel som datatype.

Kode:

 Underprøve () Dim Dt As Dato Slutt Sub

Trinn 4: La oss nå oppgi en dato til variabelen ved å bruke den serielle datofunksjonen.

Kode:

 Sub Sample () Dim Dt As Date Dt = DateSerial (2019, 7, 2) Slutt Sub

Trinn 5: Vis verdien som er lagret i variabelen vår ved hjelp av msgbox-funksjonen.

Kode:

 Sub Sample () Dim Dt As Date Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Trinn 6: Når vi kjører koden ovenfor, får vi følgende resultat.

Eksempel 2 - VBA DateSerial

La oss nå teste teorien vi diskuterte over i innledningen om at hvis vi gir verdiene bortsett fra det aksepterte området og funksjonen beregner datoen for oss.

Trinn 1: I samme modul start en annen underprosess som følger.

Kode:

 Sub Sample1 () Slutt Sub

Trinn 2: Definer nå en variabel med datatype.

Kode:

 Sub Sample1 () Dim Dt As Date End Sub

Trinn 3: La oss gi innspill til DT-variabelen ved å bruke den serielle datofunksjonen som vist nedenfor.

Kode:

 Sub Sample1 () Dim Dt As Date Dt = DateSerial (2019, 14, 2) Slutt Sub

Trinn 4: Vis verdien som er lagret i Dt-variabelen ved hjelp av msgbox-funksjonen.

Kode:

 Undereksempel1 () Dim Dt As Date Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Trinn 5: Utfør koden ovenfor og se resultatet nedenfor som følger.

Vi kan se at året er endret, da vi hadde gitt to ekstra måneder til argumentene. I utgangspunktet la denne funksjonen 14 måneder til året 2019 som ga oss den andre måneden 2020 og 2. dato.

Eksempel 3 - VBA DateSerial

I eksemplene ovenfor ga vi argumentene på den generelle datomåten. Men vi diskuterte hvordan brukere kan legge inn absurde verdier i datodelen som et format, for å skrive datoer er forskjellig fra individ til individ. Vi vil sammenligne to datoformater ved å bruke datorseriefunksjonen i dette eksemplet.

Trinn 1: I den samme modulen definerer du en annen underprosess som følger for det tredje eksemplet.

Kode:

 Sub Sample2 () Slutt Sub

Trinn 2: I dette scenariet definerer du to variabler som datoer som vist nedenfor.

Kode:

 Sub Sample2 () Dim Dt1, Dt2 As Date End Sub

Trinn 3: La oss nå i den første variabelen oppgi dato på enkel, vanlig måte ved bruk av dateserial-funksjonen.

Kode:

 Sub Sample2 () Dim Dt1, Dt2 As Date Dt1 = DateSerial (2019, 12, 31) Slutt Sub

Trinn 4: La oss nå for den andre variabelen oppgi dato på uregelmessig måte ved å bruke dateserial-funksjonen som vist nedenfor.

Kode:

 Sub Sample2 () Dim Dt1, Dt2 As Date Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) Slutt Sub

Trinn 5: Skriv ut begge verdiene nå ved å bruke msgbox-funksjonen.

Kode:

 Sub Sample2 () Dim Dt1, Dt2 As Date Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Trinn 6: Utfør koden ovenfor for å finne følgende resultat vist nedenfor.

Vi kan se at begge datoene er de samme. Det tosifrede året 19 tolkes som 2019.

Ting å huske

  • Det er en dato og klokkeslett-funksjon, så utgangen er i Dato.
  • Hvis verdien som er gitt til funksjonen er over det aksepterte området for funksjonen, beregner den automatisk datoen i stedet for å gi en feil.
  • Hvis verdiene som er gitt til argumentene er større enn verdien et heltall kan inneholde, returnerer funksjonen en feil.

Anbefalte artikler

Dette er en guide til VBA DateSerial. Her diskuterer vi hvordan du bruker Excel VBA DateSerial Function sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -

  1. VBA InStr forklarte med eksempler
  2. VBA Integer Datatype
  3. VBA ISNULL Forklaret med eksempler
  4. VBA-datoformat (eksempler)

Kategori:

VBA