Vba

Dato og tid

Date Time

År, måned, dato for en dato | Dato Tilføj | Nuværende dato og klokkeslæt | Time, minut, sekund | Tidsværdi





Lær at arbejde med datoer og tidspunkter i Excel VBA .

Placer en kommandoknap på dit regneark, og tilføj nedenstående kodelinjer. For at udføre kodelinjerne skal du klikke på kommandoknappen på arket.





År, måned, dato for en dato

Følgende makro får året for en dato. For at angive en dato skal du bruge Dim -sætningen. For at initialisere en dato skal du bruge funktionen DateValue.

Kode:



IngeneksempelDatoSom Dato

exampleDate = DateValue ('19. januar 2020')

MsgBox År (eksempelDato)

Resultat:

Datoår i Excel VBA

Bemærk: Brug måned og dag for at få måneden og dagen for en dato.

Dato Tilføj

Hvis du vil føje et antal dage til en dato, skal du bruge funktionen DateAdd. DateAdd -funktionen har tre argumenter. Udfyld 'd' for det første argument for at tilføje dage. Udfyld 3 for det andet argument for at tilføje 3 dage. Det tredje argument repræsenterer den dato, hvor antallet af dage tilføjes.

excel generere tilfældigt tal mellem to værdier

Kode:

Ingenførste dateSom Dato, anden datoSom Dato

firstDate = DateValue ('19. januar 2020')
secondDate = DateAdd ('d', 3, firstDate)

MsgBox secondDate

Resultat:

Dato Tilføj

Bemærk: Skift 'd' til 'm' for at tilføje et antal måneder til en dato. Placer din markør på DateAdd i Visual Basic Editor, og klik på F1 for at få hjælp til de andre interval -specificatorer. Datoer er i amerikansk format. Måneder først, Dage andet. Denne type format afhænger af dine regionale indstillinger i Windows.

Nuværende dato og klokkeslæt

For at få den aktuelle dato og klokkeslæt skal du bruge funktionen Nu.

Kode:

indsæt en opslagsfunktion i celle c5 for at få vist ringomkostningerne for den første elev.
MsgBox nu

Resultat:

Nuværende dato og klokkeslæt

Time, minut, sekund

Få timen af ​​gangen, brug timefunktionen.

Kode:

MsgBox -time (nu)

Resultat:

i celle e15 indtast en formel for at finde de højeste omkostninger til linjeposter denne måned

Time for den aktuelle tid

Bemærk: Brug minut og sekund for at få minut og sekund af gangen.

Tidsværdi

TimeValue -funktionen konverterer en streng til et tidsserienummer. Tidens serienummer er et tal mellem 0 og 1. F.eks. Er middag (halvvejs i løbet af dagen) repræsenteret som 0,5.

Kode:

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

Resultat:

Tidsværdi

For nu tydeligt at se, at Excel håndterer tider internt som tal mellem 0 og 1, skal du tilføje følgende kodelinjer:

IngenogSom Dobbelt
y = TimeValue ('09: 20: 01 ')
MsgBox og

Resultat:

Tid Serienummer

1/8 færdig! Få mere at vide om datoer og tidspunkter>
Gå til næste kapitel: Begivenheder



^