/ / Excel VBA datums un laiks

Excel VBA datums un laiks

Gads, mēnesis, datuma datums | DateAdd | Pašreizējais datums un laiks | Stunda, Minūtes, Otrais | TimeValue

Uzziniet, kā strādāt ar datumi un laiki in Excel VBA.

Ievietojiet komandu pogu savā darblapā un pievienojiet zemāk esošās koda rindiņas. Lai izpildītu koda līnijas, noklikšķiniet uz komandas pogas lapā.

Gads, mēnesis, datuma datums

Šāds makro iegūst datumu. Lai paziņotu datumu, izmantojiet Dim izteiksmi. Lai inicializētu datumu, izmantojiet funkciju DateValue.

Kods:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

Rezultāts:

Datums Excel programmā VBA

Piezīme. Izmantojiet mēnesi un dienu, lai iegūtu datumu mēnesi un dienu.

DateAdd

Lai datumam pievienotu vairākas dienas, izmantojietDateAdd funkcija. Funkcijai DateAdd ir trīs argumenti. Pirmajam argumentiem pievienojiet dienas aizpildiet "d". Aizpildiet 3 otro argumentu, lai pievienotu 3 dienas. Trešais arguments atspoguļo datumu, līdz kuram dienu skaits tiks pievienots.

Kods:

Dim firstDate As Date, secondDate As Date

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

MsgBox secondDate

Rezultāts:

DateAdd

Piezīme: Mainiet "d" uz "m", lai pievienotu vairākus mēnešus līdz datumam. Novietojiet kursoru DateAdd programmā Visual Basic Editor un noklikšķiniet uz F1, lai saņemtu palīdzību citos intervāla parametros. Datumi ir ASV formātā. Pirmais mēnesis, Dienas sekundes. Šāda veida formāts ir atkarīgs no jūsu Windows reģionālajiem iestatījumiem.

Pašreizējais datums un laiks

Lai iegūtu pašreizējo datumu un laiku, izmantojiet funkciju Tagad.

Kods:

MsgBox Now

Rezultāts:

Pašreizējais datums un laiks

Stunda, Minūtes, Otrais

Iegūstiet stundas laiku, izmantojiet funkciju Stunda.

Kods:

MsgBox Hour(Now)

Rezultāts:

Pašreizējā laika stunda

Piezīme. Izmantojiet Minute un Second, lai iegūtu minūtes un sekundes laiku.

TimeValue

TimeValue funkcija pārveido virkni uz laika sērijas numuru. Laika sērijas numurs ir skaitlis no 0 līdz 1. Piemēram, pusdienlaiks (pusceļā pa dienu) tiek attēlots kā 0,5.

Kods:

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

Rezultāts:

TimeValue

Tagad, lai skaidri redzētu, ka Excel iekšēji apstrādā numurus no 0 līdz 1, pievienojiet šādas koda līnijas:

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

Rezultāts:

Laika sērijas numurs

Lasīt arī: