300 Piemēri

Salīdziniet datumus un laikus

Compare Dates Times

Šis piemērs māca, kā to izdarīt salīdziniet datumus un laikus iekšā Excel VBA . Datumi un laiki programmā Excel tiek saglabāti kā skaitļi, un tiek skaitīts dienu skaits kopš 1900. gada 0. janvāra. Redzamais ir atkarīgs no skaitļu formāta.



1. Ievadiet dažus skaitļus A slejā.

Skaitļi





2. Šie skaitļi ir datumi. Tas ir ideāls veids, kā ievadīt dažus datumus, neuztraucoties par datuma formātu. Mainiet formātu uz Datums (ar peles labo pogu noklikšķiniet uz kolonnas A galvenes, Formatēt šūnas un izvēlieties Datums).

Rezultāts:



Datumi

Piezīme: datumi ir ASV formātā. Mēneši pirmie, otrās dienas. Šis formāta veids ir atkarīgs no jūsu Windows reģionālajiem iestatījumiem.

Novietojiet a komandu pogu darblapā un pievienojiet šādas koda rindiņas:

Excel formula, lai kolonnā skaitītu rakstzīmes

3. Deklarējiet Integer tipa mainīgo i.

NaviVesels skaitlis

4. Pievienojiet cilni Nākotnei.

Priekši = 1 līdz 5

Nākamaisi

5. Datuma funkcija atgriež pašreizējo datumu bez laika. Pievienojiet cilpai šādu koda rindiņu, lai iezīmētu visas šūnas, kurās ir pašreizējais datums (13.03.2020.).

JaŠūnas (i, 1). Vērtība = datumsTadŠūnas (i, 1). Fonts. Krāsa = vbSarkana

Rezultāts:

Datumi vienādi

6. Pievienojiet cilpai šādu koda rindiņu, lai izceltu visus datumus, kas ir agrāk par 19.04.2019.

JaŠūnas (i, 1). VērtībaTadŠūnas (i, 1). Fonts. Krāsa = vbSarkana

Rezultāts:

Datumi agrāk nekā

apgrieztā rindā secībā Excel

7. Bet kā ar laikiem, mēs dzirdam jūs sakām. Viņi ir decimāldaļas. Pārslēdzieties atpakaļ uz vispārējo formātu un mainiet ciparus uz decimāldaļskaitļiem.

Decimālie skaitļi

8. Tagad mainiet formātu uz “Datuma un laika” formātu.

Datuma un laika formāts

Rezultāts:

Datumi un laiki

9. Ja vēlaties izcelt visas šūnas, kurās ir pašreizējais datums, mēs vairs nevaram izmantot koda rindu pie 5. Kāpēc ne? Tā kā skaitļi A slejā tagad ir decimāldaļskaitļi. Salīdzinot to ar datumu (vesels skaitlis), nebūtu nekādas atbilstības. (Tas precīzi atbilstu tikai 2020. gada 13. martam pusnaktī!) Šāda koda līnija darbojas:

JaInt (Šūnas (i, 1). Vērtība) = datumsTadŠūnas (i, 1). Fonts. Krāsa = vbSarkana

Paskaidrojums: mēs vienkārši izmantojam funkciju Int. Funkcija Int noapaļo skaitli uz leju līdz tuvākajam veselam skaitlim. Tādā veidā mēs varam iegūt datumus bez laika un salīdzināt šos datumus ar datumu.

Rezultāts:

Datumi bez laikiem vienādi

10. Pievienojiet šādu koda rindiņu, lai iezīmētu visas šūnas, kurās ir laiks no rīta.

Ja(Šūnas (i, 1). Vērtība - Int (Šūnas (i, 1). Vērtība))<0.5 TadŠūnas (i, 1). Fonts. Krāsa = vbSarkana

Paskaidrojums: mums vajag tikai decimāldaļas, tāpēc mēs atņemam veselu skaitli. Pusdienlaiks (dienas vidū) tiek attēlots kā 0,5. Decimāldaļas zemākas par 0,5 ir no rīta.

Rezultāts:

kā numurēt rindu Excel

Laiki no rīta

2/8 Pabeigts! Uzziniet vairāk par datumiem un laikiem>
Doties uz nākamo nodaļu: Notikumi



^