VBA-datumfuncties

In deze zelfstudie gaan we door de verschillende ingebouwde VBA-datumfuncties.

VBA-datumfunctie

U kunt de datumfunctie gebruiken om de huidige datum te retourneren.

De syntaxis van de functie Date is Date(). Het heeft geen argumenten.

De volgende code laat zien hoe u de datumfunctie gebruikt:

12345678

Sub met behulp vanTheDateFunction()Dim de datum als datumdeDatum = Datum()Debug.Druk de datum afEinde sub

Het resultaat is:

VBA Nu-functie

U kunt de Nu-functie gebruiken om de huidige datum en tijd te retourneren.

De syntaxis van de Now-functie is Now(). Het heeft geen argumenten.

De volgende code laat zien hoe u de Now-functie gebruikt:

12345678

Sub met behulp vanTheNowFunction()Dim de datum als datumdeDatum = Nu()Debug.Druk de datum afEinde sub

Het resultaat is:

VBA-tijdfunctie

U kunt de tijdfunctie gebruiken om de huidige tijd terug te geven.

De syntaxis van de functie Tijd is Tijd(). Het heeft geen argumenten.

De volgende code laat zien hoe u de tijdfunctie gebruikt:

12345678

Sub met behulp vanTheTimeFunction()Dim de tijd als datumtheTime = Tijd()Debug.Print theTimeEinde sub

Het resultaat is:

VBA DateAdd-functie

U kunt de functie DateAdd gebruiken om een ​​datum-/tijdsinterval toe te voegen aan een datum of tijd, en de functie retourneert de resulterende datum/tijd.

De syntaxis van de DateAdd-functie is:

DateAdd (Interval, Getal, Datum) waarbij:

• Interval - Een tekenreeks die het type interval aangeeft dat moet worden gebruikt. Het interval kan een van de volgende waarden zijn:

"d" - dag
"ww" - week
"w" - weekdag
"m" - maand
"q" - kwart
"jjjj" - jaar
"y" - dag van het jaar
"u" - uur
"n" - minuut
"s" - tweede

• Getal - Het aantal intervallen dat u aan de oorspronkelijke datum/tijd wilt toevoegen.
• Datum - De oorspronkelijke datum/tijd.

Opmerking: wanneer u datums in uw code gebruikt, moet u deze tussen # of aanhalingstekens plaatsen.

De volgende code laat zien hoe u de DateAdd-functie gebruikt:

123456789

Sub UsingTheDateAddFunction()Later dimmenDatum als datumlatereDatum = DateAdd("m", 10, "11/12/2019")Foutopsporing.Later afdrukkenDatumEinde sub

Het resultaat is:

VBA DateDiff-functie

U kunt de DateDiff-functie gebruiken om het verschil tussen twee datums te krijgen, op basis van een opgegeven tijdsinterval.

De syntaxis van de DateDiff-functie is:

DateDiff(Interval, Date1, Date2, [Firstdayofweek], [Firstweekofyear]) waarbij:

• Interval - Een tekenreeks die het type interval aangeeft dat moet worden gebruikt. Het interval kan een van de volgende waarden zijn:

"d" - dag
"ww" - week
"w" - weekdag
"m" - maand
"q" - kwart
"jjjj" - jaar
"y" - dag van het jaar
"u" - uur
"n" - minuut
"s" - tweede

• Date1 - Een datumwaarde die de eerdere datum vertegenwoordigt.
• Date2 - Een datumwaarde die de latere datum vertegenwoordigt.
• Eerste dag van de week (Optioneel) - Een constante die de weekdag aangeeft die de functie als eerste dag van de week moet gebruiken. Indien blanco wordt zondag gebruikt als de eerste dag van de week. Firstdayofweek kan een van de volgende waarden zijn:

-vbSunday - gebruikt zondag als de eerste dag van de week.
-vbMonday - gebruikt maandag als de eerste dag van de week.
-vbTuesday - gebruikt dinsdag als de eerste dag van de week.
-vbWednesday - gebruikt woensdag als de eerste dag van de week.
-vbThursday - gebruikt donderdag als de eerste dag van de week.
-vbFriday - gebruikt vrijdag als de eerste dag van de week.
-vbSaturday - gebruikt zaterdag als de eerste dag van de week.
-vbUseSystemDayOfTheWeek - gebruikt de eerste dag van de week die is gespecificeerd door de instellingen van uw systeem.

• eerste week van het jaar (Optioneel) - Een constante die de eerste week van het jaar aangeeft. Indien leeg, dan wordt de 1e week van januari gebruikt als de eerste week van het jaar. Firstweekofyear kan een van de volgende waarden zijn:

-vbFirstJan1 - gebruikt de week die 1 januari bevat.
-vbFirstFourDays - gebruikt de eerste week die ten minste vier dagen in het nieuwe jaar bevat.
-vbFirstFullWeek - gebruikt de eerste volledige week van het jaar.
-vbSystem - gebruikt de eerste week van het jaar zoals gespecificeerd door uw systeeminstellingen.

De volgende code laat zien hoe u de DateDiff-functie gebruikt:

123456789

Sub met behulp vanTheDateDiffFunction()Dim het verschil tussen twee datums zo langtheDifferenceBetweenTwoDates = DateDiff("q", "11/11/2010", "10/12/2012")Debug.Print het verschil tussen twee datumsEinde sub

Het resultaat is:

VBA DatePart-functie

U kunt de DatePart-functie gebruiken om een ​​deel (dag, week, kwartaal, maand, enz.) van een bepaalde datum te retourneren.

De syntaxis van de DatePart-functie is:

DatePart(Interval, Date,[Firstdayofweek], [Firstweekofyear]) waarbij:

• Interval - Een tekenreeks die het deel van de datum aangeeft dat moet worden geretourneerd. Het interval kan een van de volgende waarden zijn:

"d" - dag
"ww" - week
"w" - weekdag
"m" - maand
"q" - kwart
"jjjj" - jaar
"y" - dag van het jaar
"u" - uur
"n" - minuut
"s" - tweede

• Datum - De datum waarvan u wilt dat de functie een deel ervan teruggeeft.
• Eerste dag van de week (Optioneel) - Een constante die de weekdag aangeeft die de functie als eerste dag van de week moet gebruiken. Indien blanco wordt zondag gebruikt als de eerste dag van de week. Firstdayofweek kan een van de volgende waarden zijn:

-vbSunday - gebruikt zondag als de eerste dag van de week.
-vbMonday - gebruikt maandag als de eerste dag van de week.
-vbTuesday - gebruikt dinsdag als de eerste dag van de week.
-vbWednesday - gebruikt woensdag als de eerste dag van de week.
-vbThursday - gebruikt donderdag als de eerste dag van de week.
-vbFriday - gebruikt vrijdag als de eerste dag van de week.
-vbSaturday - gebruikt zaterdag als de eerste dag van de week.
-vbUseSystemDayOfTheWeek - gebruikt de eerste dag van de week die is opgegeven door de instellingen van uw systeem.

• eerste week van het jaar (Optioneel) - Een constante die de eerste week van het jaar aangeeft. Indien leeg, dan wordt de 1e week van januari gebruikt als de eerste week van het jaar. Firstweekofyear kan een van de volgende waarden zijn:

-vbFirstJan1 - gebruikt de week die 1 januari bevat.
-vbFirstFourDays - gebruikt de eerste week die ten minste vier dagen in het nieuwe jaar bevat.
-vbFirstFullWeek - gebruikt de eerste volledige week van het jaar.
-vbSystem - gebruikt de eerste week van het jaar zoals gespecificeerd door uw systeeminstellingen.

De volgende code laat zien hoe u de DatePart-functie gebruikt:

123456789

Sub met behulp vanTheDatePartFunction()Dim de PartOfTheDate als geheel getalthePartOfTheDate = DatePart("yyyy", "12/12/2009")Debug.Print thePartOfTheDateEinde sub

Het resultaat is:

VBA DateSerial-functie

De VBA DateSerial-functie neemt een invoerjaar, maand en dag en retourneert een datum.

De syntaxis van de DateSerial-functie is:

DateSerial (jaar, maand, dag) waarbij:

• Jaar - Een geheel getal tussen 100 en 9999 dat het jaar vertegenwoordigt.
• Maand - Een geheel getal dat de maand vertegenwoordigt.
• Dag - Een geheel getal dat de dag vertegenwoordigt.

De volgende code laat zien hoe u de DateSerial-functie gebruikt:

123456789

Sub UsingTheDateSerialFunction()Dim de datum als datumtheDate = DateSerial(2010, 11, 10)Debug.Druk de datum afEinde sub

Het resultaat is:

VBA DateValue-functie

De DateValue-functie retourneert een datum wanneer een tekenreeksrepresentatie van een datum wordt gegeven.

De syntaxis van de DateValue-functie is:

DateValue(Datum) waarbij:

• Datum - Een tekenreeks die de datum vertegenwoordigt.

De volgende code laat zien hoe u de DateValue-functie gebruikt:

123456789

Sub UsingTheDateValueFunction()Dim de datum als datumtheDate = DateValue ("29 oktober 2010")Debug.Druk de datum afEinde sub

Het resultaat is:

VBA-dagfunctie

U kunt de Dagfunctie gebruiken om de dag van een ingevoerde datum terug te geven.

De syntaxis van de dagfunctie is:

Day(Date_value) waar:

• Date_value - De datum waarvan u de dag wilt extraheren.

De volgende code laat zien hoe u de dagfunctie gebruikt:

123456789

Sub met behulp vanTheDayFunction()Dim de dag als geheel getaldeDag = Dag("10/12/2010")Debug.Print theDayEinde sub

Het resultaat is:

VBA-uurfunctie

U kunt de uurfunctie gebruiken om het uur van een ingevoerde tijd terug te geven.

De syntaxis van de uurfunctie is:

Uur (Tijd) waar:

• Tijd - De tijd waaruit u het uur wilt halen.

De volgende code laat zien hoe u de uurfunctie gebruikt:

123456789

Sub UsingTheHourFunction()Dim het uur als geheel getaltheHour = Uur("2:14:17 AM")Debug.Print theHourEinde sub

Het resultaat is:

VBA Minute-functie

U kunt de minuutfunctie gebruiken om de minuutwaarde van een invoertijd te retourneren.

De syntaxis van de Minute-functie is:

Minuut (Tijd) waar:

• Tijd - De tijd waaruit u de minuutwaarde wilt halen.

De volgende code laat zien hoe u de Minute-functie gebruikt:

123456789

Sub met behulp vanTheMinuteFunction()Dim theMinuteValue als geheel getaltheMinuteValue = Minute ("2:14:17 AM")Debug.Print theMinuteValueEinde sub

Het resultaat is:

VBA tweede functie

U kunt de tweede functie gebruiken om de tweede waarde van een invoertijd te retourneren.

De syntaxis van de tweede functie is:

Tweede (tijd) waar:

• Tijd - De tijd waarvan u de tweede waarde wilt extraheren.

De volgende code laat zien hoe u de tweede functie gebruikt:

123456789

Sub met behulp vanTheSecondFunction()Dim de tweede waarde als geheel getalde Tweede Waarde = Tweede ("2:14:17 AM")Debug.Print de tweede waardeEinde sub

Het resultaat is:

VBA-maandfunctie

U kunt de maandfunctie gebruiken om de maand van een ingevoerde datum te retourneren.

De syntaxis van de maandfunctie is:

Month(Date_value) waar:

• Date_value - De datum waarvan u de maand wilt extraheren.

De volgende code laat zien hoe u de maandfunctie gebruikt:

12345678

Sub met behulp vanTheMonthFunction()Dim de maand als geheel getaldeMaand = Maand("11/18/2010")Debug.Print theMonthEinde sub

Het resultaat is:

VBA Maandnaam Functie

U kunt de functie MonthName gebruiken om de naam van een maand te retourneren uit een ingevoerd maandnummer.

De syntaxis van de functie MonthName is:

MonthName(Number_of_month, [afkorten]) waarbij:

• Number_of_month - Een geheel getal tussen 1 en 12.
• afkorten (Optioneel) - Geeft aan of de naam van de maand moet worden afgekort. Indien leeg wordt de standaardwaarde False gebruikt.

12345678

Sub met behulp vanTheMonthNameFunction()Dim theMonthName als stringtheMonthName = MonthName (12, True)Debug.Print theMonthNameEinde sub

Het resultaat is:

VBA TimeSerial-functie

De TimeSerial-functie neemt een invoeruur, minuut en seconde in beslag en geeft een tijd terug.

De syntaxis van de TimeSerial-functie is:

TimeSerial (uur, minuut, seconde) waarbij:

• Uur - Een geheel getal tussen 0 en 23 dat de uurwaarde vertegenwoordigt.
• Minuut - Een geheel getal tussen 0 en 59 dat de minuutwaarde vertegenwoordigt.
• Tweede - Een geheel getal tussen 0 en 59 dat de tweede waarde vertegenwoordigt.

De volgende code laat zien hoe u de TimeSerial-functie gebruikt:

12345678

Sub met behulp vanTheTimeSerialFunction()Dim de tijd als datumtheTime = TimeSerial(1, 10, 15)Debug.Print theTimeEinde sub

Het resultaat is:

VBA TimeValue-functie

De functie TimeValue retourneert een tijd uit een tekenreeksrepresentatie van een datum of tijd.

De syntaxis van de TimeValue-functie is:

TimeValue(Tijd) waar:

• Tijd - Een tekenreeks die de tijd vertegenwoordigt.

De volgende code laat zien hoe u de TimeValue-functie gebruikt:

12345678

Sub UsingTheTimeValueFunction()Dim de tijd als datumtheTime = TimeValue ("22:10:17")Debug.Print theTimeEinde sub

Het resultaat is:

VBA-weekdagfunctie

U kunt de weekdagfunctie gebruiken om een ​​geheel getal van 1 - 7 te retourneren dat een dag van de week voorstelt vanaf een invoerdatum.

De syntaxis van de weekdagfunctie is:

Weekdag(Datum, [Eerstedagvanweek]) waarbij:

• Datum - De datum waarvan u de weekdagwaarde wilt extraheren.
• Eerste dag van de week (Optioneel) - Een constante die de weekdag aangeeft die de functie als eerste dag van de week moet gebruiken. Indien blanco wordt zondag gebruikt als de eerste dag van de week. Firstdayofweek kan een van de volgende waarden zijn:

-vbSunday - gebruikt zondag als de eerste dag van de week.
-vbMonday - gebruikt maandag als de eerste dag van de week.
-vbTuesday - gebruikt dinsdag als de eerste dag van de week.
-vbWednesday - gebruikt woensdag als de eerste dag van de week.
-vbThursday - gebruikt donderdag als de eerste dag van de week.
-vbFriday - gebruikt vrijdag als de eerste dag van de week.
-vbSaturday - gebruikt zaterdag als de eerste dag van de week.
-vbUseSystemDayOfTheWeek - gebruikt de eerste dag van de week die is gespecificeerd door de instellingen van uw systeem.

De volgende code laat zien hoe u de weekdagfunctie gebruikt:

1234567

Sub met behulp vanTheWeekdayFunction()Dim de weekdag als geheel getaltheWeekDay = Weekdag ("20-11-2019")Debug.Print theWeekDayEinde sub

Het resultaat is:

VBA WeekdayName Functie

U kunt de functie WeekdayName gebruiken om de naam van een weekdag te retourneren vanuit een ingevoerd weekdagnummer.

De syntaxis van de functie WeekdayName is:

WeekdagNaam(Weekdag, [Afkorting], [Eerstedagvandeweek]) waarbij:

• Weekdag - Een geheel getal tussen 1 en 7.
• afkorten (Optioneel) -Geeft aan of de naam van de weekdag moet worden afgekort. Indien leeg wordt de standaardwaarde False gebruikt.
• Eerste dag van de week (Optioneel) - Een constante die de weekdag aangeeft die de functie als eerste dag van de week moet gebruiken. Indien blanco wordt zondag gebruikt als de eerste dag van de week. Firstdayofweek kan een van de volgende waarden zijn:

-vbSunday - gebruikt zondag als de eerste dag van de week.
-vbMonday - gebruikt maandag als de eerste dag van de week.
-vbTuesday - gebruikt dinsdag als de eerste dag van de week.
-vbWednesday - gebruikt woensdag als de eerste dag van de week.
-vbThursday - gebruikt donderdag als de eerste dag van de week.
-vbFriday - gebruikt vrijdag als de eerste dag van de week.
-vbSaturday - gebruikt zaterdag als de eerste dag van de week.
-vbUseSystemDayOfTheWeek - gebruikt de eerste dag van de week die is opgegeven door de instellingen van uw systeem.

12345678

Sub met behulp vanTheWeekdayNameFunction()Dim de naam van de weekdag als tekenreekstheWeekdayName = WeekdayName(4)Debug.Print theWeekdayNameEinde sub

Het resultaat is:

VBA Jaar Functie

U kunt de functie Jaar gebruiken om het jaar van een ingevoerde datum te retourneren.

De syntaxis van de jaarfunctie is:

Jaar (datum_waarde) waar:

• Date_value - De datum waarvan u het jaar wilt extraheren.

De volgende code laat zien hoe u de jaarfunctie gebruikt:

12345678

Sub met behulp vanTheYearFunction()Dim het jaar als geheel getalhetJaar = Jaar("11/12/2010")Debug.Print het jaarEinde sub

Het resultaat is:

Datums vergelijken in VBA

U kunt datums vergelijken met de operatoren >, < en = in VBA. De volgende code laat zien hoe u twee datums in VBA kunt vergelijken.

12345678910111213141516171819

Sub VergelijkendeDates()Dim dateOne As DateDim dateTwee als datumdateOne = "10/10/2010"dateTwo = "11/11/2010"Als dateOne > dateTwo DanDebug.Print "dateOne is de latere datum"ElseIf dateOne = dateTwo ThenDebug.Print "De twee datums zijn gelijk"AndersDebug.Print "dateTwo is de latere datum"Stop alsEinde sub

Lees deze zelfstudie voor meer informatie over het opmaken van datums als tekenreeksen.