Microsoft Visual Basici rakenduses on kuupäevafunktsioonid või mis tahes kuupäevaga seotud mõisted olulised erinevate operatsioonide tegemiseks teie andmekogumis. Te võite sattuda erinevatesse olukordadesse, kus peate neid funktsioone kasutama. Selles õpetuses tutvute VBA kuupäeva funktsiooniga koos sobivate näidete ja korralike illustratsioonidega. Samuti anname teile mitu kuupäeva funktsiooni.mida saate oma töölehel rakendada.

Lae alla praktiline töövihik

VBA Date.xlsm kasutamine

Sissejuhatus VBA kuupäeva funktsioonile

Excel liigitab kuupäevad kategooriatesse Kuupäev/kellaaeg See on sisseehitatud funktsioon. Me saame seda kasutada VBA makrodes mis tahes kuupäevaga seotud toimingute tegemiseks.

Enne kuupäeva funktsiooniga alustamist peate te teadma, et Kuupäeva muutujad VBAs .

⏺ Süntaks

⏺ Argumendid Selgitused

Vaidlusi ei ole.

⏺ Tagasimakseid

Tagastab praeguse kuupäeva.

⏺ Saadaval aadressil

Excel Office 365, Excel 2019, Excel 2016, Excel 2013, Excel 2011 Mac'ile, Excel 2010, Excel 2007, Excel 2003, Excel XP, Excel 2000

⏺ Näide

Nagu te teate, ei ole argumente, mida saab lihtsalt sisestada nagu järgnevalt:

 Sub vba_date() Dim current_date As Date current_date = Date MsgBox current_date End Sub 

Kui me töötame kuupäevafunktsiooniga, ei anna me VBA koodides ühtegi sulgu, nagu selles näites.

Väljund :

12 kuupäeva funktsioonid VBAs, mida peaksite õppima

Nüüd, järgmistes osades, näitame teile mõned täiendavad kuupäeva funktsioonid, mida saate VBAs kasutada mitmel otstarbel. Lugege neid jaotisi, et teada saada kõikvõimalikud viisid, kuidas VBAs kuupäevaga töötada. Soovitame neid oma arsenalis hoida. See parandab kindlasti teie teadmisi.

1. DateAdd funktsioon kuupäevana VBAs

VBAs kasutame funktsiooni DateAdd, et lisada päevi konkreetsele kuupäevale. Pärast seda tagastab see saadud kuupäeva.

Süntaks:

DateAdd(intervall, number, kuupäev)

Argumendid:

vaheaeg: See on nõutav. String väljend on ajavahemik, mida soovite lisada.

number: Vajalik. See on numbriline väljend, mis on intervallide arv, mida soovite lisada. See võib olla positiivne (et saada kuupäevi tulevikus) või negatiivne (et saada kuupäevi minevikus).

kuupäev: Algne kuupäev/kellaaeg.

Nüüd on intervall argumentidel võivad olla järgmised seaded:

yyyy - Aasta

q - Kvartal

m - Kuu

y - Aasta päev

d - Päev

w - Nädalapäevad

ww - Nädal

h - Tund

n - Hetk

s - Teine

Koodilõiked :

 Sub dateadd_function() Dim result_Date As Date result_Date = DateAdd("d", 15, "1/31/2022") MsgBox result_Date End Sub 

Väljund:

Nagu näete, lisas ta VBAs 15 kuupäeva praeguses kuupäevas.

Loe edasi: Kuidas kasutada IsDate funktsiooni VBAs (3 näidet)

2. DateDiff funktsioon VBAs

Funktsioon DateDiff tagastab variandi (Long), mis määrab kahe määratud kuupäeva vahelise ajalise vahe arvu.

Süntaks :

DateDiff(interval, date1, date2, [ firstdayofweek, [ firstweekofyear ]] )

Argumendid:

vaheaeg: See on nõutav. String väljendus on ajavahemik, mida soovite lisadaString väljendus, mis on ajavahemik, mida kasutate kahe kuupäeva vahelise erinevuse arvutamiseks.

kuupäev1,kuupäev2 : Kohustuslik; Variant (kuupäev). Kaks kuupäeva, mida soovite arvutustes kasutada.

esimenepäevnädalal: Vabatahtlik. Konstant, mis määrab nädala esimese päeva. Kui see ei ole fikseeritud, eeldatakse pühapäeva.

aasta esimene nädal: Vabatahtlik. Konstant, mis määrab aasta esimese nädala. Kui seda ei ole määratud, eeldatakse, et esimene nädal on see nädal, mil ilmub 1. jaanuar.

Nüüd on intervall argumentidel võivad olla järgmised seaded:

yyyy - Aasta

q - Kvartal

m - Kuu

y - Aasta päev

d - Päev

w - Nädalapäevad

ww - Nädal

h - Tund

n - Hetk

s - Teine

The firstdayofweek argumendil on need seaded:

vbSunday - kasutab pühapäeva kui nädala tähtsaimat päeva.

vbMonday - kasutab esmaspäeva kui nädala esimest päeva.

vbTuesday - tegutseb teisipäeval kui nädala esimesel päeval.

vbWednesday - kasutab nädala esimeseks päevaks kolmapäeva.

vbThursday - tegutseb neljapäev kui pigem nädalapäev.

vbFriday - kasutab nädala esimeseks päevaks reedet.

vbSaturday - töötab laupäeval kui nädala esimesel päeval.

vbUseSystemDayOfTheWeek - kasutab teie seadme seadistuse järgi määratud esimest nädalapäeva.

The aasta esimene nädal on need seaded:

vbFirstJan1 - kasutab 1. jaanuari sisaldavat nädalat.

vbFirstFourDays - töötab esimesel nädalal, millel on vähemalt neli päeva uuel aastal.

vbFirstFullWeek - tegutseb aasta esimesel täisnädalal.

vbSystem - kasutab aasta esimest nädalat, mis on määratletud teie seadme asukoha järgi.

Koodilõiked:

 Sub DateDiff_Function() Dim result As Long result = DateDiff("d", "1/31/2022", "2/12/2022") MsgBox result End Sub 

Väljund :

Lõpuks tagastab see VBAs kahe kuupäeva vahe.

Loe edasi: Kuidas kasutada VBA DateDiff funktsiooni Excelis (9 näidet)

3. DatePart funktsioon kui kuupäev

Funktsioon DatePart tagastab variandi (täisarv), mis sisaldab esitatud kuupäeva määratletud osa.

Süntaks :

DatePart(intervall, kuupäev, [ firstdayofweek, [ firstweekofyear ]])

Argumendid:

vaheaeg: See on nõutav. String väljendus on ajavahemik, mida soovite lisadaString väljendus, mis on ajavahemik, mida kasutate kahe kuupäeva vahelise erinevuse arvutamiseks.

kuupäev: Kohustuslik; Variant (kuupäev). kuupäev, mida soovite arvutustes kasutada.

esimenepäevnädalal: Vabatahtlik. Konstant, mis määrab nädala esimese päeva. Kui see ei ole fikseeritud, eeldatakse pühapäeva.

aasta esimene nädal: Vabatahtlik. Konstant, mis määrab aasta esimese nädala. Kui seda ei ole määratud, eeldatakse, et esimene nädal on see nädal, mil ilmub 1. jaanuar.

Nüüd on intervall argumentidel võivad olla järgmised seaded:

yyyy - Aasta

q - Veerand

m - Kuu

y - Aasta päev

d - Päev

w - Nädalapäevad

ww - Nädal

h - Tund

n - Hetk

s - Teine

The firstdayofweek argumendil on need seaded:

vbSunday - kasutab pühapäeva kui nädala tähtsaimat päeva.

vbMonday - kasutab esmaspäeva kui nädala esimest päeva.

vbTuesday - tegutseb teisipäeval kui nädala esimesel päeval.

vbWednesday - kasutab nädala esimeseks päevaks kolmapäeva.

vbThursday - tegutseb neljapäev kui pigem nädalapäev.

vbFriday - kasutab nädala esimeseks päevaks reedet.

vbSaturday - töötab laupäeval kui nädala esimesel päeval.

vbUseSystemDayOfTheWeek - kasutab teie seadme seadistuse järgi määratud esimest nädalapäeva.

The aasta esimene nädal on need väärtused:

vbFirstJan1 - tegutseb nädala jooksul, sealhulgas 1. jaanuaril.

vbFirstFourDays - kasutab esimesel nädalal, mis omab kõige rohkem alamõõdulist nelja päeva uuel aastal.

vbFirstFullWeek - kasutab aasta esimest täisnädalat.

vbSystem - töötab aasta esimesel nädalal, nagu on valitud teie seadme asukohad.

Koodilõiked :

 Sub DatePart_Function() Dim result As Integer result = DatePart("m", "10/11/2022") MsgBox result End Sub 

Väljund :

Sel viisil saate seda kuupäeva funktsiooni kasutada VBA koodides.

Loe edasi: Kuidas kasutada VBA FileDateTime funktsiooni Excelis (3 kasutamist)

4. DateSerial funktsioon

Saate näha kuupäeva, mis põhineb sisestatud aastal, kuul ja päeval, kasutades The DateSerial funktsioon.

Süntaks:

DateSerial(aasta, kuu, päev)

Argumendid:

aasta - Kohustuslik väli. Number vahemikus 100 kuni 9999 (kaasa arvatud) või numbriline väljend, mis sümboliseerib aastat.

kuu - Kohustuslik väli. täisarvuline väärtus, mis määrab kuu.

päev - Kohustuslik väli. Terviklik väärtus, mis kirjeldab päeva.

Koodilõiked:

 Sub date_serial() Dim date_special As Date date_special = DateSerial(2022, 1, 11) MsgBox date_special End Sub 

Väljund :

Loe edasi: Kuidas kasutada VBA TimeSerial'i Excelis (3 näidet)

4. VBA DateValue funktsioon

Nüüd kasutame kuupäeva defineerimiseks funktsiooni DateValue.

Süntaks :

DateValue(kuupäev)

Argument:

Siin on kuupäev argument on tavaliselt string-avaldis, mis kirjeldab kuupäeva vahemikus 1. jaanuarist 100 kuni 31. detsembrini 9999. Sellest hoolimata võib kuupäev olla lisaks mis tahes väljend, mis võib sümboliseerida kuupäeva, kellaaega või nii kuupäeva kui ka kellaaega selles vahemikus.

Koodilõiked:

 Sub Date_value() Dim result As Date result = DateValue("jaanuar, 10, 2022") MsgBox result End Sub 

Väljund :

Nagu näete, kasutasime edukalt kuupäeva funktsiooni VBA koodides.

5. Päeva funktsioon VBAs

See tagastab variandi (täisarv), mis määrab reaalarvu vahemikus 1 kuni 31 (kaasa arvatud), mis näitab kuu päeva.

Süntaks :

Päev(kuupäev)

Argument:

Vajalik kuupäeva argument on mis tahes Variant, numbriline väljend, stringi väljendus või mis tahes kombinatsioon. See kujutab kuupäeva. Kui kuupäev sisaldab Null, siis tagastab see ka Null.

Koodilõiked:

 Sub day_function() Dim date1, the_day date1 = #12/12/2023# the_day = Day(date1) MsgBox the_day End Sub 

Väljund:

Nagu näete, leidsime VBA koodide abil, et antud kuupäeva päev on 12.

Seotud sisu: VBA vormingu funktsioon Excelis (8 kasutust koos näidetega)

6. VBA kuu funktsioon kuupäevana

See tagastab variandi (täisarv), mis määratleb reaalarvu vahemikus 1 kuni 12 (kaasa arvatud), mis näitab aasta kuud.

Süntaks :

Kuu(kuupäev)

Argument:

Vajalik kuupäeva argument on mis tahes Variant, numbriline väljend, stringi väljendus või mis tahes kombinatsioon. See kujutab kuupäeva. Kui kuupäev sisaldab Null, siis tagastab see ka Null.

Koodilõiked:

 Sub month_function() Dim date1, the_month date1 = #12/12/2023# the_month = Month(date1) MsgBox the_month End Sub 

Väljund:

Seotud sisu: Kuidas kasutada VBA õiget funktsiooni Excelis (6 näidet)

Sarnased lugemised

• Kuidas kasutada VBA funktsiooni Environ (4 näidet)
• Kuidas kasutada VBA-d ja funktsiooni Excelis (4 näidet)
• VBA If - Then - Else avaldus Excelis (4 näidet)
• Kuidas kasutada VBA Abs-funktsiooni Excelis (9 näidet)
• Kuidas kasutada Exceli VBAs konkateerimist (4 meetodit)

7. MonthName funktsioon

See tagastab stringi, mis näitab määratud kuud.

Süntaks :

MonthName(month, [ lühend ])

Argument:

kuu: See on nõutav. Kuu numbriline nimetus. Näiteks jaanuar on 1, veebruar on 2 jne.

lühendada: See on vabatahtlik. Bool'i väärtus, mis näitab, kas kuu nime lühendatakse. Kui see jäetakse vahele, on vaikimisi väärtus False, mis näitab, et kuu nime ei lühendata.

Koodilõiked:

 Sub MonthName_Function() Dim month_name As String month_name = MonthName(9, True) MsgBox month_name End Sub 

Väljund:

Nagu näete, leidsime kuu nime selle VBA kuupäeva funktsiooni abil.

8. Nädala funktsioon

See tagastab Variant ( Tervearvuline ), millel on reaalarv, mis väljendab nädalapäeva.

Süntaks :

Weekday(kuupäev, [ firstdayofweek ])

Argument:

kuupäev: Vajalik kuupäeva argument on mis tahes Variant, numbriline väljend, stringi väljendus või mis tahes kombinatsioon. See kujutab kuupäeva. Kui kuupäev sisaldab Null, siis tagastab see ka Null.

esimenepäevnädalal: Vabatahtlik. Konstant, mis määrab nädala esimese päeva. Kui see ei ole fikseeritud, eeldatakse pühapäeva.

The firstdayofweek argumendil on need seaded:

vbSunday - kasutab pühapäeva kui nädala tähtsaimat päeva.

vbMonday - kasutab esmaspäeva kui nädala esimest päeva.

vbTuesday - tegutseb teisipäeval kui nädala esimesel päeval.

vbWednesday - kasutab nädala esimeseks päevaks kolmapäeva.

vbThursday - tegutseb neljapäev kui pigem nädalapäev.

vbFriday - kasutab nädala esimeseks päevaks reedet.

vbSaturday - töötab laupäeval kui nädala esimesel päeval.

vbUseSystemDayOfTheWeek - kasutab teie seadme seadistuse järgi määratud esimest nädalapäeva.

Tagastamisparameetrid

See funktsioon tagastab täisarvu. Seega on nende täisarvude tähendus järgmine:

1 - Pühapäev

2 - Esmaspäev

3 - Teisipäev

4 - Kolmapäev

5 - Neljapäev

6 - Reede

7 - Laupäeval

Koodilõiked:

 Sub Weekday_Function() Dim week_day As Integer week_day = Weekday("4/27/2022") MsgBox week_day End Sub 

Väljund:

Nagu näete, annab VBA kuupäeva funktsioon tagasi 4. See tähendab kolmapäeva.

Seotud sisu: Kuidas kasutada Fix funktsiooni Excel VBA-s (4 näidet)

9. VBA WeekdayName funktsioon

Tagastab stringi, mis näitab piiratud nädalapäeva.

Süntaks :

WeekdayName(nädalapäev, lühend, firstdayofweek)

Argument:

argipäev: Kohustuslik väli. Nädala päeva numbriline identifikaator. Iga päeva numbriline väärtus sõltub seadistuse firstdayofweek seadistusest.

lühendada: See on vabatahtlik. Bool'i väärtus, mis näitab, kas nädalapäeva nime lühendatakse. Kui see jäetakse vahele, on vaikimisi False, mis tähendab, et nädalapäeva nime ei lühendata ega lühendata.

esimenepäevnädalal: Vabatahtlik väli. Numbriline väärtus, mis näitab nädala esimest päeva. Sellel võib olla erinevaid väärtusi.

The firstdayofweek argumendil võivad olla järgmised väärtused:

vbSunday - kasutab pühapäeva kui nädala tähtsaimat päeva.

vbMonday - kasutab esmaspäeva kui nädala esimest päeva.

vbTuesday - tegutseb teisipäeval kui nädala esimesel päeval.

vbWednesday - kasutab nädala esimeseks päevaks kolmapäeva.

vbThursday - tegutseb neljapäev kui pigem nädalapäev.

vbFriday - kasutab nädala esimeseks päevaks reedet.

vbSaturday - töötab laupäeval kui nädala esimesel päeval.

vbUseSystemDayOfTheWeek - kasutab teie seadme seadistuse järgi määratud esimest nädalapäeva.

Koodilõiked:

 Sub WeekdayName_Function() Dim weekday_name As String weekday_name = WeekdayName(6) MsgBox weekday_name End Sub 

Väljund:

Nagu näete, näitavad ülaltoodud VBA-koodid nädalapäeva nime.

Seotud sisu: Kuidas kasutada VBA WeekdayName funktsiooni Excelis (2 näidet)

10. Aasta funktsioon VBAs Date

See tagastab variandi (täisarv), millel on aastaarvu väljendav reaalarv.

Süntaks :

Aasta(kuupäev)

Argument:

Vajalik kuupäeva argument on mis tahes Variant, numbriline väljend, stringi väljendus või mis tahes kombinatsioon. See kujutab kuupäeva. Kui kuupäev sisaldab Null, siis tagastab see ka Null.

Koodilõiked:

 Sub year_function() Dim date1, the_year date1 = #12/12/2023# the_year = Year(date1) MsgBox the_year End Sub 

Väljund:

Siin näete antud kuupäeva aastaarvu pärast VBA-koodi rakendamist.

Loe edasi: Kuidas kasutada VBA asendusfunktsiooni Excelis (11 rakendust)

11. Funktsioon FormatDateTime

See funktsioon tagastab kuupäeva või kellaaegana vormindatud väljendi.

Süntaks :

FormatDateTime(Date, [ NamedFormat ])

Argument:

Kuupäev: Kohustuslik väli. Kuupäeva väljendus, mis tuleb vormindada.

NamedFormat: See on vabatahtlik. See on numbriline väärtus, mis näitab kuupäeva/aja formaati. Kui see jäetakse välja, kasutatakse seda vbGeneralDate .

The NamedFormat võib omada järgmisi väärtusi:

vbGeneralDate(0): Näidata kuupäeva ja/või kellaaega. Kui on olemas kuupäeva osa, väljendage seda lühikese kuupäevana. Kui on olemas aja osa, näidake seda pika ajana. Mõlemad osad kuvatakse, kui need on olemas.

vbLongDate(1): Kujutage kuupäeva, kasutades arvuti piirkondlikes seadetes valitud pikka kuupäeva konfiguratsiooni.

vbShortDate(2): Kuvage kuupäev, kasutades arvuti piirkondlikes seadetes määratud lühikese kuupäeva formaati.

vbLongTime(3): Näidake aega, kasutades arvuti piirkondlikes seadetes määratud ajaformaati.

vbShortTime(4): Näidake aega, kasutades 24-tunnist formaati (hh:mm).

Koodilõiked:

 Sub FormatDateTime_Function() d = ("2022-02-03 18:25") MsgBox ("Format 1 : " & FormatDateTime(d)) MsgBox ("Format 2 : " & FormatDateTime(d, 1)) MsgBox ("Format 3 : " & FormatDateTime(d, 2)) MsgBox ("Format 4 : " & FormatDateTime(d, 3)) MsgBox ("Format 5 : " & FormatDateTime(d, 4)) End Sub 

Väljund:

Pärast koodi käivitamist kuvatakse järgmised dialoogiboksid:

Siin näete kõiki VBA aja- ja kuupäevavorminguid.

Loe edasi: Kuidas kasutada VBA TimeValue funktsiooni (6 asjakohast näidet)

12. VBA CDate funktsioon

Funktsioon teisendab kehtiva kuupäeva ja kellaaja väljenduse tüüpiliseks kuupäevaks.

Süntaks :

CDate(kuupäev)

Argument:

Vajalik kuupäeva argument on mis tahes Variant, numbriline väljend, stringi väljendus või mis tahes kombinatsioon. See kujutab kuupäeva. Kui kuupäev sisaldab Null, siis tagastab see ka Null.

Koodilõiked:

 Sub Cdate_Function() Dim date1 As Variant Dim date2 As Variant date1 = CDate("Mar 11 Mar 2022") date2 = CDate("29 Sep 2023") MsgBox ("Esimene kuupäev : " & date1 & vbCrLf & "Teine kuupäev : " & date2) End Sub 

Väljund:

Nagu näete, andis meie VBA-kood lihtsalt tagasi Exceli tüüpilise kuupäevaformaadi.

Seotud sisu: Kuidas kasutada VBA DIR-funktsiooni Excelis (7 näidet)

VBA kuupäeva näited

Järgnevalt anname teile kolm praktilist ja sobivat näidet kuupäeva kohta VBA abil. Need näited sisaldavad kuupäevaga seotud probleeme ja nende lahendusi. Soovitame teil lugeda ja harjutada kõiki neid näiteid, et parandada oma VBA teadmisi. Asume asja juurde. Alustame.

1. Arvutage viivispäevad, kasutades kuupäeva VBAs

Tähendus overdue on hilinemine või tähtaja ületamine. Hilinemine, eriti tähtaja ületamine või liiga hilja, et täita nõuet.

Oletame, et te peate esitama ülesande, mille tähtaeg on pühapäev. Kuid on teisipäev ja te ei ole seda esitanud. Võite nimetada seda kaheks viivitatud päevaks.

Vaadake järgmist andmestikku:

Siin on meil andmestik mõnest õpilasest ja nende ülesannete esitamise kuupäevast. Näete viimast esitamise kuupäeva. Meie eesmärk on leida hilinenud kuupäev, mis põhineb esitamise kuupäeval. Selleks, et seda saavutada, järgige järgmisi samme:

📌 Sammud

• Kõigepealt vajutage Alt+F11 klaviatuuril, et avada VBA redaktor.
• Seejärel valige Insert> moodul .

• Pärast seda sisestage järgmine kood:

 Sub overdue_days() Dim cell As Integer Dim J As Integer Dim due_date As Date due_date = #1/11/2022# For cell = 5 To 11 If Cells(cell, 4).Value = due_date Then Cells(cell, 5).Value = "Submitted Today" ElseIf Cells(cell, 4).Value> due_date Then J = due_date - Cells(cell, 4).Value J = Abs(J) Cells(cell, 5).Value = J & " Overdue Days" Else Cells(cell, 5).Value = "No Overdue" End If Next cellEnd Sub 

Me kasutasime ABS-funktsioon et eemaldada miinusmärk.

• Seejärel salvestage fail.
• Pärast seda vajutage Alt+F8 klaviatuuril, et avada makro dialoogiaken.
• Seejärel valige
• Seejärel klõpsake nuppu Käivita .

Nagu näete, oleme VBAs edukalt kasutanud kuupäeva ja leidnud viivitatud päevad.

Sarnased lugemised

• Kuidas kasutada VBA ruumi funktsiooni Excelis (3 näidet)
• VBA ChDir-funktsiooni kasutamine Excelis (4 sobivat näidet)
• Kuidas kasutada funktsiooni IsNull Excel VBA-s (5 näidet)
• Kasutage VBA While Wend avaldust Excelis (4 näidet)
• Kuidas kutsuda VBA allprogramme Excelis (4 näidet)

2. Sünniaasta leidmine kuupäevast VBA abil

Nüüd saate leida aasta alates konkreetsest kuupäevast. Seda on üsna lihtne leida.

Vaadake järgmist andmestikku:

Siin näete mõnede isikute sünniaastat. Meie eesmärk on eraldada kuupäevast sünniaasta ja ka viimase sissekande Elizabeth sünniaasta.

📌 Sammud

• Kõigepealt vajutage Alt+F11 klaviatuuril, et avada VBA redaktor.
• Seejärel valige Insert>Moodul .

• Pärast seda sisestage järgmine kood:

 Sub find_year() Dim last_entry As Date Dim cell As Integer For cell = 5 To 11 Cells(cell, 4).Value = Year(Cells(cell, 3).Value) If cell = 11 Then last_entry = Cells(cell, 3).Value End If Next cell MsgBox "Viimase sissekande sünniaasta: " & Year(last_entry) End Sub 

• Seejärel salvestage fail.
• Pärast seda vajutage Alt+F8 klaviatuuril, et avada makro dialoogiaken.
• Seejärel valige find_year .
• Seejärel klõpsake nuppu Käivita .

Lõpuks näete, et meil õnnestus igast kuupäevast sünniaasta välja võtta. Samuti leidsime viimase sissekande sünniaasta, kasutades VBA kuupäeva Excelis.

3. Päevade lisamine kuupäeva kasutades VBA-d

Nüüd saate defineerida kuupäeva muutuja ja kasutada seda kuupäeva lisamiseks. Selleks kasutame me DateAdd meetodi VBA. Seda funktsiooni saate kasutada päevade, kuude ja aastate lisamiseks konkreetsele kuupäevale.

Vaadake järgmist andmestikku:

Siin näete mõningaid nimesid ja nendega seotud kuupäevi. Nüüd on meie eesmärk lisada nendele antud kuupäevadele veel viis päeva ja genereerida uus kuupäev.

📌 Sammud

• Kõigepealt vajutage Alt+F11 klaviatuuril, et avada VBA redaktor.
• Seejärel valige Insert>Moodul .

• Pärast seda sisestage järgmine kood:

 Sub add_days() Dim first_date As Date Dim second_date As Date Dim cell As Integer For cell = 5 To 11 first_date = Cells(cell, 3).Value second_date = DateAdd("d", 5, first_date) Cells(cell, 4).Value = second_date Next cell End Sub 

Siin kasutasime DateAdd funktsioonis argumendina "d". Saate selle muuta "y" või "m", et lisada vastavalt aastaid või kuid,

• Seejärel salvestage fail.
• Pärast seda vajutage Alt+F8 klaviatuuril, et avada makro dialoogiaken.
• Seejärel valige.
• Seejärel klõpsake nuppu Käivita .

Nagu näete, oleme VBAs kuupäeva abil edukalt päevi kuupäevale lisanud. Nüüd saate koodi muuta vastavalt oma valikule.

💬 Asjad, mida meeles pidada

✎ VBA Date funktsioon töötab tegelikult nagu funktsioon TODAY Excelis.

✎ VBA DATE on excelis muutumatu funktsioon. See tähendab, et see säilitab andmed isegi siis, kui vooluühendus katkeb.

✎ Põhimõtteliselt salvestab VBA kuupäevade väärtused DATE'ina rakendamise ajal.

✎ Seega, kui te proovite määrata kuupäeva muutujat stringina/tekstina, siis tekib viga.

✎ Kuupäeva vaikeväärtus on 0:00:00 (südaöö) 1. jaanuaril 0001.

Kokkuvõte

Kokkuvõtteks loodan, et see õpetus andis teile tükikese kasulikke teadmisi kuupäevast VBA koodides. Soovitame teil õppida ja rakendada kõiki neid juhiseid oma andmekogumile. Laadige alla praktiline töövihik ja proovige neid ise. Samuti võite vabalt anda tagasisidet kommentaaride sektsioonis. Teie väärtuslik tagasiside hoiab meid motiveerituna selliste õpetuste loomiseks.

Ärge unustage meie veebilehte Exceldemy.com erinevate Exceliga seotud probleemide ja lahenduste kohta.

Jätkake uute meetodite õppimist ja kasvamist!