Hvad er VBA DateSerial?

VBA DATESERIAL-funktion er en indbygget funktion i Excel. DATESERIAL-funktion returnerer en dato, der er angivet et år, en måned og en dagsværdi. Lad os sige for eksempel, hvis dagens dato er den 18. juli 2019. Nogle brugere skriver måske det som 18-jul'19 eller 18-jul-19. Formater for datoer kan være forskellige for flere brugere. Dette giver os den kedelige opgave at arbejde med et større antal datoer i forskellige formater.

Som den ovenfor angivne problemopgørelse kan formatet for datoer være forskellige for flere brugere. Det er her dato seriel funktion kommer i VBA for at hjælpe. Det er en meget god funktion at lave vores egen dato med de værdier, vi vælger at definere. Fortæl os om denne funktion i detaljer. DateSerial-funktion i VBA er en dato- og tidsfunktion, så den returnerede værdi for denne funktion er DATE. Metoden til at bruge syntaks til denne funktion vil være som følger.

Syntaks for VBA DateSerial

Syntaks for VBA DateSerial-funktion i Excel er som følger:

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

  • År: Det accepterede interval for denne del af argumentet i funktionen er fra 100-9999. Datatypen for argumentet skal være et heltal.
  • Måned: Det accepterede interval for denne del af argumentet i funktionen er fra 1-12. Datatypen for argumentet skal være et heltal.
  • Dag: Det accepterede interval for denne del af argumentet i funktionen er fra 1-31. Datatypen for argumentet skal være et heltal.

Men her er en cool del af denne funktion. Hvis vi giver argumentet over det accepterede interval, returnerer funktionen ikke en fejl i stedet, den beregner den videre del af området og viser datoen. For eksempel, hvis jeg giver input som dato-serien (2019, 14, 02), ved vi nu, at der kun kan være 12 måneder i et år, men jeg har givet 14 som et argument. Funktionen returnerer ikke en fejl i stedet for den tilføjer de to ekstra måneder i det aktuelle år, så output er 2020-02-02.

Sådan bruges VBA DateSerial-funktion i Excel?

Vi lærer, hvordan man bruger en VBA DateSerial-funktion med et par eksempler i Excel.

Du kan downloade denne VBA DateSerial Excel-skabelon her - VBA DateSerial Excel-skabelon

Lad os teste denne funktion med et par eksempler, der gør tingene meget klarere for os.

Eksempel 1 - VBA DateSerial

Lad os først give en simpel dato til en variabel ved hjælp af den serielle datofunktion og se det output, vi får.

Trin 1: Inden vi begynder med vores eksempler, skal du først sørge for at have udviklerens fane aktiveret og derefter gå til kodesektionen for at åbne VB Editor ved at klikke på Visual Basic ligesom vist på billedet herunder.

Trin 2: Fra vinduet, der er vist ovenfor, skal du klikke på fanen Indsæt for at indsætte et modul. Vi vil arbejde i det samme modul til alle vores eksempler.

Trin 3: Start en underprocedure som følger, og erklær en variabel som datodatatype.

Kode:

 Underprøve () Dim Dt Som dato slutning Sub

Trin 4: Lad os nu give en dato til variablen vha. Den serielle datofunktion.

Kode:

 Underprøve () Dim Dt Som dato Dt = DateSerial (2019, 7, 2) Slut Sub

Trin 5: Vis den værdi, der er gemt i vores variabel ved hjælp af funktionen msgbox.

Kode:

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

Trin 6: Når vi udfører ovenstående kode, får vi følgende resultat.

Eksempel 2 - VBA DateSerial

Lad os nu teste den teori, vi diskuterede ovenfor i indledningen, at hvis vi leverer værdierne bortset fra det accepterede interval og funktionen beregner datoen for os.

Trin 1: I det samme modul skal du starte en anden underprocedure som følger.

Kode:

 Underprøve1 () Slutundert

Trin 2: Definer nu en variabel med datodatatype.

Kode:

 Underprøve1 () Dim Dt Som dato slutning Sub

Trin 3: Lad os give input til DT-variablen vha. Den serielle datofunktion som vist nedenfor.

Kode:

 Underprøve1 () Dim Dt Som dato Dt = DateSerial (2019, 14, 2) Slut Sub

Trin 4: Vis den værdi, der er gemt i variablen Dt ved hjælp af funktionen msgbox.

Kode:

 Underprøve1 () Dim Dt som dato Dt = DateSerial (2019, 14, 2) MsgBox Dt End Sub

Trin 5: Udfør nu ovenstående kode og se resultatet nedenfor som følger.

Vi kan se, at året er ændret, da vi havde leveret to ekstra måneder til argumenterne. Grundlæggende tilføjede denne funktion 14 måneder til året 2019, hvilket gav os den anden måned 2020 og 2. dato.

Eksempel 3 - VBA DateSerial

I ovenstående eksempler leverede vi argumenterne på den generelle datomode. Men vi diskuterede, hvordan brugere kan indtaste absurde værdier i datodesektionen som et format, til skrivning af datoer er forskellig fra individ til individ. Vi vil sammenligne to datoformater vha. Den serielle datofunktion i dette eksempel.

Trin 1: I det samme modul skal du definere en anden underprocedure som følger til det tredje eksempel.

Kode:

 Undereksempel2 () Slutundert

Trin 2: I dette scenario skal du definere to variabler som datoer som vist nedenfor.

Kode:

 Underprøve2 () Dim Dt1, Dt2 som dato slutning Sub

Trin 3: Lad os nu i den første variabel give dato på simpel regelmæssig måde ved hjælp af dateserial-funktionen.

Kode:

 Underprøve2 () Dim Dt1, Dt2 som dato Dt1 = DateSerial (2019, 12, 31) End Sub

Trin 4: Lad os nu for den anden variabel give dato på uregelmæssig måde ved hjælp af dateserialfunktionen som vist nedenfor.

Kode:

 Underprøve2 () Dim Dt1, Dt2 som dato Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) End Sub

Trin 5: Udskriv nu begge disse værdier vha. Funktionen msgbox.

Kode:

 Underprøve2 () Dim Dt1, Dt2 som dato Dt1 = DateSerial (2019, 12, 31) Dt2 = DateSerial (19, 12, 31) MsgBox Dt1 & "" & Dt2 End Sub

Trin 6: Udfør ovenstående kode for at finde følgende resultat vist nedenfor.

Vi kan se, at begge datoer er de samme. Det tocifrede år 19 fortolkes som 2019.

Ting at huske

  • Det er en dato- og tidsfunktion, så output er i dato.
  • Hvis den leverede værdi til funktionen er over det accepterede interval for funktionen, beregner den automatisk datoen i stedet for at give en fejl.
  • Hvis værdierne leveret til argumenterne er større end den værdi, et heltal kan indeholde, returnerer funktionen en fejl.

Anbefalede artikler

Dette er en guide til VBA DateSerial. Her diskuterer vi, hvordan du bruger Excel VBA DateSerial-funktion sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. VBA InStr forklaret med eksempler
  2. VBA heltal datatype
  3. VBA ISNULL forklaret med eksempler
  4. VBA-datoformat (eksempler)

Kategori:

VBA