Функции, которые рассчитывают двух временные различия
'*********************************
'|| functiontimediff (sbegin, отправить)
'|| Эта функция вычисляет разницу между двумя разами и может использоваться непосредственно без изменения ее.
'|| Автор: Machinecat2001/10/26
'*********************************
'*********************************
'Примечание: сначала вам нужно определить размер между SBEGIN и отправить введен пользователем
«Разница во времени между ними может быть получена через функцию DataDiff без сложного преобразования времени
'*********************************
Functiontimediff (sbegin, отправить)
Dimihourb, iminuteb, isecondb, iminisecondb
Dimihoure, Iminutee, Iseconde, Iminiseconde
Dimdtimeb, Dtimee, Dtimediff
Dimihour, Iminute, Isecond, Iminisecond
ihourb = clng (слева (sbegin, 2))
iminuteb = clng (середина (sbegin, 4,2))
isecondb = clng (середина (sbegin, 7,2))
iminisecondb = clng (середина (Sbegin, 10,4))
ihoure = clng (слева (отправить, 2))
Iminutee = clng (Mid (Send, 4,2))
iseconde = clng (mid (send, 7,2))
iminiseconde = clng (mid (send, 10,4))
dtimeb = ihourb*3600+iminuteb*60+isecondb+iminisecondb/1000
dtimee = ihoure*3600+iminutee*60+iseconde+iminiseconde/1000
dtimediff = dtyee-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 & "Часы" & Iminute & "Minots" & isecond & formatnumber (iminisecond, 3) и "Секунды"
Конечная функция