/ / "Excel VBA data ir laikas"

Excel VBA data ir laikas

Metai, mėnuo, dienos data | DateAdd | Dabartinė data ir laikas | Valanda, minutė, antroji | TimeValue

Sužinokite, kaip dirbti datos ir laikai in Excel VBA.

Įdėkite komandų mygtuką į savo darbalapį ir pridėkite žemiau esančias kodo eilutes. Norėdami paleisti kodo eilutes, spustelėkite komandą mygtuką lape.

Metai, mėnuo, dienos data

Ši makrokomandas gauna datos metus. Norėdami paskelbti datą, naudokite "Dim" teiginį. Norėdami inicijuoti datą, naudokite funkciją DateValue.

Kodas:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Rezultatas:

"Excel VBA" datos metai

Pastaba: naudokite mėnesį ir dieną, kad gautumėte mėnesio ir dienos datą.

DateAdd

Norėdami pridėti dienų skaičių, naudokiteDateAdd funkcija. "DateAdd" funkcija turi tris argumentus. Įtraukite "d" pirmąjį argumentą, kad pridėtumėte dienų. Užpildykite 3 antrajam argumentui pridėti 3 dienas. Trečiasis argumentas reiškia datą, iki kurios bus pridedamas dienų skaičius.

Kodas:

Dim firstDate As Date, secondDate As Date

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

MsgBox secondDate

Rezultatas:

DateAdd

Pastaba: Pakeiskite "d" į "m", jei norite pridėti keletą mėnesių iki datos. Įdėkite žymeklį į "DateAdd" redaktorių Visual Basic ir spustelėkite F1, kad gautumėte pagalbos kitose intervalo specifikacijose. Datos yra JAV formatu. Pirmieji mėnesiai, Dieną antrą kartą. Šio formato tipas priklauso nuo jūsų "Windows" regiono nustatymų.

Dabartinė data ir laikas

Norėdami gauti dabartinę datą ir laiką, naudokite funkciją "Dabar".

Kodas:

MsgBox Now

Rezultatas:

Dabartinė data ir laikas

Valanda, minutė, antroji

Gaukite laiko valandą, naudokitės "Hour" funkcija.

Kodas:

MsgBox Hour(Now)

Rezultatas:

Dabartinio laiko valanda

Pastaba: naudokite minučių ir sekundžių, kad gautumėte minutę ir sekundę.

TimeValue

"TimeValue" funkcija konvertuoja eilutę į laiko eilės numerį. Laiko serijos numeris yra skaičius tarp 0 ir 1. Pavyzdžiui, vidurdienį (pusiaukelėje per dieną) sudaro 0,5.

Kodas:

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

Rezultatas:

TimeValue

Dabar, kad būtų aiškiai matyti, kad "Excel" tvarko laiką viduje, skaičiai tarp 0 ir 1, prideda šias kodo eilutes:

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

Rezultatas:

Laiko serijos numeris

Taip pat perskaitykite: