VBA-tidsfunksjon | Eksempler på å bruke Excel VBA-tidsfunksjon

Excel VBA-tidsfunksjon

VBA Tid Funksjon returnerer gjeldende tid, også det er viktig å merke seg er at denne funksjonen har ingen argumenter i det hele tatt, er en annen viktig faktor å huske på at denne funksjonen returnerer gjeldende systemtiden. Ved å bruke denne funksjonen kan vi faktisk finne den faktiske tiden det tar av kodelinjen for å fullføre prosessen.

TID er en slags flyktig funksjon, den har ingen syntaks til den.

Vi har også en lignende funksjon i excel - NOW () -funksjon som setter inn både nåværende tider og gjeldende dato i regnearket

TID ()

Vi trenger bare å gå inn i funksjonen, faktisk, ikke behov for parentes for å legge inn bare TID er nok til å sette inn gjeldende tid. Resultatet gitt av TIME-funksjonen er i strengen.

Hvordan bruke TIME-funksjon i VBA?

La meg vise deg eksemplet på en enkel TID i Excel-funksjon. Følg trinnene nedenfor for å opprette kode for å bruke TIME-funksjonen.

Du kan laste ned denne VBA-tidsfunksjonsmalen her - VBA Time Function Template

Trinn 1: Opprett en makro.

Kode:

 Sub Time_Example1 () End Sub 

Trinn 2: Erklær en variabel som streng.

Kode:

 Sub Time_Example1 () Dim CurrentTime Som String End Sub 

Trinn 3: Tilordne en verdi til denne variabelen gjennom TIME-funksjonen.

Kode:

 Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time End Sub 

Trinn 4: Vis nå resultatet i meldingsboksen.

Kode:

 Sub Time_Example1 () Dim CurrentTime As String CurrentTime = Time MsgBox CurrentTime End Sub 

Kjør denne koden ved hjelp av F5-tasten eller manuelt får vi den aktuelle tiden.

Så når jeg kjører, var tiden 11.51.54.

Alternativ av Now () -funksjon

Kombinasjon av dato og tid som et alternativ til NÅ-funksjonen

Som jeg fortalte i begynnelsen av artikkelen kan NÅ sette inn nåværende dato og tid. Vi kan imidlertid bruke to andre funksjoner som en alternativ funksjon til NÅ-funksjonen, disse to funksjonene er VBA DATE & VBA TIME-funksjoner.

VBA Date returnerer gjeldende dato & Time returnerer gjeldende tid, så dette gjør NOW-funksjonen. Nedenfor er et sett med kode som vil sette inn gjeldende dato og klokkeslett i celle A1.

Kode:

 Sub Time_Example2 () Range ("A1"). Verdi = Date & "" & Time End Sub 

Denne koden vil sette inn gjeldende dato og tid i celle A1.

Vi kan også bruke et format på disse verdiene ved hjelp av FORMAT-funksjonen. Koden nedenfor vil formatere dato og klokkeslett.

Kode:

 Sub Time_Example2 () Range ("A1"). Value = Date & "" & Time Range ("A1"). NumberFormat = "dd-mmm-åååå hh: mm: ss AM / PM" End Sub 

Nå er resultatet av denne koden som følger.

Spor arbeidsboken din Åpne poster ved hjelp av tidsfunksjon i VBA

Ofte trenger vi å kjenne arbeidsfrekvensens arbeidsbok. Det er en situasjon der vi åpner arbeidsboken ganske ofte, og vi gjør noen endringer. Ved å spore arbeidsbokens åpningstid og dato kan vi spore arbeidsbokens åpningstid.

Lag et nytt ark og gi det nytt navn til "Track Sheet".

Trinn 1: Dobbeltklikk på Denne arbeidsboken fra VBE Editor.

Step 2: Select the workbook from the object drop-down list.

Step 3: As soon as you select this option you can see new macro automatically created by itself in the name “Workbook_Open()”.

Step 4: Inside this macro, we will need to write a code to track the workbook opening date & time.

I have already written code and below is the code for you.

Code:

 Private Sub Workbook_Open() Dim LR As Long LR = Sheets("Track Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Track Sheet").Cells(LR, 1).Value = Date & " " & Time() Sheets("Track Sheet").Cells(LR, 1).NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub 

This will record your workbook opening times like the below one.