두 번의 차이를 계산하려면 어떤 기능을 사용해야합니까? 오늘날 새로운 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의 편집자가 수집 한 관련 소개입니다. 두 번의 차이를 계산하는 기능을 이해하는 것이 도움이되기를 바랍니다.