Si vous souhaitez calculer la différence entre deux fois, quelle fonction devez-vous utiliser? Aujourd'hui, l'éditeur de la nouvelle chaîne technologique vous apprend à calculer la fonction de la différence entre deux fois. J'espère qu'il vous sera utile d'apprendre ces connaissances!
'*******************************
'|| fonction timediff (sbegin, envoy)
'|| Cette fonction calcule la différence entre deux fois et peut être utilisée directement sans la modifier.
'|| Auteur: Machinecat 2001/10/26
'*******************************
'*******************************
«Remarque: d'abord, vous devez déterminer la taille entre SBEGIN et envoyer entré par l'utilisateur
'Le décalage horaire entre les deux peut être obtenu via la fonction Datadiff, sans conversion de temps compliquée
La copie de code est la suivante:Fonction timediff (sbegin, envoy)
Dim ihourb, iminuteb, isecondb, iminisecondb
Dim ihoure, iminutee, iseconde, iminiconde
Dim Dtimeb, Dtimee, Dtimediff
Dim ihour, iminute, isecond, iminisecond
ihourb = clng (gauche (sbegin, 2))
iminuteb = clng (mid (sbegin, 4, 2))
iSecondb = clng (mid (sbegin, 7, 2))
iminisecondb = clng (mid (sbegin, 10, 4))
ihoure = clng (à gauche (envoyer, 2))
imiutee = Clng (mid (envoyer, 4, 2))
iSeconde = Clng (mid (envoyer, 7, 2))
iminiconde = clng (mid (envoyer, 10, 4))
dtimeb = ihourb * 3600 + iminuteb * 60 + iSecondb + iminisecondb / 1000
dtimee = ihoure * 3600 + iminutee * 60 + iSeconde + iminiseconde / 1000
dtimediff = dtimee - dtimeb
ihour = int (dtimediff / 3600)
dtimediff = dtimediff - ihour * 3600
iminute = int (dtimediff / 60)
dtimediff = dtimediff - iminute * 60
iSecond = int (dtimediff)
dtimediff = dtimediff - int (dtimediff)
iminicond = dtimediff
TiMediff = ihour & "Hours" & iminute & "Minutes" & iSecond & Formatnumber (iminisecond, 3) & "secondes"
Fonction finale
Ce qui précède est une introduction connexe collectée par le rédacteur en chef du False New Technology Channel. J'espère qu'il vous sera utile de comprendre la fonction qui calcule la différence entre deux fois!