/ / VBA Datum i vrijeme programa Excel

Datum i vrijeme programa Excel VBA

Godina, mjesec, dan datuma | DateAdd | Trenutni datum i vrijeme | Sat, Minuta, Drugo | TIMEVALUE

Saznajte kako raditi datume i vremena u Excel VBA,

Stavite gumb naredbe na radni list i dodajte linije koda u nastavku. Da biste izvršili linije koda, kliknite gumb naredbe na listi.

Godina, mjesec, dan datuma

Sljedeće makronaredbe dobivaju godinu datuma. Da biste proglasili datum, upotrijebite Dim izjavu. Za početak datuma upotrijebite funkciju DateValue.

Kodirati:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Proizlaziti:

Godina datuma u programu Excel VBA

Napomena: Koristite mjesec i dan kako biste dobili mjesec i dan datuma.

DateAdd

Da biste dodali broj dana na datum, upotrijebiteDateAdd funkcija. Funkcija DateAdd ima tri argumenata. Ispunite "d" za prvi argument da biste dodali dane. Ispunite 3 za drugi argument da biste dodali 3 dana. Treći argument predstavlja datum na koji će se dodati broj dana.

Kodirati:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

Proizlaziti:

DateAdd

Bilješka: Promijenite "d" do "m" da biste dodali nekoliko mjeseci do datuma. Postavite pokazivač na DateAdd u Visual Basic Editor i kliknite F1 za pomoć na drugim intervalima. Datumi su u SAD formatu. Mjeseci prvi, Dani sekundi. Ova vrsta oblika ovisi o regionalnim postavkama vašeg prozora.

Trenutni datum i vrijeme

Da biste dobili trenutačni datum i vrijeme, upotrijebite funkciju Sada.

Kodirati:

MsgBox Now

Proizlaziti:

Trenutni datum i vrijeme

Sat, Minuta, Drugo

Dobiti sat vremena, upotrijebite funkciju Sat.

Kodirati:

MsgBox Hour(Now)

Proizlaziti:

Sat trenutnog vremena

Napomena: Koristite Minuta i Drugi da biste dobili minutu i sekundu vremena.

TIMEVALUE

Funkcija TimeValue pretvara niz na vremenski serijski broj. Serijski broj vremena je broj između 0 i 1. Primjerice, podneva (na pola puta kroz dan) predstavlja 0,5.

Kodirati:

MsgBox TimeValue("9:20:01 am")

Proizlaziti:

TIMEVALUE

Sada, kako biste jasno vidjeli da Excel interno obrađuje brojeve od 0 do 1, dodajte sljedeće retke koda:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

Proizlaziti:

Vremenski serijski broj

Također pročitajte: