Funciones que calculan dos diferencias de tiempo
'**********************************
'|| FunctionTimediff (sbegin, envío)
'|| Esta función calcula la diferencia entre dos veces y puede usarse directamente sin cambiarla.
'|| Autor: MachineCat2001/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
'**********************************
FunctionTimediff (sbegin, envío)
Dimihourb, iminuteb, isecondb, iminisecondb
Dimihoure, Imintee, Iseconde, Iminiseconde
Dimdtimeb, Dtimee, Dtimediff
Dimihour, 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 (enviar, 7,2))
iminiseconde = clng (mediano (enviar, 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-in (dtimediff)
iminisecond = dtimediff
Timediff = ihour & "Hours" & Iminute & "Minutes" & Isecond & FormatNumber (IMINISECOND, 3) y "SEGUNDOS"
Función final