/ / Excel VBA dátum és idő

Excel VBA dátum és idő

Év, hónap, dátum napja | DateAdd | Jelenlegi dátum és idő | Óra, perc, másodperc | TIMEVALUE

Ismerje meg, hogyan kell dolgozni időpontok és időpontok ban ben Excel VBA.

Helyezzen egy parancsgombot a munkalapra, és adja hozzá a kódsorokat. A kódsorok végrehajtásához kattintson a lapon található parancs gombra.

Év, hónap, dátum napja

A következő makró a dátum éve lesz. Dátum bejelentéséhez használja a Dim utasítást. A dátum inicializálására használja a DateValue funkciót.

Kód:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Eredmény:

Dátum dátuma Excel VBA-ban

Megjegyzés: Használja a hónapot és a napot, hogy megkapja a dátum hónapját és napját.

DateAdd

Ha több napot szeretne hozzáadni egy dátumhoz, használja aDateAdd függvény. A DateAdd funkció három argumentummal rendelkezik. Töltse ki a "d" -t az első argumentumhoz napok hozzáadásához. Töltsön be 3-at a második argumentumhoz, hogy adj hozzá 3 napot. A harmadik argumentum azt a dátumot jelöli, amelyre a napok száma hozzáadódik.

Kód:

Dim firstDate As Date, secondDate As Date

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

MsgBox secondDate

Eredmény:

DateAdd

Jegyzet: Módosítsa a "d" -ta "m" -ra, ha több hónapot szeretne hozzáadni egy dátumhoz. Helyezze a kurzort a DateAddre a Visual Basic Editorban, és kattintson az F1-re a többi intervallum-specifikátorra vonatkozó segítségért. A dátumok US formátumban vannak. Hónapok először, a második napok. Ez a formátum az ablakok regionális beállításaitól függ.

Jelenlegi dátum és idő

Az aktuális dátum és idő megszerzéséhez használja a Now funkciót.

Kód:

MsgBox Now

Eredmény:

Jelenlegi dátum és idő

Óra, perc, másodperc

A kap egy órát, használd az óra funkciót.

Kód:

MsgBox Hour(Now)

Eredmény:

Az aktuális idő óra

Megjegyzés: Használd a Minute és a Second gombot a perc és a másodperc egyidejű megszerzéséhez.

TIMEVALUE

Az TimeValue funkció egy karakterláncot átalakít egy idősorszámhoz. Az idő sorszáma 0 és 1 között van. Például, dél (félúton a nap) 0,5-es.

Kód:

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

Eredmény:

TIMEVALUE

Most, hogy világosan látjuk, hogy az Excel a 0 és 1 közötti számokat belsőleg kezeli, adja hozzá a következő kódsorokat:

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

Eredmény:

Idősorszám

Szintén olvasható: