Função que calcula a diferença entre duas vezes

Se você deseja calcular a diferença entre duas vezes, que função você deve usar? Hoje, o editor do novo canal de tecnologia ensina como calcular a função da diferença entre duas vezes. Espero que seja útil para você aprender esse conhecimento!

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

'|| função timediff (sbegin, envio)

'|| Esta função calcula a diferença entre duas vezes e pode ser usada diretamente sem alterá -la.

'|| Autor: Machinecat 2001/10/26

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

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

'Nota: Primeiro, você precisa determinar o tamanho entre o SBEGIN e o envio inserido pelo usuário

'A diferença horária entre os dois pode ser obtida através da função Datadiff, sem conversão de tempo complicada

Função timediff (sbegin, send)

Dim ihourb, iminuteb, isocondb, iminisEcondb

Dim ihoure, iminutee, Iseconde, iminisEconde

Dim DtimeB, Dtimee, Dtimediff

Dim ihour, iminute, isocond, iminisEcond

ihourb = clng (esquerda (sbegin, 2))

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

isEcondb = clng (MID (SBEGIN, 7, 2))

iminisEcondb = clng (MID (SBEGIN, 10, 4))

ihoure = clng (esquerda (envia, 2))

IMIMUTEE = CLNG (MID (Send, 4, 2))

isoConde = clng (MID (envio, 7, 2))

iminisEconde = clng (MID (envio, 10, 4))

dtimeb = ihourb * 3600 + iminuteb * 60 + isocondb + iminisEcondb / 1000

dtimee = ihoure * 3600 + iminutee * 60 + isoConde + iminisconde / 1000

dtimediff = dtimee - dtimeb

ihour = int (dtimediff/3600)

dtimediff = dtimediff - ihour * 3600

iminute = int (dtimediff / 60)

dtimediff = dtimediff - iminute * 60

isocond = int (dtimediff)

dtimediff = dtimediff - int (dtimediff)

iminisEcond = dtimediff

Timediff = ihour & "Hours" & Iminute & "Minutes" & Isecond & FormatNumber (iminisEcond, 3) e "segundos"

Função final

O exposto acima é uma introdução relacionada coletada pelo editor do False New Technology Channel. Espero que seja útil para você entender a função que calcula a diferença entre duas vezes!