두 번의 차이를 계산하는 함수

두 번의 차이를 계산하려면 어떤 기능을 사용해야합니까? 오늘날 새로운 Technology Channel의 편집자는 두 번의 차이의 기능을 계산하는 방법을 알려줍니다. 이 지식을 배우는 것이 도움이되기를 바랍니다.

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

'|| 함수 시간 의식 (sbegin, send)

'||이 기능은 두 번의 차이를 계산하며 변경하지 않고 직접 사용할 수 있습니다.

'|| 저자 : MachineCat 2001/10/26

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

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

'참고 : 먼저 sbegin 사이의 크기를 결정하고 사용자가 입력 한 보내야합니다.

'복잡한 시간 변환없이 Datadiff 함수를 통해이 둘 사이의 시차를 얻을 수 있습니다.

함수 시간 의식 (sbegin, send)

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 (mid (sbegin, 4, 2))

isecondb = clng (Mid (sbegin, 7, 2))

iminisecondb = clng (mid (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 & "Hours"& Iminute & "Minutes"& Isecond & Formatnumber (Iminisecond, 3) & "Seconds"

엔드 기능

위의 것은 False New Technology Channel의 편집자가 수집 한 관련 소개입니다. 두 번의 차이를 계산하는 기능을 이해하는 것이 도움이되기를 바랍니다.