Функция, которая вычисляет разницу между двумя разами

Если вы хотите рассчитать разницу между двумя разами, какую функцию вы должны использовать? Сегодня редактор нового технологического канала учит вас, как рассчитать функцию разницы между двумя разами. Я надеюсь, что вам будет полезно изучить эти знания!

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

'|| Функция Timediff (SBEGIN, SENDE)

'|| Эта функция вычисляет разницу между двумя разами и может использоваться непосредственно без изменения ее.

'|| Автор: MachineCat 2001/10/26

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

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

'Примечание: сначала вам нужно определить размер между SBEGIN и отправить введен пользователем

«Разница во времени между ними может быть получена через функцию DataDiff без сложного преобразования времени

Функция времени (sbegin, отправить)

Dim Ihourb, Iminuteb, Isecondb, Iminisecondb

Dim Ihoure, Iminutee, Iseconde, Iminiseconde

Dim dtimeb, dtimee, dtimediff

Dim Ihour, 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 = 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 & "Часы" & Iminute & "Minots" & isecond & formatnumber (iminisecond, 3) и "Секунды"

Конечная функция

Выше приведено связанное введение, собранное редактором ложно -новой технологической канала. Я надеюсь, что вам будет полезно понять функцию, которая вычисляет разницу между двумя разами!