Hvordan beregne dato og klokkeslett Forskjell i timer og minutter i VBA

Hvordan beregne dato og klokkeslett Forskjell i timer og minutter i VBA


Visual Basic beregner datoer ved hjelp av den Datetime struktur. En Datetime variabel lagrer en gang i form av dens år, måned og dag, det er time, minutt og andre og til og med sine millisekunder. En kommando som virker på Datetime variabler, det DateDiff funksjon, beregner forskjellen mellom de to ganger. Den returnerer denne forskjellen i form av hvilken intervall du angir, inkludert dager og år eller timer og minutter.

Bruksanvisning

1 Skriv inn følgende linje med kode inn i programmet:

Dim firstDateTime som ny System.DateTime (2012, 12, 21, 13, 04, 0, 00, cal)

2 Erstatt "2012" i tråd med tidligere tids år.

3 Erstatte "12" med det tall som svarer til tiden er måned, med "1" representerer januar "2" representerer februar, og så videre.

4 Erstatt "21" med dagens dato. "11. desember" for eksempel, ville oversette som "11."

5 Erstatt "13" med tiden sin time, ved hjelp av en 24-timers klokke; "08:30", for eksempel, kan oversettes som "20."

6 Erstatt "05" med tids minutter; "08:30", for eksempel, kan oversettes som "30."

7 Skriv inn, under den første linjen:

Dim secondDateTime som ny System.DateTime (2012, 12, 21, 13, 04, 0, 00, cal)

8 Sett inn senere dato og tid i linje med kode på samme måte.

9 Skriv inn følgende kode neste:

msg = "Forskjellen mellom ganger:" & DateDiff (DateInterval.Hour, Firstdate, secondDate) og "timer og" & (DateDiff (DateInterval.Minute, Firstdate, secondDate) - DateDiff (DateInterval.Hour, Firstdate, secondDate)) & " minutter"

MsgBox (msg)