Å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:
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 DatofirstDate = DateValue ('19. januar 2020')
secondDate = DateAdd ('d', 3, firstDate)
MsgBox secondDate
Resultat:
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:
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
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:
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 Dobbelty = TimeValue ('09: 20: 01 ')
MsgBox og
Resultat:
Gå til næste kapitel: Begivenheder