Función que calcula la diferencia entre dos veces

Si desea calcular la diferencia entre dos veces, ¿qué función debe usar? Hoy, el editor de New Technology Channel le enseña cómo calcular la función de la diferencia entre dos veces. ¡Espero que sea útil para usted aprender este conocimiento!

'**********************************

'|| Función Timediff (sbegin, envío)

'|| Esta función calcula la diferencia entre dos veces y puede usarse directamente sin cambiarla.

'|| Autor: Machinecat 2001/10/26

'**********************************

'**********************************

'Nota: Primero, debe determinar el tamaño entre Sbegin y el envío ingresado por el usuario

'La diferencia de tiempo entre los dos se puede obtener a través de la función Datadiff, sin una conversión de tiempo complicada

Función Timediff (sbegin, envío)

Dim ihourb, iminuteb, isecondb, iminisecondb

Dim ihouree, imintee, iseconde, iminiseconde

Dim dtimeb, dtimee, dtimediff

Dim ihour, Iminute, Isecond, IMinisecond

ihourb = clng (izquierda (sbegin, 2))

iminuteb = clng (Mid (sbegin, 4, 2))

isecondb = clng (Mid (sbegin, 7, 2))

IMINISECONDB = CLNG (MID (SBEGIN, 10, 4))

ihoure = clng (izquierda (enviar, 2))

iMinUtee = clng (Mid (enviar, 4, 2))

iseconde = clng (mediano (envío, 7, 2))

iminiseconde = clng (mediano (envío, 10, 4))

dtimeB = ihourb * 3600 + iminuteb * 60 + isecondb + iminisecondb / 1000

dtimee = ihoure * 3600 + imintee * 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)

iminisecond = dtimediff

Timediff = ihour & "Hours" & Iminute & "Minutes" & Isecond & FormatNumber (IMINISECOND, 3) y "SEGUNDOS"

Función final

Lo anterior es una introducción relacionada recopilada por el editor del canal False New Technology. ¡Espero que sea útil para usted comprender la función que calcula la diferencia entre dos veces!