VBA-datumfunctie

Excel VBA DATUM-functie

VBA-datum is een datum- en tijdfunctie, het retourneert alleen de huidige datum volgens de systeemdatum die u gebruikt, ook het belangrijkste om op te merken is dat deze functie helemaal geen argumenten bevat, een andere belangrijke factor om te onthouden is dat deze functie geeft de huidige systeemdatum terug.

In Excel kunnen we niet zonder enkele van de functies en "VBA Date" is een van die functies. Als u een frequente gebruiker van Excel-werkblad bent, moet u zich bewust zijn van een functie genaamd "TODAY ()" die de huidige datum retourneert volgens de systeemdatum.

De datum is een heel eenvoudige functie en retourneert alleen de huidige datum volgens de systeemdatum die u gebruikt. Dit werkt ongeveer hetzelfde als onze werkbladfunctie "VANDAAG", maar is niet vluchtig van aard.

De syntaxis van de Excel DATE-functie is heel eenvoudig omdat deze geen argument heeft om op te geven en alleen lege haakjes bevat.

Datum ()

Haakjes zijn er alleen om de functie uit te leggen wanneer u de functie gebruikt, u hoeft geen haakje in te voeren.

Hoe Excel VBA-datumfunctie te gebruiken?

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

Voorbeeld 1

Stel dat u de huidige datum in cel A1 wilt invoegen, volg dan onderstaande stappen om de code te schrijven om de huidige datum in cel A1 in te voegen.

Stap 1: Maak een macronaam.

Code:

 Sub datum_voorbeeld1 ()

Stap 2: Aangezien we de huidige datum in cel A1 moeten opslaan, is onze code Bereik ("A1"). Waarde .

Code:

 Sub Date_Example1 () Bereik ("A1") Waarde End Sub 

Stap 3: In cel A1 hebben we de huidige datum nodig, dus gebruik de functie DATUM.

Code:

 Sub Date_Example1 () Bereik ("A1") Waarde = Datum einde Sub 

Stap 4: Ok, we zijn klaar. Laten we deze code nu uitvoeren door op de F5-toets te drukken, of u kunt de code ook handmatig uitvoeren, zoals weergegeven in de onderstaande schermafbeelding. We krijgen de huidige datum in cel A1.

Dus als ik deze code schrijf, is de huidige datum in mijn systeem "15 maart 2019".

Opmerking: het formaat  van uw datum is afhankelijk van uw Windows-instellingen. Hoe dan ook, u kunt de indeling van de datum wijzigen onder de opmaakcellen.

Voorbeeld # 2

Stel dat u een LIC-agent bent en dat u met meerdere klanten te maken heeft. Een van de belangrijkste doelen is om te weten wiens betaling vandaag verschuldigd is, zodat u ze kunt bellen en de betaling onmiddellijk kunt innen.

Stel dat hieronder de lijst met klanten is die u in uw database heeft.

Ik heb al een code geschreven die je op de hoogte stelt zodra je het Excel-bestand opent.

Code:

 Sub Due_Notifier () Dim Duedate As Date Dim i As Long Duedate = Date i = 2 For i = 2 To Cells (Rows.Count, 1) .End (xlUp) .Row If Duedate = DateSerial (Year (Date), Month ( Cells (i, 3) .Value), Day (Cells (i, 3) .Value)) Then MsgBox "Customer Name:" & Cells (i, 1) .Value & vbNewLine & "Premium Amount:" & Cells (i , 2). Waarde einde als volgende i einde sub 

Kopieer de bovenstaande code en plak deze in de VBA-module.

Dubbelklik nu op de optie "Deze werkmap".

Selecteer nu "Werkboek" in de bovenstaande vervolgkeuzelijst.

Zodra u de optie “Werkboek” selecteert, ziet u dat er automatisch een privé-macro wordt geopend.

Hier zegt de macronaam "Workbook_Open ()". Dit betekent dat wanneer deze werkmap wordt geopend, wat u moet doen. Telkens wanneer deze werkmap wordt geopend, moeten we de macro uitvoeren die we hebben gemaakt.

Dus hier moeten we onze macro die we hebben gemaakt bij zijn naam noemen. In de bovenstaande code is onze macronaam "Due_Notifier".

Code:

 Bel Due_Notifier

Sla nu deze werkmap op en sluit deze.

Nadat je het hebt gesloten, open je de werkmap en zie je de magie.

Nu zal ik openen….

Wauw!!! Het toont me de naam van de klant en het verschuldigde bedrag voor de huidige datum.

Klantnaam is "Amar" en het verschuldigde bedrag is "20883". De reden waarom deze klantnaam wordt weergegeven, omdat de vervaldatum voor Mr Amar 15 maart 2019 is, dwz vandaag.

Klik nu op Ok, het zal andere klantnamen tonen als de vervaldatum vandaag valt.

Het toont de naam van de heer Arvind, zijn uitgerekende datum is ook op 15 maart 2019.

Nu kunt u de klantennamen gemakkelijk herkennen zodra u op kantoor komt. Een van de grote hoofdpijn is weg.

Evenzo heb ik nog een Excel-macro gemaakt die automatische verjaardags-e-mails vanuit uw Outlook verzendt.

Voorbeeld # 3

Stel dat u deel uitmaakt van een "Employee Engagement Team" en dat u verantwoordelijk bent om verjaardagsmails naar uw werknemers te sturen. Het identificeren en verzenden van de e-mail naar elk afzonderlijk is een pijnlijke klus.

Hallo, mijn beste vriend maakt zich geen zorgen. Ik heb een macro voor u gemaakt om de automatische verjaardagsmails naar uw werknemers te sturen.

I have created some data to test and below is the image of the same.

You just need to update the employee master according to the headings of the table. Below is the code to send the emails.

Copy the below code and paste in the module.

 Sub Birthday_Wishes() Dim OutlookApp As Outlook.Application Dim OutlookMail As Outlook.MailItem Dim Mydate As Date Dim i As Long Set OutlookApp = New Outlook.Application Mydate = Date i = 2 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row Set OutlookMail = OutlookApp.CreateItem(olMailItem) If Mydate = DateSerial(Year(Date), Month(Cells(i, 5).Value), Day(Cells(i, 5).Value)) Then OutlookMail.To = Cells(i, 7).Value OutlookMail.CC = Cells(i, 8).Value OutlookMail.BCC = "" OutlookMail.Subject = "Happy Birthday - " & Cells(i, 2).Value OutlookMail.Body = "Dear " & Cells(i, 2).Value & "," & vbNewLine & vbNewLine & _ "We wish you a happy birhday on behalf of the management and we wish all the success in the coming future" & vbNewLine & _ vbNewLine & "Regards," & vbNewLine & "StrIDE Team" OutlookMail.Display OutlookMail.Send End If Next i End Sub 

As soon as you come to the office just open the file and run this code, it will automatically send birthday wishes to the respective email id’s.

Note: You should have Outlook configured in your system.