Wat is VBA DateSerial?

VBA DATA-functie is een ingebouwde functie in Excel. De functie DATESERIAL retourneert een datum met de waarde jaar, maand en dag. Laten we bijvoorbeeld zeggen dat de datum van vandaag 18 juli 2019 is. Sommige gebruikers kunnen deze schrijven als 18 juli 19 of 18 juli 19. Indelingen voor datums kunnen voor meerdere gebruikers verschillen. Dit geeft ons de vervelende taak om met een groter aantal datums in verschillende formaten te werken.

Zoals de hierboven gedefinieerde probleemstelling, kan de notatie voor datums voor meerdere gebruikers verschillen. Dit is waar datum seriële functie komt in VBA om te helpen. Het is een zeer goede functie om onze eigen date te maken met de waarden die we kiezen te definiëren. Laat het ons gedetailleerd weten over deze functie. DateSerial-functie in VBA is een datum- en tijdfunctie, dus de geretourneerde waarde voor deze functie is DATE. De methode voor het gebruik van de syntaxis voor deze functie is als volgt.

Syntaxis van VBA DateSerial

De syntaxis voor de VBA DateSerial-functie in Excel is als volgt:

Er zijn drie argumenten nodig voor jaar, maand en dag.

  • Jaar: het geaccepteerde bereik voor dit deel van het argument in de functie is van 100-9999. Het gegevenstype voor het argument moet een geheel getal zijn.
  • Maand: het geaccepteerde bereik voor dit deel van het argument in de functie is van 1-12. Het gegevenstype voor het argument moet een geheel getal zijn.
  • Dag: het geaccepteerde bereik voor dit deel van het argument in de functie is van 1-31. Het gegevenstype voor het argument moet een geheel getal zijn.

Maar hier is een cool onderdeel van deze functie. Als we het argument boven het geaccepteerde bereik opgeven, retourneert de functie geen fout, maar wordt het verdere deel van het bereik berekend en wordt de datum weergegeven. Als ik bijvoorbeeld invoer geef als datumreeks (2019, 14, 02), weten we nu dat er slechts 12 maanden per jaar kunnen zijn, maar ik heb 14 als argument opgegeven. De functie retourneert geen fout, maar voegt de twee extra maanden in het huidige jaar toe, zodat de uitvoer 2020-02-02 is.

Hoe de VBA DateSerial-functie in Excel te gebruiken?

We zullen leren hoe een VBA DateSerial-functie te gebruiken met een paar voorbeelden in excel.

U kunt deze VBA DateSerial Excel-sjabloon hier downloaden - VBA DateSerial Excel-sjabloon

Laten we deze functie testen met een paar voorbeelden die de zaken veel duidelijker voor ons zullen maken.

Voorbeeld # 1 - VBA DateSerial

Laten we eerst een eenvoudige datum opgeven voor een variabele met behulp van de datumseriële functie en de output bekijken die we krijgen.

Stap 1: Voordat we met onze voorbeelden beginnen, moet u eerst het tabblad voor ontwikkelaars hebben ingeschakeld en vervolgens naar het codegedeelte gaan om de VB-editor te openen door op Visual Basic te klikken, zoals weergegeven in de onderstaande afbeelding.

Stap 2: Klik in het bovenstaande venster op het tabblad Invoegen om een ​​module in te voegen. We werken voor al onze voorbeelden in dezelfde module.

Stap 3: Start als volgt een subprocedure en declareer een variabele als datumgegevenstype.

Code:

 Sub-monster () Dim Dt als datum Einde Sub

Stap 4: Laten we nu een datum opgeven voor de variabele met behulp van de datumreeksfunctie.

Code:

 Sub-monster () Dim Dt als datum Dt = DateSerial (2019, 7, 2) Einde Sub

Stap 5: Geef de waarde weer die is opgeslagen in onze variabele met behulp van de msgbox-functie.

Code:

 Sub-monster () Dim Dt als datum Dt = DateSerial (2019, 7, 2) MsgBox Dt End Sub

Stap 6: Wanneer we de bovenstaande code uitvoeren, krijgen we het volgende resultaat.

Voorbeeld # 2 - VBA DateSerial

Laten we nu de theorie testen die we hierboven in de inleiding hebben besproken, als we de waarden buiten het geaccepteerde bereik opgeven en de functie de datum voor ons berekent.

Stap 1: Start in dezelfde module nog een subprocedure als volgt.

Code:

 Sub Sample1 () Einde Sub

Stap 2: Definieer nu een variabele met datumgegevenstype.

Code:

 Sub Sample1 () Dim Dt As Date End Sub

Stap 3: Laten we de invoer voor de variabele DT opgeven met behulp van de seriële datumfunctie, zoals hieronder wordt weergegeven.

Code:

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

Stap 4: Geef de waarde weer die is opgeslagen in de variabele Dt met behulp van de msgbox-functie.

Code:

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

Stap 5: Voer nu de bovenstaande code uit en zie het onderstaande resultaat als volgt.

We kunnen zien dat het jaar is veranderd omdat we de argumenten twee extra maanden hadden verstrekt. Kortom, deze functie heeft 14 maanden toegevoegd aan het jaar 2019, wat ons de tweede maand van 2020 en de 2e datum opleverde .

Voorbeeld # 3 - VBA DateSerial

In de bovenstaande voorbeelden hebben we de argumenten op de algemene datummanier gegeven. Maar we hebben besproken hoe gebruikers absurde waarden in de datumsectie kunnen invoeren als een indeling, voor het schrijven van datums verschilt van persoon tot persoon. In dit voorbeeld vergelijken we twee datumnotaties met behulp van de datumserie.

Stap 1: Definieer in dezelfde module nog een subprocedure als volgt voor het derde voorbeeld.

Code:

 Sub Sample2 () Einde Sub

Stap 2: Definieer in dit scenario twee variabelen als datums, zoals hieronder wordt weergegeven.

Code:

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

Stap 3: Laten we nu in de eerste variabele op een eenvoudige, regelmatige manier de datum opgeven met behulp van de datumfunctie.

Code:

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

Stap 4: Laten we nu voor de tweede variabele de datum op onregelmatige wijze opgeven met behulp van de datumfunctie-functie, zoals hieronder getoond.

Code:

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

Stap 5: Druk nu beide waarden af ​​met de msgbox-functie.

Code:

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

Stap 6: Voer de bovenstaande code uit om het onderstaande resultaat te vinden.

We kunnen zien dat beide datums hetzelfde zijn. Het tweecijferige jaar 19 wordt geïnterpreteerd als 2019.

Dingen om te onthouden

  • Het is een datum- en tijdfunctie, dus de uitvoer is in Datum.
  • Als de waarde die aan de functie wordt gegeven, boven het geaccepteerde bereik van de functie ligt, wordt automatisch de datum berekend in plaats van een foutmelding te geven.
  • Als de waarden voor de argumenten groter zijn dan de waarde die een geheel getal kan bevatten, retourneert de functie een fout.

Aanbevolen artikelen

Dit is een handleiding voor VBA DateSerial. Hier bespreken we hoe u Excel VBA DateSerial-functie kunt gebruiken, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. VBA InStr uitgelegd met voorbeelden
  2. VBA Geheel gegevenstype
  3. VBA ISNULL verklaard met voorbeelden
  4. VBA-datumnotatie (voorbeelden)

Categorie:

VBA