Funções que calculam duas diferenças de tempo
'***********************************
'|| functionTimediff (sbegin, envio)
'|| Esta função calcula a diferença entre duas vezes e pode ser usada diretamente sem alterá -la.
'|| Autor: Machinecat2001/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
'***********************************
Functiontimediff (sbegin, send)
Dimihourb, iminuteb, isocondb, iminisEcondb
Dimihoure, iminutee, Iseconde, iminisEconde
DimdtimeB, Dtimee, Dtimediff
Dimihour, iminuute, 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+iminute*60+isoConde+iminisEconde/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