VBA DATUMWAARDE

Wat is de VBA DateValue-functie?

Een DateValue-functie is een ingebouwde functie in Excel VBA onder de categorie Datum / tijd-functie. Het werkt als zowel VBA-functie als werkbladfunctie in vba. Deze functie retourneert het serienummer of de waarde van de datum die is opgegeven in het tekenreeksweergaveformaat en negeert de tijdinformatie die wordt geleverd door de datumreeks. Het wordt in Excel op twee verschillende manieren gebruikt. Deze functie wordt gebruikt als een werkbladformule die in een werkbladcel wordt ingevoerd. Het wordt gebruikt als de macrocode in de VBA-toepassing die deze invoert via Visual Basic Editor die is gekoppeld aan Microsoft Excel.

In dit artikel gaan we voorbeelden leren van VBA DATEVALUE en hoe deze te gebruiken met duidelijke uitleg.

Uitleg van VBA Datevalue-functie

In VBA gebruikt DATEVALUE de volgende syntaxis.

Deze functie gebruikt alleen het enkele argument of de parameter

  • Datum : het is de datum die wordt weergegeven in de tekenreeksindeling
  • Retourneert: deze functie retourneert de waarde van de datum wanneer deze wordt gebruikt als een VBA-functie. Het retourneert de datumwaarde wanneer deze wordt gebruikt als een werkbladfunctie

De VBA DateValue-functie is in staat om gegevens te interpreteren die worden weergegeven in tekstindeling die wordt vermeld in een geldig Excel-formaat. De datumwaarde kan niet worden geretourneerd als de tekenreeks de tekstrepresentatie van weekdag bevat.

De voordelen van de VBA DateValue-functie zijn het extraheren van de datumwaarde uit de tekenreeks en het converteren van datum met tijd naar de enige datum. We kunnen eenvoudigweg zeggen dat wanneer een datum met tijd wordt gegeven, deze functie alleen de datumwaarde vermijdt de tijdwaarde.

Hoe Excel VBA DATEVALUE te gebruiken?

Om de DateValue-functie in Excel te gebruiken, moet u eerst de VBA-editor openen.

De opdrachtknop moet in het Excel-werkblad worden geplaatst om de regels van het VBA-programma eraan toe te voegen. Om de regels van het programma te implementeren, moet de gebruiker op de opdrachtknop in het Excel-blad klikken. Om een ​​geldige uitvoer van het programma te krijgen, wordt geldige invoer gegeven via het argument. De volgende code helpt bijvoorbeeld bij het maken van een macro om de functie DateValue uit te voeren om de datumwaarde uit de tekst in VBA te extraheren.

VBA-programma:  

 Sub Datebutton () Dim myDate As Date myDate = DateValue ("15 augustus 1991") MsgBox Date (myDate) End Sub

Deze code resulteert in de datum als 15 van de gegeven invoer.

Voorbeelden van Excel VBA DATUMWAARDE

Hieronder staan ​​de voorbeelden van DateValue in Excel VBA.

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

Voorbeeld # 1 - Verkrijg dag, maand en jaar van een datum

Er worden weinig stappen gevolgd om het programma in VBA te maken en uit te voeren. Die omvatten

Stap 1: Ga naar het tabblad Ontwikkelaar, plaats de cursor op een cel in het Excel-blad en klik op de optie 'Invoegen' en kies 'Commandoknop' onder ActiveX-besturingselement zoals weergegeven in de afbeelding.

Sleep de knop waar u maar wilt en geef het bijschrift als Datebutton vanuit het eigenschappenvenster.

Stap 2: Dubbelklik op de knop die wordt omgeleid naar het VBA-project en schrijf de code tussen de Private Sub-opdrachtknop en de end-sub.

De code moet worden ontwikkeld zoals hieronder om een ​​datum, maand en jaar te krijgen.

Code:

 Private Sub Datebutton1_Click () Dim Exampledate As Date Exampledate = DateValue ("april 19,2019") MsgBox Datum MsgBox Jaar (voorbeeld) MsgBox Maand (voorbeeld) End Sub

In deze code is Datebutton1_Click () de naam en voorbeeld zijn variabel met het gegevenstype Date en Msgbox om de uitvoer weer te geven.

Stap 3: Tijdens het ontwikkelen van code treden er niet-overeenkomende foutmeldingen van het vba-type op die hier voor moeten zorgen.

Stap 4: Voer in deze stap het programma uit door op de optie Uitvoeren te klikken.

Of we kunnen het programma stap voor stap controleren of debuggen door de optie Stap in onder het menu Foutopsporing te selecteren. Als onze code geen fouten bevat, wordt de uitvoer weergegeven.

Stap 5 : Wanneer het programma wordt uitgevoerd, wordt eerst het berichtvenster weergegeven met de datum die is opgegeven in de tekstinvoer. Klik vervolgens op OK om de jaarwaarde opnieuw te zien, klik op OK in het berichtvenster om de maandwaarde te zien.

Opmerking: deze stappen moeten duidelijk worden gevolgd om nauwkeurige resultaten te krijgen.

Voorbeeld # 2 - Het DatePart gebruiken om de verschillende delen van de datum te krijgen

Stap 1: Ga naar Excel Developer Tab, plaats de cursor op een cel in het Excel-blad en klik op 'Invoegen' optie en kies 'Command-knop' onder ActiveX Control zoals weergegeven in de afbeelding.

Stap 2: Versleep de knop en geef het bijschrift als DatePart onder Eigenschappen.

Dubbelklik op deze knop, het leidt naar het Visual Basic Editor-blad en wordt als volgt weergegeven.

Stap 3: Ontwikkel de code met behulp van de DatePart met DateValue zoals weergegeven in de afbeelding.

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 dit programma is DatePart1 de macronaam en partDate de argumentnaam met datatype 'variant'. Voor het weergeven van jaar, datum, maand en een kwartaal wordt de notatie toegepast als "jjjj", "d", "m" en "q". Als we een fout maken in het formaat, wordt de volgende fout weergegeven.

Stap 4: Na het succesvol debuggen van het programma, start u het programma door op de knop Uitvoeren te klikken, gebruik de Excel-sneltoets F5.

The code first displays the full date 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 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
  • When DatePart is used to get the values, the appropriate format should be followed. Otherwise, it leads ‘run time error 5’ with message invalid procedure call or argument.