U ovom ćemo vodiču proći kroz različite ugrađene VBA funkcije datuma.
VBA Datum funkcija
Pomoću funkcije Datum možete vratiti trenutni datum.
Sintaksa funkcije Date je Date (). Nema argumenata.
Sljedeći kôd prikazuje kako se koristi funkcija datuma:
| 12345678 | Pod KorištenjeDateFunction ()Zatamnite datum kao datumtheDate = Date ()Otklanjanje pogrešaka. Ispišite datumKraj podm |
Rezultat je:
VBA sada funkcija
Pomoću funkcije Now možete vratiti trenutni datum i vrijeme.
Sintaksa funkcije Now je Now (). Nema argumenata.
Sljedeći kôd prikazuje kako se koristi funkcija Now:
| 12345678 | Pod pomoću TheNowFunction ()Zatamnite datum kao datumtheDate = Sada ()Otklanjanje pogrešaka. Ispišite datumKraj podm |
Rezultat je:
VBA Vremenska funkcija
Pomoću funkcije Time možete vratiti trenutno vrijeme.
Sintaksa funkcije Time je Time (). Nema argumenata.
Sljedeći kôd prikazuje kako se koristi funkcija vremena:
| 12345678 | Pod pomoću TheTimeFunction ()Zatamnite vrijeme kao datumtheTime = Time ()Otklanjanje pogrešaka. Ispišite vrijemeKraj podm |
Rezultat je:
VBA funkcija dodavanja datuma
Funkciju DateAdd možete koristiti za dodavanje datuma/vremena u datum ili vrijeme, a funkcija će vratiti rezultirajući datum/vrijeme.
Sintaksa funkcije DateAdd je:
DateAdd (interval, broj, datum) gdje:
- Interval - niz koji određuje vrstu intervala koji se koristi. Interval može biti jedna od sljedećih vrijednosti:
"D" - dan
"Ww" - tjedan
"W" - radni dan
"M" - mjesec
"Q" - četvrtina
"Gggg" - godina
"Y" - dan u godini
"H" - sat
"N" - minuta
"S" - drugo
- Broj - Broj intervala koje želite dodati izvornom datumu/vremenu.
- Datum - Izvorni datum/vrijeme.
Napomena: Kada koristite datume u svom kodu, morate ih okružiti s # ili navodnicima.
Sljedeći kôd pokazuje kako se koristi funkcija dodavanja datuma:
| 123456789 | Pod KorištenjeDateAddFunction ()Zatamni kasnijeData kao datumlaterDate = DateAdd ("m", 10, "11/12/2019")Otklanjanje pogrešaka.Ispiši kasnijeDatumKraj podm |
Rezultat je:
VBA DateDiff funkcija
Možete koristiti funkciju DateDiff kako biste dobili razliku između dva datuma, na temelju određenog vremenskog intervala.
Sintaksa funkcije DateDiff je:
DateDiff (Interval, Date1, Date2, [Firstdayofweek], [Firstweekofyear]) gdje:
- Interval - niz koji određuje vrstu intervala koji se koristi. Interval može biti jedna od sljedećih vrijednosti:
"D" - dan
"Ww" - tjedan
"W" - radni dan
"M" - mjesec
"Q" - četvrtina
"Gggg" - godina
"Y" - dan u godini
"H" - sat
"N" - minuta
"S" - drugo
- Datum1 - Vrijednost datuma koja predstavlja raniji datum.
- Datum2 - Vrijednost datuma koja predstavlja kasniji datum.
- Prvi dan tjedna (Izborno) - Konstanta koja navodi dan u tjednu koji bi funkcija trebala koristiti kao prvi dan u tjednu. Ako se prazna nedjelja koristi kao prvi dan u tjednu. Prvi dan tjedna može biti jedna od sljedećih vrijednosti:
-vbSunday - koristi nedjelju kao prvi dan u tjednu.
-vbMonday - koristi ponedjeljak kao prvi dan u tjednu.
-vbTuesday - koristi utorak kao prvi dan u tjednu.
-vbSrijeda - koristi srijedu kao prvi dan u tjednu.
-vbThursday - koristi četvrtak kao prvi dan u tjednu.
-vbFriday - koristi petak kao prvi dan u tjednu.
-vbSabotday - koristi subotu kao prvi dan u tjednu.
-vbUseSystemDayOfTheWeek - koristi prvi dan u tjednu koji je određen postavkama vašeg sustava.
- Prva sedmica (Izborno) - Konstanta koja određuje prvi tjedan u godini. Ako je prazno, tada se 1. siječnja koristi kao prvi tjedan u godini. Prva sedmica može biti jedna od sljedećih vrijednosti:
-vbFirstJan1 - koristi tjedan koji sadrži 1. siječnja.
-vbFirstFourDays - koristi prvi tjedan koji sadrži najmanje četiri dana u novoj godini.
-vbFirstFullWeek - koristi prvi cijeli tjedan u godini.
-vbSystem - koristi prvi tjedan u godini kako je navedeno u postavkama vašeg sustava.
Sljedeći kôd prikazuje kako se koristi funkcija DateDiff:
| 123456789 | Pod KorištenjeDateDiffFunction ()Zatamnite razliku između dva datuma koliko god želitetheDifferenceBetweenTwoDates = DateDiff ("q", "11/11/2010", "10/12/2012")Otklanjanje pogrešaka. Ispišite razliku između dva datumaKraj podm |
Rezultat je:
VBA DatePart funkcija
Funkciju DatePart možete koristiti za vraćanje dijela (dan, tjedan, tromjesečje, mjesec itd.) Određenog datuma.
Sintaksa funkcije DatePart je:
DatePart (Interval, Date, [Firstdayofweek], [Firstweekofyear]) gdje:
- Interval - niz koji navodi dio datuma za vraćanje. Interval može biti jedna od sljedećih vrijednosti:
"D" - dan
"Ww" - tjedan
"W" - radni dan
"M" - mjesec
"Q" - četvrtina
"Gggg" - godina
"Y" - dan u godini
"H" - sat
"N" - minuta
"S" - drugo
- Datum - Datum za koji želite da funkcija vrati dio.
- Prvi dan tjedna (Izborno) - Konstanta koja navodi dan u tjednu koji bi funkcija trebala koristiti kao prvi dan u tjednu. Ako se prazna nedjelja koristi kao prvi dan u tjednu. Prvi dan tjedna može biti jedna od sljedećih vrijednosti:
-vbSunday - koristi nedjelju kao prvi dan u tjednu.
-vbMonday - koristi ponedjeljak kao prvi dan u tjednu.
-vbTuesday - koristi utorak kao prvi dan u tjednu.
-vbSrijeda - koristi srijedu kao prvi dan u tjednu.
-vbThursday - koristi četvrtak kao prvi dan u tjednu.
-vbFriday - koristi petak kao prvi dan u tjednu.
-vbSabotday - koristi subotu kao prvi dan u tjednu.
-vbUseSystemDayOfTheWeek - koristi prvi dan u tjednu koji je određen postavkama vašeg sustava.
- Prva sedmica (Izborno) - Konstanta koja određuje prvi tjedan u godini. Ako je prazno, tada se 1. siječnja koristi kao prvi tjedan u godini. Prva sedmica može biti jedna od sljedećih vrijednosti:
-vbFirstJan1 - koristi tjedan koji sadrži 1. siječnja.
-vbFirstFourDays - koristi prvi tjedan koji sadrži najmanje četiri dana u novoj godini.
-vbFirstFullWeek - koristi prvi cijeli tjedan u godini.
-vbSystem - koristi prvi tjedan u godini kako je navedeno u postavkama vašeg sustava.
Sljedeći kôd prikazuje kako se koristi funkcija DatePart:
| 123456789 | Pod KorištenjeDatePartFunction ()Zatamnite dio datuma kao cijeli brojthePartOfTheDate = DatePart ("gggg", "12/12/2009")Otklanjanje pogrešaka. Ispišite dio datumaKraj podm |
Rezultat je:
VBA DateSerial funkcija
VBA DateSerial funkcija uzima unos godine, mjeseca i dana te vraća datum.
Sintaksa funkcije DateSerial je:
DateSerial (godina, mjesec, dan) gdje:
- Godina - cijela vrijednost između 100 i 9999 koja predstavlja godinu.
- Mjesec - cijeli broj koji predstavlja mjesec.
- Dan - cijeli broj koji predstavlja dan.
Sljedeći kôd prikazuje kako se koristi funkcija DateSerial:
| 123456789 | Pod KorištenjeDateSerialFunction ()Zatamnite datum kao datumtheDate = DateSerial (2010, 11, 10)Otklanjanje pogrešaka. Ispišite datumKraj podm |
Rezultat je:
VBA DateValue funkcija
Funkcija DateValue vraća datum kada joj se u nizu prikaže datum.
Sintaksa funkcije DateValue je:
DateValue (Datum) gdje:
- Datum - niz koji predstavlja datum.
Sljedeći kôd prikazuje kako se koristi funkcija DateValue:
| 123456789 | Pod KorištenjeDateValueFunction ()Zatamnite datum kao datumtheDate = DateValue ("29. listopada 2010.")Otklanjanje pogrešaka. Ispišite datumKraj podm |
Rezultat je:
VBA Dnevna funkcija
Pomoću funkcije Dan možete vratiti dan unosa datuma.
Sintaksa dnevne funkcije je:
Dan (Date_value) gdje:
- Date_value - Datum iz kojeg želite izdvojiti dan.
Sljedeći kôd prikazuje kako se koristi dnevna funkcija:
| 123456789 | Pod KorištenjeTheDayFunction ()Zatamnite dan kao cijeli brojtheDay = Day ("10/12/2010")Otklanjanje pogrešaka.Odštampajte danKraj podm |
Rezultat je:
VBA funkcija sata
Funkciju sata možete koristiti za vraćanje sata unesenog vremena.
Sintaksa funkcije Hour je:
Sat (vrijeme) u kojem:
- Vrijeme - vrijeme iz kojeg želite izdvojiti sat.
Sljedeći kôd prikazuje kako se koristi funkcija sata:
| 123456789 | Sub PomoćuHourFunction ()Zatamnite sat kao cijeli brojtheHour = Hour ("2:14:17 AM")Otklanjanje pogrešaka. Ispišite satKraj podm |
Rezultat je:
VBA minuta funkcija
Funkciju minuta možete koristiti za vraćanje minute vrijednosti ulaznog vremena.
Sintaksa minutne funkcije je:
Minuta (vrijeme) gdje:
- Vrijeme - Vrijeme iz kojeg želite izdvojiti minutu.
Sljedeći kôd pokazuje kako se koristi funkcija minute:
| 123456789 | PodkorištenjeMinuteFunction ()Zatamnite vrijednost minute kao cijeli brojtheMinuteValue = Minuta ("2:14:17 AM")Otklanjanje pogrešaka. Ispišite minutuVrijednostKraj podm |
Rezultat je:
VBA druga funkcija
Pomoću druge funkcije možete vratiti drugu vrijednost ulaznog vremena.
Sintaksa druge funkcije je:
Drugo (vrijeme) gdje:
- Vrijeme - vrijeme iz kojeg želite izdvojiti drugu vrijednost.
Sljedeći kôd pokazuje vam kako koristiti drugu funkciju:
| 123456789 | Pod pomoću TheSecondFunction ()Zatamnite drugu vrijednost kao cijeli brojtheSecondValue = Second ("2:14:17 AM")Otklanjanje pogrešaka. Ispišite drugu vrijednostKraj podm |
Rezultat je:
VBA Mjesečna funkcija
Pomoću funkcije Mjesec možete vratiti mjesec unesenog datuma.
Sintaksa funkcije Mjesec je:
Mjesec (Date_value) gdje:
- Date_value - Datum iz kojeg želite izdvojiti mjesec.
Sljedeći kôd prikazuje kako se koristi mjesečna funkcija:
| 12345678 | Pod pomoću TheMonthFunction ()Zatamnite mjesec kao cijeli brojtheMonth = Month ("18/11/2010")Otklanjanje pogrešaka, Ispišite mjesecKraj podm |
Rezultat je:
VBA funkcija Mjesečno ime
Funkciju MonthName možete koristiti za vraćanje naziva mjeseca iz unesenog broja mjeseca.
Sintaksa funkcije MonthName je:
Naziv mjeseca (Broj_mjeseca, [Skraćenica]) gdje:
- Broj_mjeseca - cijela vrijednost između 1 i 12.
- Skraćenica (Izborno) - Određuje treba li naziv mjeseca biti skraćen. Ako je prazno, koristi se zadana vrijednost False.
| 12345678 | Pod KorištenjeMesecNameFunction ()Zatamnite naziv mjeseca kao niztheMonthName = Ime mjeseca (12, Tačno)Otklanjanje pogrešaka, Ispišite ime mjesecaKraj podm |
Rezultat je:
VBA TimeSerial funkcija
TimeSerial funkcija uzima ulazni sat, minute i sekundu i vraća vrijeme.
Sintaksa TimeSerial funkcije je:
Vremenska serija (sat, minuta, sekunda) gdje:
- Sat - cijela vrijednost između 0 i 23 koja predstavlja vrijednost sata.
- Minuta - cijela vrijednost između 0 i 59 koja predstavlja minutu.
- Drugo - cijela vrijednost između 0 i 59 koja predstavlja drugu vrijednost.
Sljedeći kôd prikazuje kako se koristi funkcija TimeSerial:
| 12345678 | Pod pomoću TheTimeSerialFunction ()Zatamnite vrijeme kao datumtheTime = TimeSerial (1, 10, 15)Otklanjanje pogrešaka. Ispišite vrijemeKraj podm |
Rezultat je:
VBA TimeValue funkcija
Funkcija TimeValue vraća vrijeme iz prikaza niza datuma ili vremena u nizu.
Sintaksa funkcije TimeValue je:
TimeValue (Vrijeme) gdje:
- Vrijeme - niz koji predstavlja vrijeme.
Sljedeći kôd prikazuje kako se koristi funkcija TimeValue:
| 12345678 | Pod pomoću TheTimeValueFunction ()Zatamnite vrijeme kao datumtheTime = TimeValue ("22:10:17")Otklanjanje pogrešaka. Ispišite vrijemeKraj podm |
Rezultat je:
VBA Funkcija za radni dan
Funkciju tjedna možete koristiti za vraćanje cijelog broja od 1 do 7 koji predstavlja dan u tjednu od datuma unosa.
Sintaksa funkcije Weekday je:
Radni dan (datum, [prvi dan tjedna]) gdje:
- Datum - Datum iz kojeg želite izdvojiti vrijednost dana u tjednu.
- Prvi dan tjedna (Izborno) - Konstanta koja navodi dan u tjednu koji bi funkcija trebala koristiti kao prvi dan u tjednu. Ako se prazna nedjelja koristi kao prvi dan u tjednu. Prvi dan tjedna može biti jedna od sljedećih vrijednosti:
-vbSunday - koristi nedjelju kao prvi dan u tjednu.
-vbMonday - koristi ponedjeljak kao prvi dan u tjednu.
-vbTuesday - koristi utorak kao prvi dan u tjednu.
-vbSrijeda - koristi srijedu kao prvi dan u tjednu.
-vbThursday - koristi četvrtak kao prvi dan u tjednu.
-vbFriday - koristi petak kao prvi dan u tjednu.
-vbSabotday - koristi subotu kao prvi dan u tjednu.
-vbUseSystemDayOfTheWeek - koristi prvi dan u tjednu koji je određen postavkama vašeg sustava.
Sljedeći kôd prikazuje kako se koristi funkcija za radni dan:
| 1234567 | Pod pomoću TheWeekdayFunction ()Zatamnite tjedni dan kao cijeli brojtheWeekDay = Radni dan ("20.11.2019")Otklanjanje pogrešaka.Odštampajte tjedanKraj podm |
Rezultat je:
Funkcija VBA WeekdayName
Funkciju WeekdayName možete koristiti za vraćanje naziva radnog dana iz unesenog broja radnog dana.
Sintaksa funkcije WeekdayName je:
WeekdayName (Weekday, [Skraćenica], [Firstdayoftheweek]) gdje:
- Radni dan - cijela vrijednost između 1 i 7.
- Skraćenica (Izborno) -Određuje treba li naziv radnog dana biti skraćen. Ako je prazno, koristi se zadana vrijednost False.
- Prvi dan tjedna (Izborno) - Konstanta koja navodi dan u tjednu koji bi funkcija trebala koristiti kao prvi dan u tjednu. Ako se prazna nedjelja koristi kao prvi dan u tjednu. Prvi dan tjedna može biti jedna od sljedećih vrijednosti:
-vbSunday - koristi nedjelju kao prvi dan u tjednu.
-vbMonday - koristi ponedjeljak kao prvi dan u tjednu.
-vbTuesday - koristi utorak kao prvi dan u tjednu.
-vbSrijeda - koristi srijedu kao prvi dan u tjednu.
-vbThursday - koristi četvrtak kao prvi dan u tjednu.
-vbFriday - koristi petak kao prvi dan u tjednu.
-vbSabotday - koristi subotu kao prvi dan u tjednu.
-vbUseSystemDayOfTheWeek - koristi prvi dan u tjednu koji je određen postavkama vašeg sustava.
| 12345678 | Pod pomoću TheWeekdayNameFunction ()Zatamnite naziv tjedna kao niztheWeekdayName = Naziv radnog dana (4)Otklanjanje pogrešaka, Ispišite naziv tjednaKraj podm |
Rezultat je:
Funkcija godine VBA
Pomoću funkcije Godina možete vratiti godinu unesenog datuma.
Sintaksa funkcije godine je:
Godina (Date_value) gdje:
- Date_value - Datum iz kojeg želite izdvojiti godinu.
Sljedeći kôd prikazuje kako se koristi funkcija godine:
| 12345678 | PodkorištenjeYearFunction ()Zatamnite godinu kao cijeli brojtheYear = Year ("11/12/2010")Ispravljanje grešaka, Ispis godineKraj podm |
Rezultat je:
Usporedba datuma u VBA -i
Možete uspoređivati datume pomoću operatora>, <i = u VBA. Sljedeći kôd prikazuje kako usporediti dva datuma u VBA -i.
| 12345678910111213141516171819 | Podporedni datumi ()Dim dateOne As DateDim dateTwo As DatedateOne = "10.10.2010."dateTwo = "11/11/2010"Ako dateOne> dateTwo ThenDebug.Print "dateOne is the later date"OstaloAko dateOne = dateTwo ZatimDebug.Print "Dva datuma su jednaka"DrugoDebug.Print "dateTwo is the later date"Završi akoKraj podm |
Saznajte više o tome kako oblikovati datume kao nizove gledajući ovaj vodič.
