VBA-tidsfunktion | Eksempler på at bruge Excel VBA-tidsfunktion

Excel VBA-tidsfunktion

VBA- tidsfunktion returnerer den aktuelle tid, også det vigtige at bemærke er, at denne funktion overhovedet ikke har nogen argumenter, en anden vigtig faktor at huske er, at denne funktion returnerer den aktuelle systemtid. Ved hjælp af denne funktion kan vi faktisk finde den faktiske tid, det tager af linjen med koder at fuldføre processen.

TID er en slags flygtig funktion, den har ingen syntaks til den.

Vi har også en lignende funktion i excel - NOW () -funktion, der indsætter både aktuelle tidspunkter såvel som den aktuelle dato i regnearket

TID ()

Vi er bare nødt til at gå ind i funktionen, faktisk er det ikke nødvendigt med parentes for at omslutte bare TID er nok til at indsætte det aktuelle tidspunkt. Resultatet givet af TIME-funktionen er i strengen.

Hvordan bruges TIME-funktion i VBA?

Lad mig vise dig eksemplet på en simpel TID i Excel-funktion. Følg nedenstående trin for at oprette kode for at bruge TID-funktionen.

Du kan downloade denne VBA-tidsfunktionsskabelon her - VBA-tidsfunktionsskabelon

Trin 1: Opret en makro.

Kode:

 Sub Time_Example1 () Afslut Sub 

Trin 2: Erklær en variabel som streng.

Kode:

 Sub Time_Example1 () Dim CurrentTime Som String End Sub 

Trin 3: Tildel en værdi til denne variabel gennem TIME-funktionen.

Kode:

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

Trin 4: Vis nu resultatet i meddelelsesboksen.

Kode:

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

Kør denne kode ved hjælp af F5-tasten eller manuelt får vi den aktuelle tid.

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

Alternativ til Now () -funktion

Kombination af dato og tid som et alternativ til NU-funktion

Som jeg fortalte i begyndelsen af ​​artiklen kan NU indsætte den aktuelle dato og tid. Vi kan dog bruge to andre funktioner som en alternativ funktion til funktionen NU, disse to funktioner er VBA DATE & VBA TIME-funktioner.

VBA Date returnerer den aktuelle dato & Time returnerer den aktuelle tid, så dette gør funktionen NU. Nedenfor er et sæt kode, der indsætter den aktuelle dato og tid i celle A1.

Kode:

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

Denne kode indsætter den aktuelle dato og tid i celle A1.

Vi kan også anvende et format på disse værdier ved hjælp af FORMAT-funktionen. Nedenstående kode vil formatere dato og tid.

Kode:

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

Nu er resultatet af denne kode som følger.

Spor din projektmappe åbne poster ved hjælp af tidsfunktion i VBA

Ofte har vi brug for at kende vores projektmappes åbningstid-frekvens. Der er en situation, hvor vi åbner projektmappen ganske ofte, og vi foretager nogle ændringer. Ved at spore projektmappens åbningstid og dato kan vi spore projektmappens åbningstid.

Opret et nyt ark, og omdøb det til "Track Sheet".

Trin 1: Dobbeltklik på denne projektmappe 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.