ฟังก์ชั่นที่คำนวณความแตกต่างระหว่างสองครั้ง

หากคุณต้องการคำนวณความแตกต่างระหว่างสองครั้งคุณควรใช้ฟังก์ชั่นอะไร วันนี้บรรณาธิการของช่องเทคโนโลยีใหม่จะสอนวิธีคำนวณฟังก์ชั่นของความแตกต่างระหว่างสองครั้ง ฉันหวังว่ามันจะเป็นประโยชน์สำหรับคุณในการเรียนรู้ความรู้นี้!

-

'|| ฟังก์ชั่น timeDiff (sbegin, ส่ง)

'|| ฟังก์ชั่นนี้คำนวณความแตกต่างระหว่างสองครั้งและสามารถใช้งานได้โดยตรงโดยไม่ต้องเปลี่ยน

'|| ผู้แต่ง: Machinecat 2001/10/26

-

-

'หมายเหตุ: ก่อนอื่นคุณต้องกำหนดขนาดระหว่าง sbegin และส่งที่ป้อนโดยผู้ใช้

'ความแตกต่างของเวลาระหว่างทั้งสองสามารถรับได้ผ่านฟังก์ชั่น DataDiff โดยไม่ต้องแปลงเวลาที่ซับซ้อน

ฟังก์ชั่น TimeDiff (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 (mid (sbegin, 4, 2))

ISECONDB = CLNG (MID (SBEGIN, 7, 2))

iminisecondb = clng (mid (sbegin, 10, 4))

ihoure = clng (ซ้าย (ส่ง, 2))

iminutee = clng (กลาง (ส่ง, 4, 2))

iseconde = clng (กลาง (ส่ง, 7, 2))

iminiseconde = clng (กลาง (ส่ง, 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 & "นาที" & isecond & formatNumber (iminisecond, 3) & "วินาที"

ฟังก์ชันสิ้นสุด

ข้างต้นเป็นบทนำที่เกี่ยวข้องที่รวบรวมโดยบรรณาธิการของช่องเทคโนโลยีใหม่ที่ผิดพลาด ฉันหวังว่ามันจะเป็นประโยชน์สำหรับคุณที่จะเข้าใจฟังก์ชั่นที่คำนวณความแตกต่างระหว่างสองครั้ง!