Ako vypočítať dátum a čas a rozdiel v hodinách & minútach vo VBA

Visual Basic vypočíta termín pomocou štruktúry DateTime . DateTime premennej uloží čas , pokiaľ ide o jeho rok , mesiac a deň , jeho hodiny , minúty a sekundy , a dokonca aj jeho milisekúnd . Príkaz , ktorý pôsobí na DateTime premenných , funkcia DateDiff , vypočítava rozdiel medzi týmito dvoma časmi . Vracia tento rozdiel , pokiaľ ide o interval podľa toho , čo zadáte , vrátane dní a rokov alebo hodinách a minútach . Pokyny dovolená 1

Zadajte nasledujúci riadok kódu do vášho programu : klipart

Dim firstDateTime As New System.DateTime ( 2012 , 12 , 21 , 13 , 04 , 0 , 00 , cal )
2

nahradiť " 2012 " v súlade s roka skoršej dobe je .
3

nahradiť " 12 " sa číslo zodpovedajúce mesiacmi uplynutí času , " 1 " , predstavujúce januára , " 2 " , predstavujúce február a tak ďalej .
4

nahradiť " 21 " , s dátumom na deň . " 11. decembra " napríklad , by sa prekladať ako
5

nahradiť " 13 " sa hodina , a to pomocou 24 - hodinovom formáte " 11 " . ; " 20:30 " , napríklad " . 20. " , prekladá sa ako
6

nahradiť " 05 " s min dobe je , " . 30. " " 20:30 " , napríklad , sa prekladá ako
7

typ , pod prvom riadku :

Dim secondDateTime As New System.DateTime ( 2012 , 12 , 21 , 13 , 04 , 0 , 00 , kalibru)
8

Insert . neskorší dátum a čas do riadku kódu v rovnakej móde
9

Zadajte nasledujúci kód nasledujúce :

msg = " Rozdiel medzi časmi " a DateDiff ( DateInterval. hodina , firstDate , secondDate ) a " hodín a " & ( DateDiff ( DateInterval.Minute , firstDate , secondDate ) - DateDiff ( DateInterval.Hour , firstDate , secondDate ) ) & " minút "

MsgBox ( msg )

• Predchádzajúca strana: Ako nahradiť znak v reťazci vo VB6 
• Ďalšia strana: Ako získať dáta v druhom stĺpci listbox položky pomocou VB